Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9a4fec2..1075ae5 100644 (file)
--- 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\e,b_\e(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\e,b_\e(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 (file)
--- 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)