From: yamaoka <yamaoka>
Date: Thu, 6 Jun 2002 22:11:15 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_7-02-quimby~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e80b1f43b0883f40c448302918a63cdc589f9664;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9a4fec2..1075ae5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2002-06-06  Simon Josefsson  <jas@extundo.com>
+
+	* message.el (message-send-mail-with-sendmail): Improve error message.
+
+2002-06-06  Kai Gro,b_(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+	* message.el (message-interactive): Change default from nil to t.
+	Better to be safe than to be fast.
+
 2002-06-05  Kai Gro,b_(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
 	* message.el (message-send-mail-with-sendmail): Check return value
diff --git a/lisp/message.el b/lisp/message.el
index b5b9432..f633b31 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -350,7 +350,7 @@ value may go against RFC-1036 and draft-ietf-usefor-article-05.txt. "
   :type 'string
   :group 'message-various)
 
-(defcustom message-interactive nil
+(defcustom message-interactive t
   "Non-nil means when sending a message wait for and display errors.
 nil means let mailer mail back a message to report errors."
   :group 'message-sending
@@ -3505,7 +3505,7 @@ This sub function is for exclusive use of `message-send-mail'."
 				(list resend-to-addresses)
 			      '("-t")))))))
       (unless (or (null cpr) (zerop cpr))
-	(error "Sending...failed: %s" cpr)))
+	(error "Sending...failed with exit value %d" cpr)))
     (when message-interactive
       (save-excursion
 	(set-buffer errbuf)