From: okada <okada>
Date: Sun, 20 Jan 2002 20:37:55 +0000 (+0000)
Subject: * wl-folder (wl-folder-check-one-entity): Fix
X-Git-Tag: wl-2_9_6~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7e1c0d05a929a3473ef1b4e7a86baa269549993c;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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