diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/mail/rmailsum.el | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f02ca12b5e6..7bd468c2752 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2009-04-04 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * mail/rmailsum.el (rmail-new-summary-1): Don't show zero count of | ||
| 4 | summary lines. | ||
| 5 | |||
| 1 | 2009-04-02 Chong Yidong <cyd@stupidchicken.com> | 6 | 2009-04-02 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 7 | ||
| 3 | * dired.el (dired-get-filename): Always pass filename through | 8 | * dired.el (dired-get-filename): Always pass filename through |
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 3c9d3e54709..c35e4856f9c 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el | |||
| @@ -291,7 +291,8 @@ message." | |||
| 291 | summary-msgs)))) | 291 | summary-msgs)))) |
| 292 | (setq msgnum (1+ msgnum)) | 292 | (setq msgnum (1+ msgnum)) |
| 293 | ;; Provide a periodic User progress message. | 293 | ;; Provide a periodic User progress message. |
| 294 | (if (zerop (% rmail-new-summary-line-count 10)) | 294 | (if (and (not (zerop rmail-new-summary-line-count)) |
| 295 | (zerop (% rmail-new-summary-line-count 10))) | ||
| 295 | (message "Computing summary lines...%d" | 296 | (message "Computing summary lines...%d" |
| 296 | rmail-new-summary-line-count))) | 297 | rmail-new-summary-line-count))) |
| 297 | (setq summary-msgs (nreverse summary-msgs))) | 298 | (setq summary-msgs (nreverse summary-msgs))) |