From 79d8d8d54746785aafe4434cefed3a873e7a925e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 4 May 1997 03:44:31 +0000 Subject: [PATCH] (rmail-count-new-messages): Fix previous change. --- lisp/mail/rmail.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index a72c16469a8..0ee6ce10f16 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1798,7 +1798,7 @@ change the invisible header text." (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)))) -- 2.39.5