diff options
| author | Eli Zaretskii | 2009-04-04 14:22:59 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2009-04-04 14:22:59 +0000 |
| commit | 435f0dd2f5b673f238f75f04d835f72fa5be8cfa (patch) | |
| tree | ab097b45d57da956577bdc081217f2fe95a0a1f3 /lisp/mail | |
| parent | 6af84d777e13f45af34ffe9c11aa17d53b273747 (diff) | |
| download | emacs-435f0dd2f5b673f238f75f04d835f72fa5be8cfa.tar.gz emacs-435f0dd2f5b673f238f75f04d835f72fa5be8cfa.zip | |
(rmail-new-summary-1): Don't show zero count of summary lines.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmailsum.el | 3 |
1 files changed, 2 insertions, 1 deletions
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))) |