From: morioka <morioka>
Date: Mon, 12 Jan 1998 18:39:36 +0000 (+0000)
Subject: (message-send-mail-with-smtp): Don't use `smtp-recipient-address-list'
X-Git-Tag: gnus-6_7-tomo-199811302358~235
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d55aa13d564359a4dff01c15e79c5548aba5e631;p=elisp%2Fgnus.git-

(message-send-mail-with-smtp): Don't use `smtp-recipient-address-list'
as global variable.
---

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)))))