# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1237733442 0
# Node ID 4108d3644bad22ad7748d31ead90236bf0527fb5
# Parent  04c29e64ca1a980fcedb4f42267ee507aec00897
(rmail-expunge): Without DONT-SHOW, show the message even after
updating summary.

diff -r 04c29e64ca1a -r 4108d3644bad lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sun Mar 22 14:12:47 2009 +0000
+++ b/lisp/mail/rmail.el	Sun Mar 22 14:50:42 2009 +0000
@@ -3265,25 +3265,26 @@
   (interactive)
   (when (rmail-expunge-confirmed)
     (let ((was-deleted (rmail-message-deleted-p rmail-current-message))
-	  (was-swapped (rmail-buffers-swapped-p))
-	  (total rmail-total-messages))
+	  (was-swapped (rmail-buffers-swapped-p)))
       (rmail-only-expunge t)
       (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))))
+	  (let ((total rmail-total-messages))
+	    (when (rmail-summary-exists)
+	      (with-current-buffer rmail-summary-buffer
+		(let ((rmail-total-messages total))
+		  (rmail-update-summary)))))
+	;; Update the summary and show it.
 	(if (rmail-summary-exists)
-	    (rmail-select-summary (rmail-update-summary))
-	  ;; If we expunged the current message, a new one is current now,
-	  ;; so show it.  If we weren't showing a message, show it. 
-	  (if (or was-deleted (not was-swapped))
-	      (rmail-show-message-1 rmail-current-message)
-	    ;; Show the same message that was being shown before.
-	    (rmail-display-labels)
-	    (rmail-swap-buffers)
-	    (setq rmail-buffer-swapped t)))))))
+	    (rmail-select-summary (rmail-update-summary)))
+	;; If we expunged the current message, a new one is current now,
+	;; so show it.  If we weren't showing a message, show it. 
+	(if (or was-deleted (not was-swapped))
+	    (rmail-show-message-1 rmail-current-message)
+	  ;; Show the same message that was being shown before.
+	  (rmail-display-labels)
+	  (rmail-swap-buffers)
+	  (setq rmail-buffer-swapped t))))))
 
 ;;;; *** Rmail Mailing Commands ***