(rmail-expunge-and-save): Mark summary buffer as unmodified.

c7065819 · Karl Heuer · e5074474 · c7065819
Commit c7065819 authored Feb 09, 1994 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/mail/rmail.el lisp/mail/rmail.el +3 -1

No files found.
--- 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."