From: morioka <morioka>
Date: Mon, 12 Jan 1998 18:56:08 +0000 (+0000)
Subject: (message-send-mail-with-smtp): Use (current-buffer) instead of
X-Git-Tag: gnus-6_7-tomo-199811302358~232
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=65d59a54643aafc527d204a934f3a0dd85548a64;p=elisp%2Fgnus.git-

(message-send-mail-with-smtp): Use (current-buffer) instead of
`tembuf'; rename `smtp-recipient-address-list' ->
`recipient-address-list'.
---

diff --git a/lisp/message.el b/lisp/message.el
index ec85c9b..a40a817 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2202,14 +2202,15 @@ to find out how to use this."
 	  ;;
 	  ;;
 	  ;;
-	  (let ((smtp-recipient-address-list
+	  (let ((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))
+	    (if recipient-address-list
+		(if (not (smtp-via-smtp recipient-address-list
+					(current-buffer)))
 		    (error "Sending failed; SMTP protocol error"))
 	      (error "Sending failed; no recipients"))
 	    ))