changeset 15595:0d4a7f47f31d

(smtpmail-send-it): Ignore `To:' if there is a `Resent-to':.
author Miles Bader <miles@gnu.org>
date Thu, 04 Jul 1996 05:45:33 +0000
parents d4c3b52a5591
children 7d29420c2fec
files lisp/mail/smtpmail.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)