From e80b1f43b0883f40c448302918a63cdc589f9664 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 6 Jun 2002 22:11:15 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 9 +++++++++ lisp/message.el | 4 ++-- 2 files changed, 11 insertions(+), 2 deletions(-) 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 + + * message.el (message-send-mail-with-sendmail): Improve error message. + +2002-06-06 Kai Gro,b_(Bjohann + + * 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 * 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) -- 1.7.10.4