From 5a870dba4562216034954b3c781bfa8678e82f81 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 12 Jan 1998 18:07:40 +0000 Subject: [PATCH] (message-send-mail-with-smtp): Don't generate temporary buffer for message; don't generate and kill `smtp-address-buffer' for `smtp-deduce-address-list'. --- lisp/message.el | 15 ++++----------- 1 file changed, 4 insertions(+), 11 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index a1a5bf3..cf49b9e 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -2084,16 +2084,11 @@ to find out how to use this." (let ((errbuf (if mail-interactive (generate-new-buffer " smtp errors") 0)) - (tembuf (generate-new-buffer " smtp temp")) (case-fold-search nil) resend-to-addresses - delimline - (mailbuf (current-buffer))) + delimline) (unwind-protect (save-excursion - (set-buffer tembuf) - (erase-buffer) - (insert-buffer-substring mailbuf) (goto-char (point-max)) ;; require one newline at the end. (or (= (preceding-char) ?\n) @@ -2207,12 +2202,11 @@ to find out how to use this." ;; ;; ;; - (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-deduce-address-list (current-buffer) + (point-min) delimline))) + (smtp-do-bcc delimline) (if (not (null smtp-recipient-address-list)) @@ -2220,7 +2214,6 @@ to find out how to use this." (error "Sending failed; SMTP protocol error")) (error "Sending failed; no recipients")) ) - (kill-buffer tembuf) (if (bufferp errbuf) (kill-buffer errbuf))))) -- 1.7.10.4