From d55aa13d564359a4dff01c15e79c5548aba5e631 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 12 Jan 1998 18:39:36 +0000 Subject: [PATCH] (message-send-mail-with-smtp): Don't use `smtp-recipient-address-list' as global variable. --- lisp/message.el | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index cf49b9e..ec85c9b 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -2202,18 +2202,17 @@ to find out how to use this." ;; ;; ;; - (setq smtp-recipient-address-list - (or resend-to-addresses - (smtp-deduce-address-list (current-buffer) - (point-min) delimline))) - - (smtp-do-bcc delimline) - - (if (not (null smtp-recipient-address-list)) - (if (not (smtp-via-smtp smtp-recipient-address-list tembuf)) - (error "Sending failed; SMTP protocol error")) - (error "Sending failed; no recipients")) - ) + (let ((smtp-recipient-address-list + (or resend-to-addresses + (smtp-deduce-address-list (current-buffer) + (point-min) delimline)))) + (smtp-do-bcc delimline) + + (if smtp-recipient-address-list + (if (not (smtp-via-smtp smtp-recipient-address-list tembuf)) + (error "Sending failed; SMTP protocol error")) + (error "Sending failed; no recipients")) + )) (if (bufferp errbuf) (kill-buffer errbuf))))) -- 1.7.10.4