From 51d46f996973ae94e0fedef102653b8f57e75c68 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Mon, 27 Nov 2000 01:44:39 +0000
Subject: [PATCH] * lisp/gnus-vers.el (gnus-revision-number): Increment to 08.
 * lisp/message.el (message-send-mail-with-smtp): Leave the
 error handling  in `smtp-send-buffer's own care.

---
 ChangeLog         |    9 ++++++++-
 lisp/gnus-vers.el |    2 +-
 lisp/message.el   |   15 +++++++--------
 3 files changed, 16 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4b4003f..981e30b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
+2000-11-27  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-vers.el (gnus-revision-number): Increment to 08.
+
+	* lisp/message.el (message-send-mail-with-smtp): Leave the error
+	handling in `smtp-send-buffer's own care.
+
 2000-11-26  Tatsuya Ichikawa  <ichikawa@eitc.epson.com>
-	
+
 	* lisp/message.el: Undo changes.
 
 2000-11-26  Tatsuya Ichikawa  <ichikawa@eitc.epson.com>
diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el
index 2ffcc1b..95456e5 100644
--- a/lisp/gnus-vers.el
+++ b/lisp/gnus-vers.el
@@ -31,7 +31,7 @@
 (require 'product)
 (provide 'gnus-vers)
 
-(defconst gnus-revision-number "07"
+(defconst gnus-revision-number "08"
   "Revision number for this version of gnus.")
 
 ;; Product information of this gnus.
diff --git a/lisp/message.el b/lisp/message.el
index e10caf1..baeccc8 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3069,14 +3069,13 @@ to find out how to use this."
     (backward-char 1)
     (run-hooks 'message-send-mail-hook)
     (if recipients
-	(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)))
+	(static-if (fboundp 'smtp-send-buffer)
+	    (smtp-send-buffer user-mail-address recipients
+			      (current-buffer))
+	  (let ((result (smtp-via-smtp user-mail-address recipients
+				       (current-buffer))))
+	    (unless (eq result t)
+	      (error "Sending failed; %s" result))))
       (error "Sending failed; no recipients"))))
 
 (defsubst message-maybe-split-and-send-news (method)
-- 
1.7.10.4