diff options
author | Richard Ryniker <ryniker@alum.mit.edu> | 2015-03-30 17:38:25 +0200 |
---|---|---|
committer | Martin Rudalics <rudalics@gmx.at> | 2015-03-30 17:38:25 +0200 |
commit | d9eff02736c975dc5035e02249ff17c8a068d203 (patch) | |
tree | 1dfd01b2fa10f31ed683a4675b9df1630314d9dc /lisp/mail | |
parent | d16fb740912bf4874e7087f6f419427516047977 (diff) | |
download | emacs-d9eff02736c975dc5035e02249ff17c8a068d203.tar.gz |
In sendmail-send-it don't switch to non-existent buffer. (Bug#20211)
* mail/sendmail.el (sendmail-send-it): Do not attempt to switch
to non-existent buffer (errbuf is not created when customization
variable mail-interactive is nil). (Bug#20211)
Diffstat (limited to 'lisp/mail')
-rw-r--r-- | lisp/mail/sendmail.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 7e9bd5bca2f..9fa7aa5a6f2 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -1299,10 +1299,10 @@ external program defined by `sendmail-program'." (error "Sending...failed to %s" (buffer-substring (point-min) (point-max))))))) (kill-buffer tembuf) - (if (and (bufferp errbuf) - (not error)) - (kill-buffer errbuf) - (switch-to-buffer-other-window errbuf))))) + (when (buffer-live-p errbuf) + (if error + (switch-to-buffer-other-window errbuf) + (kill-buffer errbuf)))))) (autoload 'rmail-output-to-rmail-buffer "rmailout") |