Mercurial > emacs

comparison lisp/mail/rmail.el @ 17640:bd31032a2940

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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))))