comparison 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
comparison
equal deleted inserted replaced
15594:d4c3b52a5591 15595:0d4a7f47f31d
195 ;; 195 ;;
196 ;; 196 ;;
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)
204 205
205 (if (not (null smtpmail-recipient-address-list)) 206 (if (not (null smtpmail-recipient-address-list))