[Emacs-diffs] trunk r115356: lisp/gnus/message.el (message-send-mail-with-sendmail): Don't kill error buffer if sending fails

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 115356
revision-id: address@hidden
parent: address@hidden
author: Vitalie Spinu <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2013-12-03 01:06:12 +0000
message:
  lisp/gnus/message.el (message-send-mail-with-sendmail): Don't kill error 
buffer if sending fails
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/message.el           message.el-20091113204419-o5vbwnq5f7feedwu-1145

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-11-28 23:33:52 +0000
+++ b/lisp/gnus/ChangeLog       2013-12-03 01:06:12 +0000
@@ -1,3 +1,8 @@
+2013-12-03  Vitalie Spinu  <address@hidden>  (tiny change)
+
+       * message.el (message-send-mail-with-sendmail):
+       Don't kill error buffer if sending fails.
+
 2013-11-28  Jan Tatarik  <address@hidden>
 
        * gnus-icalendar.el (gnus-icalendar-event-from-ical)

=== modified file 'lisp/gnus/message.el'
--- a/lisp/gnus/message.el      2013-11-20 04:25:37 +0000
+++ b/lisp/gnus/message.el      2013-12-03 01:06:12 +0000
@@ -4739,7 +4739,9 @@
                            (list resend-to-addresses)
                          '("-t"))))))
            (unless (or (null cpr) (and (numberp cpr) (zerop cpr)))
-              (if errbuf (pop-to-buffer errbuf))
+             (when errbuf
+               (pop-to-buffer errbuf)
+               (setq errbuf nil))
              (error "Sending...failed with exit value %d" cpr)))
          (when message-interactive
            (with-current-buffer errbuf