* elmo-filter.el (elmo-folder-list-unreads): Call generic method

if require-msgdb slot is nil.
(elmo-folder-list-importants): Likewise.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 58e953d..c175eff 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2002-10-01  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * 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  <lapis-lazuli@pop06.odn.ne.jp>
 
        * 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 (file)
--- 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)