From 65d59a54643aafc527d204a934f3a0dd85548a64 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 12 Jan 1998 18:56:08 +0000 Subject: [PATCH] (message-send-mail-with-smtp): Use (current-buffer) instead of `tembuf'; rename `smtp-recipient-address-list' -> `recipient-address-list'. --- lisp/message.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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")) )) -- 1.7.10.4