From 4af704c587edbaf2de0ee20e249ed8138a178122 Mon Sep 17 00:00:00 2001 From: okada Date: Mon, 4 Dec 2000 02:27:03 +0000 Subject: [PATCH] 2000-12-04 Daiki Ueno * smtpmail.el (smtpmail-send-it): Use `smtp-send-buffer' instead of `smtp-via-smtp'. (smtpmail-send-queued-mail): Ditto. --- ChangeLog | 8 +++++++- smtpmail.el | 12 +++++------- 2 files changed, 12 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index f3a238d..fdba828 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2000-12-04 Daiki Ueno + + * smtpmail.el (smtpmail-send-it): Use `smtp-send-buffer' instead of + `smtp-via-smtp'. + (smtpmail-send-queued-mail): Ditto. + 2000-11-24 MORIOKA Tomohiko * FLIM-MK (compile-flim): Compile `flim-version-specific-modules'. @@ -2580,7 +2586,7 @@ 1998-07-01 MORIOKA Tomohiko - * FLIM: Version 1.8.0 (-DÒkubo)-A was released. + * FLIM: Version 1.8.0 (-Dƒkubo)-A was released. * README.en: Delete `How to use'. 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