Fix total count of messages in Rmail summary buffers

* lisp/mail/rmailsum.el (rmail-new-summary-1): Actually count the
messages in the summary buffer instead of relying on
'rmail-total-messages'.  Reported by Andrea Monaco
<andrea.monaco@autistici.org>.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 21dec2bbeb7aff191f6903bbad969b855c50697a..e3a6c16933b915fcf28dfe75c5bf1fb403cc2976 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -742,13 +742,14 @@ message."
          (setq rmail-summary-buffer nil)))
     (save-excursion
       (let ((rbuf (current-buffer))
-           (total rmail-total-messages))
+           (total 0))
        (set-buffer sumbuf)
        ;; Set up the summary buffer's contents.
        (let ((buffer-read-only nil))
          (erase-buffer)
          (while summary-msgs
            (princ (cdr (car summary-msgs)) sumbuf)
+            (setq total (1+ total))
            (setq summary-msgs (cdr summary-msgs)))
          (goto-char (point-min)))
        ;; Set up the rest of its state and local variables.