diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-05-04 03:44:31 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-05-04 03:44:31 +0000 |
commit | 1ecb6b76652ab401b68f0a400b9dc3c0a80a2905 (patch) | |
tree | 266d1fe5d86ee3157968beb5ad753ca62ca73ccb | |
parent | ca0510579e07bfc9aad9969e218f99958222685b (diff) | |
download | emacs-1ecb6b76652ab401b68f0a400b9dc3c0a80a2905.tar.gz |
(rmail-count-new-messages): Fix previous change.
-rw-r--r-- | lisp/mail/rmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |