mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Richard M. Stallman 1991-03-24 23:18:32 +00:00
parent 54d7f6504d
commit 6f8c78e1be
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/mail/mailalias.el
View File

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