# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 836459133 0
# Node ID 0d4a7f47f31de291803e564f1524557145b6027f
# Parent  d4c3b52a5591968fd8b2d85ebddb136d49cdf476
(smtpmail-send-it): Ignore `To:' if there is a `Resent-to':.

diff -r d4c3b52a5591 -r 0d4a7f47f31d lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Thu Jul 04 04:16:24 1996 +0000
+++ b/lisp/mail/smtpmail.el	Thu Jul 04 05:45:33 1996 +0000
@@ -197,7 +197,8 @@
 	  ;;
 	  (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)