diff options
| author | Richard M. Stallman | 1997-05-04 03:44:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-04 03:44:31 +0000 |
| commit | 79d8d8d54746785aafe4434cefed3a873e7a925e (patch) | |
| tree | f6510b3a513d86e7ff3a01abb17ee406758e1716 | |
| parent | c5049fa0d924d862d65e7fa693d5c901202e6222 (diff) | |
| download | emacs-79d8d8d54746785aafe4434cefed3a873e7a925e.tar.gz emacs-79d8d8d54746785aafe4434cefed3a873e7a925e.zip | |
(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." | |||
| 1798 | (setq rmail-msgref-vector | 1798 | (setq rmail-msgref-vector |
| 1799 | (vconcat rmail-msgref-vector (make-vector total-messages nil))) | 1799 | (vconcat rmail-msgref-vector (make-vector total-messages nil))) |
| 1800 | ;; Fill in the new elements of rmail-msgref-vector. | 1800 | ;; Fill in the new elements of rmail-msgref-vector. |
| 1801 | (let ((i (- rmail-total-messages old-total-messages))) | 1801 | (let ((i (1+ (- rmail-total-messages total-messages)))) |
| 1802 | (while (<= i rmail-total-messages) | 1802 | (while (<= i rmail-total-messages) |
| 1803 | (aset rmail-msgref-vector i (list i)) | 1803 | (aset rmail-msgref-vector i (list i)) |
| 1804 | (setq i (1+ i)))) | 1804 | (setq i (1+ i)))) |