From 01f6e6c4a073e0bb9a85076d152a024a3c9f3321 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 21 Nov 2000 01:51:23 +0000 Subject: [PATCH] (message-send-mail-with-smtp): Use `smtp-send-buffer' if it exists instead of `smtp-via-smtp'. --- ChangeLog | 5 +++++ lisp/message.el | 9 ++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index ff363b5..85a3dad 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-11-21 Katsumi Yamaoka + + * lisp/message.el (message-send-mail-with-smtp): Use + `smtp-send-buffer' if it exists instead of `smtp-via-smtp'. + 2000-11-16 Katsuhiro Hermit Endo * texi/gnus-ja.texi (Drafts): Fix typo. diff --git a/lisp/message.el b/lisp/message.el index fc8cf0c..e10caf1 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3069,9 +3069,12 @@ to find out how to use this." (backward-char 1) (run-hooks 'message-send-mail-hook) (if recipients - (let ((result (smtp-via-smtp user-mail-address - recipients - (current-buffer)))) + (let ((result (static-if (fboundp 'smtp-send-buffer) + (smtp-send-buffer user-mail-address recipients + (current-buffer)) + (smtp-via-smtp user-mail-address + recipients + (current-buffer))))) (unless (eq result t) (error "Sending failed; " result))) (error "Sending failed; no recipients")))) -- 1.7.10.4