procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(expand-mail-aliases): Expand aliases in

Browse source 
From and Reply-to headers as well, plus the Resent- variants.
This commit is contained in:
Karl Heuer 1995-05-19 18:57:17 +00:00
parent 7355fc3395
commit 1abe848863
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/mail/mailalias.el
View file

@ -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