diff options
| author | Richard Ryniker | 2015-03-30 17:38:25 +0200 |
|---|---|---|
| committer | Martin Rudalics | 2015-03-30 17:38:25 +0200 |
| commit | d9eff02736c975dc5035e02249ff17c8a068d203 (patch) | |
| tree | 1dfd01b2fa10f31ed683a4675b9df1630314d9dc | |
| parent | d16fb740912bf4874e7087f6f419427516047977 (diff) | |
| download | emacs-d9eff02736c975dc5035e02249ff17c8a068d203.tar.gz emacs-d9eff02736c975dc5035e02249ff17c8a068d203.zip | |
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)
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/mail/sendmail.el | 8 |
2 files changed, 10 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fd346f05afb..69d9ab9f977 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2015-03-30 Richard Ryniker <ryniker@alum.mit.edu> (tiny change) | ||
| 2 | |||
| 3 | * mail/sendmail.el (sendmail-send-it): Do not attempt to switch | ||
| 4 | to non-existent buffer (errbuf is not created when customization | ||
| 5 | variable mail-interactive is nil). (Bug#20211) | ||
| 6 | |||
| 1 | 2015-03-29 Stefan Monnier <monnier@iro.umontreal.ca> | 7 | 2015-03-29 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 8 | ||
| 3 | * emacs-lisp/smie.el (smie-backward-sexp-command) | 9 | * emacs-lisp/smie.el (smie-backward-sexp-command) |
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'." | |||
| 1299 | (error "Sending...failed to %s" | 1299 | (error "Sending...failed to %s" |
| 1300 | (buffer-substring (point-min) (point-max))))))) | 1300 | (buffer-substring (point-min) (point-max))))))) |
| 1301 | (kill-buffer tembuf) | 1301 | (kill-buffer tembuf) |
| 1302 | (if (and (bufferp errbuf) | 1302 | (when (buffer-live-p errbuf) |
| 1303 | (not error)) | 1303 | (if error |
| 1304 | (kill-buffer errbuf) | 1304 | (switch-to-buffer-other-window errbuf) |
| 1305 | (switch-to-buffer-other-window errbuf))))) | 1305 | (kill-buffer errbuf)))))) |
| 1306 | 1306 | ||
| 1307 | (autoload 'rmail-output-to-rmail-buffer "rmailout") | 1307 | (autoload 'rmail-output-to-rmail-buffer "rmailout") |
| 1308 | 1308 | ||