# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 760767948 0
# Node ID ba1ff614b8f2bf099c2a2be553b9144b8f700637
# Parent  84ad3a2c5373305014605a855d2b01f233c0dfb1
(rmail-expunge-and-save): Mark summary buffer as unmodified.

diff -r 84ad3a2c5373 -r ba1ff614b8f2 lisp/mail/rmail.el
--- 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."