Mercurial > emacs
diff lisp/mail/rmail.el @ 5860:ba1ff614b8f2
(rmail-expunge-and-save): Mark summary buffer as unmodified.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 09 Feb 1994 04:25:48 +0000 |
| parents | dc5249a23957 |
| children | 3d155c2636bf |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Wed Feb 09 04:08:17 1994 +0000 +++ b/lisp/mail/rmail.el Wed Feb 09 04:25:48 1994 +0000 @@ -634,7 +634,9 @@ "Expunge and save RMAIL file." (interactive) (rmail-expunge) - (save-buffer)) + (save-buffer) + (if (rmail-summary-exists) + (rmail-select-summary (set-buffer-modified-p nil)))) (defun rmail-quit () "Quit out of RMAIL."