Mercurial > emacs
changeset 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 | 84ad3a2c5373 |
| children | 882894a8c217 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
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."