(rmail-new-summary-1): Don't show zero count of summary lines.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f02ca12b5e6480bc0541daf1b1c7c7c1bd4f346b..7bd468c27528186132397e3f712903d19a331590 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-04-04  Eli Zaretskii  <eliz@gnu.org>
+
+       * mail/rmailsum.el (rmail-new-summary-1): Don't show zero count of
+       summary lines.
+
 2009-04-02  Chong Yidong  <cyd@stupidchicken.com>
 
        * dired.el (dired-get-filename): Always pass filename through

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 3c9d3e547099e8a63bdc158c78bf1e1e243d30e6..c35e4856f9c5893fe3921a2d3b2d0542a66d9efd 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -291,7 +291,8 @@ message."
                                    summary-msgs))))
                  (setq msgnum (1+ msgnum))
                  ;; Provide a periodic User progress message.
-                 (if (zerop (% rmail-new-summary-line-count 10))
+                 (if (and (not (zerop rmail-new-summary-line-count))
+                          (zerop (% rmail-new-summary-line-count 10)))
                      (message "Computing summary lines...%d"
                               rmail-new-summary-line-count)))
                (setq summary-msgs (nreverse summary-msgs)))