From: Vitalie Spinu Date: Tue, 3 Dec 2013 01:06:12 +0000 (+0000) Subject: lisp/gnus/message.el (message-send-mail-with-sendmail): Don't kill error buffer if... X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~579 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c189568e0edfb967beef4bed58ce3889cbcec74;p=emacs.git lisp/gnus/message.el (message-send-mail-with-sendmail): Don't kill error buffer if sending fails --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 668a4eb3af6..9239b1e0e19 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2013-12-03 Vitalie Spinu (tiny change) + + * message.el (message-send-mail-with-sendmail): + Don't kill error buffer if sending fails. + 2013-11-28 Jan Tatarik * gnus-icalendar.el (gnus-icalendar-event-from-ical) diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index b7d0ada35d5..11a51a79fce 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -4739,7 +4739,9 @@ that instead." (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