# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1237731154 0
# Node ID 1089802614ebc60177a2cca0cf77ae1d08d44764
# Parent  2b789f732afbd6421999566c0e4ec54dbf9d2a26
(rmail-expunge): Update summary buffer even if NO-SHOW.

diff -r 2b789f732afb -r 1089802614eb lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sun Mar 22 02:43:37 2009 +0000
+++ b/lisp/mail/rmail.el	Sun Mar 22 14:12:34 2009 +0000
@@ -3265,9 +3265,15 @@
   (interactive)
   (when (rmail-expunge-confirmed)
     (let ((was-deleted (rmail-message-deleted-p rmail-current-message))
-	  (was-swapped (rmail-buffers-swapped-p)))
+	  (was-swapped (rmail-buffers-swapped-p))
+	  (total rmail-total-messages))
       (rmail-only-expunge t)
-      (unless dont-show
+      (if dont-show
+	  ;; Do update the summary buffer, if any.
+	  (when (rmail-summary-exists)
+	    (with-current-buffer rmail-summary-buffer
+	      (let ((rmail-total-messages total))
+		(rmail-update-summary))))
 	(if (rmail-summary-exists)
 	    (rmail-select-summary (rmail-update-summary))
 	  ;; If we expunged the current message, a new one is current now,