From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 12 Jul 1996 00:09:50 +0000 (+0000)
Subject: (smtpmail-deduce-address-list): Handle RESENT-* fields.
X-Git-Tag: emacs-19.34~214
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=13f1d088c16c9ba08b96933e5a609994c376c706;p=emacs.git

(smtpmail-deduce-address-list): Handle RESENT-* fields.
---

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)