From: yamaoka <yamaoka>
Date: Thu, 12 Nov 1998 23:44:28 +0000 (+0000)
Subject: (message-maybe-split-and-send-mail): Bug fix.
X-Git-Tag: pgnus-ichikawa-199811302358~63
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5f5cd73faa7e42d9ece1b2aaede924affb9c130d;p=elisp%2Fgnus.git-

(message-maybe-split-and-send-mail): Bug fix.
---

diff --git a/lisp/message.el b/lisp/message.el
index 5759911..e88ea6e 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2310,12 +2310,16 @@ This sub function is for exclusive use of `message-send-mail'."
 		     (delete-region (match-end 0) (std11-field-end))
 		     (insert " " (message-make-message-id))))
 		 (condition-case err
-		     (funcall message-send-mail-function)
+		     (progn
+		       (funcall message-send-mail-function)
+		       nil)
 		   (error
 		    (throw 'message-sending-mail-failure err))))))
 	     nil)
 	   (condition-case err
-	       (funcall message-send-mail-function)
+	       (progn
+		 (funcall message-send-mail-function)
+		 nil)
 	     (error err))))
     (when failure
       (if (eq 'error (car failure))