diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-05-19 18:57:17 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-05-19 18:57:17 +0000 |
| commit | 1abe848863b49c162f20a0d2aa6ba29f2ed9dbca (patch) | |
| tree | ebae19697862f8122f80a32a0f59dcd68ad0788f /lisp/mail/mailalias.el | |
| parent | 7355fc3395ed06629bc591f1f8ab7e26e113661c (diff) | |
| download | emacs-1abe848863b49c162f20a0d2aa6ba29f2ed9dbca.tar.gz emacs-1abe848863b49c162f20a0d2aa6ba29f2ed9dbca.tar.bz2 emacs-1abe848863b49c162f20a0d2aa6ba29f2ed9dbca.zip | |
(expand-mail-aliases): Expand aliases in
From and Reply-to headers as well, plus the Resent- variants.
Diffstat (limited to 'lisp/mail/mailalias.el')
| -rw-r--r-- | lisp/mail/mailalias.el | 6 |
1 files changed, 4 insertions, 2 deletions
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 |