From: yamaoka <yamaoka>
Date: Tue, 21 Nov 2000 01:51:23 +0000 (+0000)
Subject: (message-send-mail-with-smtp): Use `smtp-send-buffer' if it exists instead of
X-Git-Tag: t-gnus-6_14_5-07~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=01f6e6c4a073e0bb9a85076d152a024a3c9f3321;p=elisp%2Fgnus.git-

(message-send-mail-with-smtp): Use `smtp-send-buffer' if it exists instead of
 `smtp-via-smtp'.
---

diff --git a/ChangeLog b/ChangeLog
index ff363b5..85a3dad 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-21  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* 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  <hermit@koka-in.org>
 
 	* 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"))))