From: Vitalie Spinu <spinuvit@gmail.com>
Date: Tue, 3 Dec 2013 01:06:09 +0000 (+0000)
Subject: message.el (message-send-mail-with-sendmail): Don't kill error buffer if sending... 
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=b9417d106244d5023ce1bead25dd143dad93818e

message.el (message-send-mail-with-sendmail): Don't kill error buffer if sending fails
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eeda5bc76..a286a825d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-03  Vitalie Spinu  <spinuvit@gmail.com>  (tiny change)
+
+	* message.el (message-send-mail-with-sendmail):
+	Don't kill error buffer if sending fails.
+
 2013-11-28  Jan Tatarik  <jan.tatarik@gmail.com>
 
 	* gnus-icalendar.el (gnus-icalendar-event-from-ical)
diff --git a/lisp/message.el b/lisp/message.el
index 6e1e964a8..4a7c2ab96 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4783,7 +4783,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