diff options
| author | Miles Bader | 1996-07-04 05:45:33 +0000 |
|---|---|---|
| committer | Miles Bader | 1996-07-04 05:45:33 +0000 |
| commit | 52a2a9c397fb9cc8bb398f48c79221bc94885141 (patch) | |
| tree | ba3640e661070ce1fc74f7a1d66a20b5094f91dc | |
| parent | 22e46c6555027cbe7a48cc7c27a17c204ad06cc7 (diff) | |
| download | emacs-52a2a9c397fb9cc8bb398f48c79221bc94885141.tar.gz emacs-52a2a9c397fb9cc8bb398f48c79221bc94885141.zip | |
(smtpmail-send-it): Ignore `To:' if there is a `Resent-to':.
| -rw-r--r-- | lisp/mail/smtpmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
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.") | |||
| 197 | ;; | 197 | ;; |
| 198 | (setq smtpmail-address-buffer (generate-new-buffer "*smtp-mail*")) | 198 | (setq smtpmail-address-buffer (generate-new-buffer "*smtp-mail*")) |
| 199 | (setq smtpmail-recipient-address-list | 199 | (setq smtpmail-recipient-address-list |
| 200 | (smtpmail-deduce-address-list tembuf (point-min) delimline)) | 200 | (or resend-to-addresses |
| 201 | (smtpmail-deduce-address-list tembuf (point-min) delimline))) | ||
| 201 | (kill-buffer smtpmail-address-buffer) | 202 | (kill-buffer smtpmail-address-buffer) |
| 202 | 203 | ||
| 203 | (smtpmail-do-bcc delimline) | 204 | (smtpmail-do-bcc delimline) |