diff options
| author | Richard M. Stallman <rms@gnu.org> | 1991-03-24 23:18:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1991-03-24 23:18:32 +0000 |
| commit | 6f8c78e1be778361276c79e1ea11d705b9dca580 (patch) | |
| tree | 061ffe0147e980dc4ddf1d67c90bfb3acb76e471 | |
| parent | 54d7f6504d777f9780827f680b22c3375a3aaaba (diff) | |
| download | emacs-6f8c78e1be778361276c79e1ea11d705b9dca580.tar.gz | |
*** empty log message ***
| -rw-r--r-- | lisp/mail/mailalias.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index 7fc41289a15..ef1baef4218 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el @@ -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 |