Mercurial > emacs
comparison lisp/mail/rmail.el @ 17640:bd31032a2940
(rmail-count-new-messages): Fix previous change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 04 May 1997 03:44:31 +0000 |
parents | de5770c149d9 |
children | b85205cfba13 |
comparison
equal
deleted
inserted
replaced
17639:5339baa0a334 | 17640:bd31032a2940 |
---|---|
1796 (setq rmail-summary-vector | 1796 (setq rmail-summary-vector |
1797 (vconcat rmail-summary-vector (make-vector total-messages nil))) | 1797 (vconcat rmail-summary-vector (make-vector total-messages nil))) |
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)))) |
1805 (goto-char (point-min)) | 1805 (goto-char (point-min)) |
1806 (or nomsg (message "Counting new messages...done (%d)" total-messages)))) | 1806 (or nomsg (message "Counting new messages...done (%d)" total-messages)))) |