* 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.

diff --git a/ChangeLog b/ChangeLog
index 8603a15..82bc905 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+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-22  Katsumi Yamaoka <yamaoka@jpl.org>
 
        * lisp/gnus-vers.el (gnus-revision-number): Increment to 07.

diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el
index e8bf15e..b9295fa 100644 (file)
--- 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 102a635..fa11541 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3179,14 +3179,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)