* lisp/mail/rmail.el (rmail-quit): Handle killed summaries.

Fixes: debbugs:17283
This commit is contained in:
Glenn Morris 2014-04-29 11:51:49 -04:00
parent a55ea27f60
commit 9a3f71f795
2 changed files with 6 additions and 3 deletions

View file

@ -1,3 +1,7 @@
2014-04-29 Glenn Morris <rgm@gnu.org>
* mail/rmail.el (rmail-quit): Handle killed summaries. (Bug#17283)
2014-04-27 Matthias Dahl <matthias.dahl@binary-island.eu>
* faces.el (face-spec-recalc): Apply X resources only after the

View file

@ -1,7 +1,6 @@
;;; rmail.el --- main code of "RMAIL" mail reader for Emacs
;; Copyright (C) 1985-1988, 1993-1998, 2000-2014 Free Software
;; Foundation, Inc.
;; Copyright (C) 1985-1988, 1993-1998, 2000-2014 Free Software Foundation, Inc.
;; Maintainer: emacs-devel@gnu.org
;; Keywords: mail
@ -1573,7 +1572,7 @@ Hook `rmail-quit-hook' is run after expunging."
(when (boundp 'rmail-quit-hook)
(run-hooks 'rmail-quit-hook))
;; Don't switch to the summary buffer even if it was recently visible.
(when rmail-summary-buffer
(when (rmail-summary-exists)
(with-current-buffer rmail-summary-buffer
(set-buffer-modified-p nil))
(replace-buffer-in-windows rmail-summary-buffer)