diff options
| author | Vitalie Spinu <spinuvit@gmail.com> | 2013-12-03 01:06:12 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-12-03 01:06:12 +0000 |
| commit | 0c189568e0edfb967beef4bed58ce3889cbcec74 (patch) | |
| tree | ad41f74b16c8b5d0ca9e9d3a6cdbc5476a020e99 /lisp/gnus/message.el | |
| parent | 0f457a371c67e28f4eb7ddc60750169badc7f8d8 (diff) | |
| download | emacs-0c189568e0edfb967beef4bed58ce3889cbcec74.tar.gz | |
lisp/gnus/message.el (message-send-mail-with-sendmail): Don't kill error buffer if sending fails
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |