From 52a2a9c397fb9cc8bb398f48c79221bc94885141 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 4 Jul 1996 05:45:33 +0000 Subject: [PATCH] (smtpmail-send-it): Ignore `To:' if there is a `Resent-to':. --- lisp/mail/smtpmail.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.2