Mercurial > emacs

comparison lisp/mail/mailalias.el @ 11856:abf2dbc46f7d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(expand-mail-aliases): Expand aliases in From and Reply-to headers as well, plus the Resent- variants.
author Karl Heuer <kwzh@gnu.org>
date Fri, 19 May 1995 18:57:17 +0000
parents 462d55b84265
children 7291d1627d2c
comparison
equal deleted inserted replaced
11855:b951b7cc955e 11856:abf2dbc46f7d
33 33
34 ;; Called from sendmail-send-it, or similar functions, 34 ;; Called from sendmail-send-it, or similar functions,
35 ;; only if some mail aliases are defined. 35 ;; only if some mail aliases are defined.
36 (defun expand-mail-aliases (beg end &optional exclude) 36 (defun expand-mail-aliases (beg end &optional exclude)
37 "Expand all mail aliases in suitable header fields found between BEG and END. 37 "Expand all mail aliases in suitable header fields found between BEG and END.
38 Suitable header fields are `To', `Cc' and `Bcc' and their `Resent-' variants. 38 Suitable header fields are `To', `From', `CC' and `BCC', `Reply-to', and
39 their `Resent-' variants.
40
39 Optional second arg EXCLUDE may be a regular expression defining text to be 41 Optional second arg EXCLUDE may be a regular expression defining text to be
40 removed from alias expansions." 42 removed from alias expansions."
41 (sendmail-synch-aliases) 43 (sendmail-synch-aliases)
42 (if (eq mail-aliases t) 44 (if (eq mail-aliases t)
43 (progn (setq mail-aliases nil) (build-mail-aliases))) 45 (progn (setq mail-aliases nil) (build-mail-aliases)))
44 (goto-char beg) 46 (goto-char beg)
45 (setq end (set-marker (make-marker) end)) 47 (setq end (set-marker (make-marker) end))
46 (let ((case-fold-search nil)) 48 (let ((case-fold-search nil))
47 (while (let ((case-fold-search t)) 49 (while (let ((case-fold-search t))
48 (re-search-forward "^\\(to\\|cc\\|bcc\\|resent-to\\|resent-cc\\|resent-bcc\\):" end t)) 50 (re-search-forward "^\\(Resent-\\)?\\(To\\|From\\|CC\\|BCC\\|Reply-to\\):" end t))
49 (skip-chars-forward " \t") 51 (skip-chars-forward " \t")
50 (let ((beg1 (point)) 52 (let ((beg1 (point))
51 end1 pos epos seplen 53 end1 pos epos seplen
52 ;; DISABLED-ALIASES records aliases temporarily disabled 54 ;; DISABLED-ALIASES records aliases temporarily disabled
53 ;; while we scan text that resulted from expanding those aliases. 55 ;; while we scan text that resulted from expanding those aliases.