diff options
| -rw-r--r-- | lisp/mail/mailalias.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index 09335afdb39..3353731431c 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el | |||
| @@ -162,7 +162,8 @@ removed from alias expansions." | |||
| 162 | (defun define-mail-alias (name definition) | 162 | (defun define-mail-alias (name definition) |
| 163 | "Define NAME as a mail alias that translates to DEFINITION. | 163 | "Define NAME as a mail alias that translates to DEFINITION. |
| 164 | This means that sending a message to NAME will actually send to DEFINITION. | 164 | This means that sending a message to NAME will actually send to DEFINITION. |
| 165 | DEFINITION can be one or more mail addresses separated by commas." | 165 | DEFINITION can be one or more mail addresses separated by spaces. |
| 166 | An address can contain spaces if it is quoted with double-quotes." | ||
| 166 | (interactive "sDefine mail alias: \nsDefine %s as mail alias for: ") | 167 | (interactive "sDefine mail alias: \nsDefine %s as mail alias for: ") |
| 167 | ;; Read the defaults first, if we have not done so. | 168 | ;; Read the defaults first, if we have not done so. |
| 168 | (if (eq mail-aliases t) | 169 | (if (eq mail-aliases t) |
| @@ -182,7 +183,7 @@ DEFINITION can be one or more mail addresses separated by commas." | |||
| 182 | ;; Strip quotation marks. | 183 | ;; Strip quotation marks. |
| 183 | (setq definition (substring definition 1 (1- (length definition)))) | 184 | (setq definition (substring definition 1 (1- (length definition)))) |
| 184 | ;; ~/.mailrc contains addresses separated by spaces. | 185 | ;; ~/.mailrc contains addresses separated by spaces. |
| 185 | ;; mailers should expect addresses separated by commas. | 186 | ;; Mailers should expect addresses separated by commas. |
| 186 | (while (setq tem (string-match "[^ \t,][ \t,]+" definition tem)) | 187 | (while (setq tem (string-match "[^ \t,][ \t,]+" definition tem)) |
| 187 | (if (= (match-end 0) (length definition)) | 188 | (if (= (match-end 0) (length definition)) |
| 188 | (setq definition (substring definition 0 (1+ tem))) | 189 | (setq definition (substring definition 0 (1+ tem))) |