From a7fcc7950c31f87c2b0d71456c9aa61ec3971a0f Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 4 Dec 2000 01:40:46 +0000 Subject: [PATCH] * smtpmail.el (smtpmail-send-it): Use `smtp-send-buffer' instead of `smtp-via-smtp'. (smtpmail-send-queued-mail): Ditto. --- smtpmail.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/smtpmail.el b/smtpmail.el index 74638aa..8582394 100644 --- a/smtpmail.el +++ b/smtpmail.el @@ -226,10 +226,9 @@ This is relative to `smtpmail-queue-dir'.") ; Send or queue (if (not smtpmail-queue-mail) (if smtpmail-recipient-address-list - (if (not (smtp-via-smtp user-mail-address - smtpmail-recipient-address-list - tembuf)) - (error "Sending failed; SMTP protocol error")) + (smtp-send-buffer user-mail-address + smtpmail-recipient-address-list + tembuf) (error "Sending failed; no recipients")) (let* ((file-data (convert-standard-filename (concat @@ -284,9 +283,8 @@ This is relative to `smtpmail-queue-dir'.") (load file-msg) (setq tembuf (find-file-noselect-as-binary file-msg)) (if smtpmail-recipient-address-list - (if (not (smtp-via-smtp user-mail-address - smtpmail-recipient-address-list tembuf)) - (error "Sending failed; SMTP protocol error")) + (smtp-send-buffer user-mail-address + smtpmail-recipient-address-list tembuf) (error "Sending failed; no recipients")) (delete-file file-msg) (delete-file (concat file-msg ".el")) -- 1.7.10.4