From c54b1f19671dcedaa71e2016b23fdab27cdf960d Mon Sep 17 00:00:00 2001 From: hmurata Date: Sat, 19 Jan 2002 08:35:18 +0000 Subject: [PATCH] * elmo-filter.el (elmo-filter-folder-list-unreads-internal): Call method of target folder with self mark-alist if MARK-ALIST is nil. --- elmo/ChangeLog | 5 +++++ elmo/elmo-filter.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * 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 * 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 -- 1.7.10.4