(rmail-select-summary): Preserve rmail buffer's value of

rmail-total-messages even while summary buffer is current.

lisp/mail/rmail.el

@@ -200,18 +200,25 @@ Called with region narrowed to the message, including headers.")
 ;; Perform BODY in the summary buffer
 ;; in such a way that its cursor is properly updated in its own window.
 (defmacro rmail-select-summary (&rest body)
-  (` (progn (if (rmail-summary-displayed)
-		(let ((window (selected-window)))
-		  (save-excursion
-		    (unwind-protect
-			(progn
-			  (pop-to-buffer rmail-summary-buffer)
-			  (,@ body))
-		      (select-window window))))
-	      (save-excursion
-		(set-buffer rmail-summary-buffer)
-		(progn (,@ body))))
-	    (rmail-maybe-display-summary))))
+  (` (let ((total rmail-total-messages))
+       (if (rmail-summary-displayed)
+	   (let ((window (selected-window)))
+	     (save-excursion
+	       (unwind-protect
+		   (progn
+		     (pop-to-buffer rmail-summary-buffer)
+		     ;; rmail-total-messages is a buffer-local var
+		     ;; in the rmail buffer.
+		     ;; This way we make it available for the body
+		     ;; even tho the rmail buffer is not current.
+		     (let ((rmail-total-messages total))
+		       (,@ body)))
+		 (select-window window))))
+	 (save-excursion
+	   (set-buffer rmail-summary-buffer)
+	   (let ((rmail-total-messages total))
+	     (,@ body))))
+       (rmail-maybe-display-summary))))
 
 ;;;; *** Rmail Mode ***