From: okada Date: Mon, 4 Dec 2000 02:27:34 +0000 (+0000) Subject: 2000-12-04 Daiki Ueno X-Git-Tag: slim-1_14_5~2 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7e76e917c32c53093125ea24731b6018cf2a6139;p=elisp%2Fflim.git 2000-12-04 Daiki Ueno * smtpmail.el (smtpmail-send-it): Use `smtp-send-buffer' instead of `smtp-via-smtp'. (smtpmail-send-queued-mail): Ditto. --- diff --git a/ChangeLog b/ChangeLog index 04fb505..86e79cf 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'. 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"))