From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 22 Mar 2009 14:12:47 +0000 (+0000)
Subject: (rmail-expunge): Update summary buffer even if NO-SHOW.
X-Git-Tag: emacs-pretest-23.0.92~98
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=551fd0c448f83c8ca19f2ea192aad0b83c268d90;p=emacs.git

(rmail-expunge): Update summary buffer even if NO-SHOW.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 77cc3a4b8bc..108cf01f152 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-03-22  Richard M Stallman  <rms@gnu.org>
+
+	* mail/rmail.el (rmail-expunge): Update summary buffer even if NO-SHOW.
+
 2009-03-21  Jari Aalto  <jari.aalto@cante.net>
 
 	* time.el (display-time-default-load-average): Doc fix.
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index a5dc10cf4f1..f39f7bf4636 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3265,9 +3265,15 @@ See also user-option `rmail-confirm-expunge'."
   (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,