From 7e1c0d05a929a3473ef1b4e7a86baa269549993c Mon Sep 17 00:00:00 2001 From: okada Date: Sun, 20 Jan 2002 20:37:55 +0000 Subject: [PATCH] * wl-folder (wl-folder-check-one-entity): Fix problem if unread is nil. --- wl/ChangeLog | 5 +++++ wl/wl-folder.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 06e0c4c..802ad41 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-01-21 Kenichi OKADA + + * wl-folder (wl-folder-check-one-entity): Fix + problem if unread is nil. + 2002-01-19 Yoichi NAKAYAMA * wl-address.el (wl-address-make-completion-list): Check whether diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 7464e65..43af1d2 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -835,7 +835,8 @@ Optional argument ARG is repeart count." all (and all (max 0 all)))) (setq unread (or ;; If server diff, All unreads are ; treated as unsync. - (and (elmo-folder-use-flag-p folder) + (and unread + (elmo-folder-use-flag-p folder) (- unread (or new 0))) (elmo-folder-get-info-unread folder) (cdr (wl-summary-count-unread -- 1.7.10.4