From: hmurata <hmurata>
Date: Sat, 19 Jan 2002 08:35:18 +0000 (+0000)
Subject: * elmo-filter.el (elmo-filter-folder-list-unreads-internal): Call
X-Git-Tag: wl-2_9_6~46
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c54b1f19671dcedaa71e2016b23fdab27cdf960d;p=elisp%2Fwanderlust.git

* elmo-filter.el (elmo-filter-folder-list-unreads-internal): Call
method of target folder with self mark-alist if MARK-ALIST is nil.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index a5d5e70..377d1fe 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-19  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-filter.el (elmo-filter-folder-list-unreads-internal): Call
+	method of target folder with self mark-alist if MARK-ALIST is nil.
+
 2002-01-19  Kenichi OKADA  <okada@opaopa.org>
 
 	* elmo-version.el (elmo-version): Up to 2.9.5.
diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el
index 3a29327..11b4cbd 100644
--- a/elmo/elmo-filter.el
+++ b/elmo/elmo-filter.el
@@ -164,7 +164,10 @@
 							   mark-alist)
   (let ((unreads (elmo-folder-list-unreads-internal
 		  (elmo-filter-folder-target-internal folder)
-		  unread-marks mark-alist)))
+		  unread-marks
+		  (or mark-alist
+		      (elmo-msgdb-get-mark-alist
+		       (elmo-folder-msgdb folder))))))
     (unless (listp unreads)
       (setq unreads
 	    (delq nil