aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-06-19 19:42:17 +0000
committerRichard M. Stallman1994-06-19 19:42:17 +0000
commitd066345bcf9bae839a93902de8d03cbe901a544f (patch)
tree52b4bf595d79427680d4f4fa98bd29049948730d
parent01cbdba594074fc3e8e3ded1edad2e13fdc89c8c (diff)
downloademacs-d066345bcf9bae839a93902de8d03cbe901a544f.tar.gz
emacs-d066345bcf9bae839a93902de8d03cbe901a544f.zip
(define-mail-alias): Doc fix.
-rw-r--r--lisp/mail/mailalias.el5
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.
164This means that sending a message to NAME will actually send to DEFINITION. 164This means that sending a message to NAME will actually send to DEFINITION.
165DEFINITION can be one or more mail addresses separated by commas." 165DEFINITION can be one or more mail addresses separated by spaces.
166An 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)))