Commit 96846422 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

*** empty log message ***

parent c7c0858d
...@@ -22,9 +22,9 @@ ...@@ -22,9 +22,9 @@
;; only if some mail aliases are defined. ;; only if some mail aliases are defined.
(defun expand-mail-aliases (beg end &optional exclude) (defun expand-mail-aliases (beg end &optional exclude)
"Expand all mail aliases in suitable header fields found between BEG and END. "Expand all mail aliases in suitable header fields found between BEG and END.
Suitable header fields are To, Cc and Bcc and their Resent- variants. Suitable header fields are `To', `Cc' and `Bcc' and their `Resent-' variants.
Optional 2nd arg EXCLUDE may be a regular expression Optional second arg EXCLUDE may be a regular expression defining text to be
defining text to be removed from alias expansions." removed from alias expansions."
(if (eq mail-aliases t) (if (eq mail-aliases t)
(progn (setq mail-aliases nil) (build-mail-aliases))) (progn (setq mail-aliases nil) (build-mail-aliases)))
(goto-char beg) (goto-char beg)
...@@ -89,7 +89,7 @@ defining text to be removed from alias expansions." ...@@ -89,7 +89,7 @@ defining text to be removed from alias expansions."
;; Called by mail-setup, or similar functions, only if ~/.mailrc exists. ;; Called by mail-setup, or similar functions, only if ~/.mailrc exists.
(defun build-mail-aliases (&optional file) (defun build-mail-aliases (&optional file)
"Read mail aliases from ~/.mailrc and set mail-aliases." "Read mail aliases from ~/.mailrc and set `mail-aliases'."
(setq file (expand-file-name (or file "~/.mailrc"))) (setq file (expand-file-name (or file "~/.mailrc")))
(let ((buffer nil) (let ((buffer nil)
(obuf (current-buffer))) (obuf (current-buffer)))
...@@ -131,7 +131,7 @@ defining text to be removed from alias expansions." ...@@ -131,7 +131,7 @@ defining text to be removed from alias expansions."
;; Always autoloadable in case the user wants to define aliases ;; Always autoloadable in case the user wants to define aliases
;; interactively or in .emacs. ;; interactively or in .emacs.
(defun define-mail-alias (name definition) (defun define-mail-alias (name definition)
"Define NAME as a mail-alias that translates to DEFINITION. "Define NAME as a mail alias that translates to DEFINITION.
This means that sending a message to NAME will actually send to DEFINITION. This means that sending a message to NAME will actually send to DEFINITION.
DEFINITION can be one or more mail addresses separated by commas." DEFINITION can be one or more mail addresses separated by commas."
(interactive "sDefine mail alias: \nsDefine %s as mail alias for: ") (interactive "sDefine mail alias: \nsDefine %s as mail alias for: ")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment