From: Miles Bader <miles@gnu.org>
Date: Thu, 4 Jul 1996 05:45:33 +0000 (+0000)
Subject: (smtpmail-send-it): Ignore `To:' if there is a `Resent-to':.
X-Git-Tag: emacs-19.34~267
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=52a2a9c397fb9cc8bb398f48c79221bc94885141;p=emacs.git

(smtpmail-send-it): Ignore `To:' if there is a `Resent-to':.
---

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 801cac7fcb5..16123aede2b 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -197,7 +197,8 @@ don't define this value.")
 	  ;;
 	  (setq smtpmail-address-buffer (generate-new-buffer "*smtp-mail*"))
 	  (setq smtpmail-recipient-address-list
-		(smtpmail-deduce-address-list tembuf (point-min) delimline))
+		(or resend-to-addresses
+		    (smtpmail-deduce-address-list tembuf (point-min) delimline)))
 	  (kill-buffer smtpmail-address-buffer)
 
 	  (smtpmail-do-bcc delimline)