From 744dc1170d0133451f3d31eabb27c9694aa098ff Mon Sep 17 00:00:00 2001 From: hmurata Date: Tue, 1 Oct 2002 07:47:26 +0000 Subject: [PATCH] * elmo-filter.el (elmo-folder-list-unreads): Call generic method if require-msgdb slot is nil. (elmo-folder-list-importants): Likewise. --- elmo/ChangeLog | 6 ++++++ elmo/elmo-filter.el | 14 ++++++++++---- 2 files changed, 16 insertions(+), 4 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 58e953d..c175eff 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,9 @@ +2002-10-01 Hiroya Murata + + * elmo-filter.el (elmo-folder-list-unreads): Call generic method + if require-msgdb slot is nil. + (elmo-folder-list-importants): Likewise. + 2002-09-26 Hiroya Murata * elmo.el (elmo-message-set-cached): Set mark-modified slot if diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el index aab8395..612c47f 100644 --- a/elmo/elmo-filter.el +++ b/elmo/elmo-filter.el @@ -176,8 +176,11 @@ (elmo-folder-list-unreads (elmo-filter-folder-target-internal folder)))) -(luna-define-method elmo-folder-list-unreads ((folder elmo-filter-folder)) - (elmo-filter-folder-list-unreads folder)) +(luna-define-method elmo-folder-list-unreads :around ((folder + elmo-filter-folder)) + (if (elmo-filter-folder-require-msgdb-internal folder) + (elmo-filter-folder-list-unreads folder) + (luna-call-next-method))) (defsubst elmo-filter-folder-list-importants (folder) (elmo-list-filter @@ -185,8 +188,11 @@ (elmo-folder-list-importants (elmo-filter-folder-target-internal folder)))) -(luna-define-method elmo-folder-list-importants ((folder elmo-filter-folder)) - (elmo-filter-folder-list-importants folder)) +(luna-define-method elmo-folder-list-importants :around ((folder + elmo-filter-folder)) + (if (elmo-filter-folder-require-msgdb-internal folder) + (elmo-filter-folder-list-importants folder) + (luna-call-next-method))) (luna-define-method elmo-folder-list-subfolders ((folder elmo-filter-folder) &optional one-level) -- 1.7.10.4