(smtpmail-send-it): Don't generate and kill `smtp-address-buffer' for

`smtp-deduce-address-list'.

diff --git a/lisp/smtpmail.el b/lisp/smtpmail.el
index e10e03d..ee82d03 100644 (file)
--- a/lisp/smtpmail.el
+++ b/lisp/smtpmail.el
@@ -200,12 +200,10 @@ This is relative to `smtpmail-queue-dir'.")
          ;;
          ;;
          ;;
-         (setq smtp-address-buffer (generate-new-buffer "*smtp-mail*"))
          (setq smtp-recipient-address-list
                (or resend-to-addresses
                    (smtp-deduce-address-list tembuf (point-min) delimline)))
-         (kill-buffer smtp-address-buffer)
-         
+
          (smtp-do-bcc delimline)
          ; Send or queue
          (if (not smtpmail-queue-mail)