aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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)))