Mercurial > emacs

changeset 219:6f8afe7308eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Sun, 24 Mar 1991 23:18:32 +0000
parents d492f16a8743
children 2ea306376f97
files lisp/mail/mailalias.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/mailalias.el	Wed Mar 20 04:10:45 1991 +0000
+++ b/lisp/mail/mailalias.el	Sun Mar 24 23:18:32 1991 +0000
@@ -22,15 +22,16 @@
 ;; only if some mail aliases are defined.
 (defun expand-mail-aliases (beg end &optional exclude)
   "Expand all mail aliases in suitable header fields found between BEG and END.
-Suitable header fields are To, Cc and Bcc.  Optional 2nd arg EXCLUDE may be a
-regular expression defining text to be removed from alias expansions."
+Suitable header fields are To, Cc and Bcc and their Resent- variants.
+Optional 2nd arg EXCLUDE may be a regular expression
+defining text to be removed from alias expansions."
   (if (eq mail-aliases t)
       (progn (setq mail-aliases nil) (build-mail-aliases)))
   (goto-char beg)
   (setq end (set-marker (make-marker) end))
   (let ((case-fold-search nil))
     (while (let ((case-fold-search t))
-	     (re-search-forward "^\\(to\\|cc\\|bcc\\):" end t))
+	     (re-search-forward "^\\(to\\|cc\\|bcc\\|resent-to\\|resent-cc\\|resent-bcc\\):" end t))
       (skip-chars-forward " \t")
       (let ((beg1 (point))
 	    end1 pos epos seplen