(message-send-mail-with-sendmail): Display the error message.

2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 271d33f562b..893ca129b3a 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,7 +1,12 @@
+2008-07-10  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * message.el (message-send-mail-with-sendmail):
+        Display the error message.
+
 2008-07-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-        * gnus-art.el (gnus-default-article-saver): Add
-        gnus-summary-save-in-pipe to choices.
+        * gnus-art.el (gnus-default-article-saver):
+        Add gnus-summary-save-in-pipe to choices.
         (gnus-summary-save-in-pipe): Add :decode and :headers properties; use
         gnus-summary-pipe-output-default-command as the default command.
         (gnus-summary-pipe-to-muttprint): Update gnus-summary-muttprint-program
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 0a38ec028c1..ac4de57a736 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4515,6 +4515,7 @@ If you always want Gnus to send messages in one piece, set
                             (list resend-to-addresses)
                           '("-t"))))))
             (unless (or (null cpr) (and (numberp cpr) (zerop cpr)))
+              (if errbuf (pop-to-buffer errbuf))
               (error "Sending...failed with exit value %d" cpr)))
           (when message-interactive
             (with-current-buffer errbuf