Mercurial > emacs
diff lisp/mail/smtpmail.el @ 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 | 85313b347ed9 |
| children | 2feeabc94834 |
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)