diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-07-12 00:09:50 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-07-12 00:09:50 +0000 |
| commit | 13f1d088c16c9ba08b96933e5a609994c376c706 (patch) | |
| tree | c493c6621bd9622bb6213c1d03f32064ed0b402d /lisp/mail/smtpmail.el | |
| parent | 6bb9d4b8f3394be9262a93c12927e9cfc99e2bfa (diff) | |
| download | emacs-13f1d088c16c9ba08b96933e5a609994c376c706.tar.gz | |
(smtpmail-deduce-address-list): Handle RESENT-* fields.
Diffstat (limited to 'lisp/mail/smtpmail.el')
| -rw-r--r-- | lisp/mail/smtpmail.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 16123aede2b..e6c07670449 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -447,7 +447,8 @@ don't define this value.") ((case-fold-search t) (simple-address-list "") this-line - this-line-end) + this-line-end + addr-regexp) (unwind-protect (save-excursion @@ -455,7 +456,13 @@ don't define this value.") (set-buffer smtpmail-address-buffer) (erase-buffer) (insert-buffer-substring smtpmail-text-buffer header-start header-end) (goto-char (point-min)) - (while (re-search-forward "^\\(TO:\\|CC:\\|BCC:\\)" header-end t) + ;; RESENT-* fields should stop processing of regular fields. + (save-excursion + (if (re-search-forward "^RESENT-TO:" header-end t) + (setq addr-regexp "^\\(RESENT-TO:\\|RESENT-CC:\\|RESENT-BCC:\\)") + (setq addr-regexp "^\\(TO:\\|CC:\\|BCC:\\)"))) + + (while (re-search-forward addr-regexp header-end t) (replace-match "") (setq this-line (match-beginning 0)) (forward-line 1) |