# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 862717471 0
# Node ID bd31032a294048ffd16439ea7f2b9035e8949571
# Parent  5339baa0a33468783421b1247ae70eea4ccc5ab9
(rmail-count-new-messages): Fix previous change.

diff -r 5339baa0a334 -r bd31032a2940 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sun May 04 02:29:41 1997 +0000
+++ b/lisp/mail/rmail.el	Sun May 04 03:44:31 1997 +0000
@@ -1798,7 +1798,7 @@
     (setq rmail-msgref-vector
 	  (vconcat rmail-msgref-vector (make-vector total-messages nil)))
     ;; Fill in the new elements of rmail-msgref-vector.
-    (let ((i (- rmail-total-messages old-total-messages)))
+    (let ((i (1+ (- rmail-total-messages total-messages))))
       (while (<= i rmail-total-messages)
 	(aset rmail-msgref-vector i (list i))
 	(setq i (1+ i))))