From bbffcd4afb5e88234724fd2827ac05dc605aa4ba Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 12 Jul 1996 00:09:50 +0000 Subject: (smtpmail-deduce-address-list): Handle RESENT-* fields. --- lisp/mail/smtpmail.el | 11 +++++++++-- 1 file 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) -- cgit v1.2.1