From c70658194a9fa51199fc6ee58ff17cc01c69b8e9 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 9 Feb 1994 04:25:48 +0000 Subject: [PATCH] (rmail-expunge-and-save): Mark summary buffer as unmodified. --- lisp/mail/rmail.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 3641f470673..17b87a83c4d 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -634,7 +634,9 @@ Instead, these commands are available: "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." -- 2.39.5