(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 (file)
--- 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"))
            ))