diff options
| author | Richard M. Stallman | 1994-06-19 19:42:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-06-19 19:42:17 +0000 |
| commit | d066345bcf9bae839a93902de8d03cbe901a544f (patch) | |
| tree | 52b4bf595d79427680d4f4fa98bd29049948730d | |
| parent | 01cbdba594074fc3e8e3ded1edad2e13fdc89c8c (diff) | |
| download | emacs-d066345bcf9bae839a93902de8d03cbe901a544f.tar.gz emacs-d066345bcf9bae839a93902de8d03cbe901a544f.zip | |
(define-mail-alias): Doc fix.
| -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))) |