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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 271d33f562b1db1ddb53a58e6d273ac5f4aa0535..893ca129b3a75d09ac6a4a9c1a3da1df8f8d709b 100644 (file)
--- 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 0a38ec028c1dfc62c1411e64f4ba4e1580dede0e..ac4de57a736953840afe2d489af911ef9907f45f 100644 (file)
--- 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