* wl-folder (wl-folder-check-one-entity): Fix

problem if unread is nil.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 06e0c4c..802ad41 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-21  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl-folder (wl-folder-check-one-entity): Fix
+       problem if unread is nil.
+
 2002-01-19  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * 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 (file)
--- 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