From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 19 May 1995 18:57:17 +0000 (+0000)
Subject: (expand-mail-aliases): Expand aliases in
X-Git-Tag: emacs-19.34~4002
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1abe848863b49c162f20a0d2aa6ba29f2ed9dbca;p=emacs.git

(expand-mail-aliases): Expand aliases in
From and Reply-to headers as well, plus the Resent- variants.
---

diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index cedc40ab9a9..2f06c63e498 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -35,7 +35,9 @@
 ;; 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' and their `Resent-' variants.
+Suitable header fields are `To', `From', `CC' and `BCC', `Reply-to', and
+their `Resent-' variants.
+
 Optional second arg EXCLUDE may be a regular expression defining text to be
 removed from alias expansions."
   (sendmail-synch-aliases)
@@ -45,7 +47,7 @@ removed from alias expansions."
   (setq end (set-marker (make-marker) end))
   (let ((case-fold-search nil))
     (while (let ((case-fold-search t))
-	     (re-search-forward "^\\(to\\|cc\\|bcc\\|resent-to\\|resent-cc\\|resent-bcc\\):" end t))
+	     (re-search-forward "^\\(Resent-\\)?\\(To\\|From\\|CC\\|BCC\\|Reply-to\\):" end t))
       (skip-chars-forward " \t")
       (let ((beg1 (point))
 	    end1 pos epos seplen