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

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 801cac7fcb5c41c89daa9dfc4095f06c104f8f06..16123aede2b775b2f4d2f9adabc3393f8e9bbd8b 100644 (file)
--- 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)