* elmo-map.el (elmo-map-folder-list-unreads): Define default behavior.

(elmo-map-folder-list-answereds): New method.
(elmo-folder-list-unreads): Fix.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 629470c..2e90f53 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2002-09-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-map.el (elmo-map-folder-list-unreads): Define default behavior.
+       (elmo-map-folder-list-answereds): New method.
+       (elmo-folder-list-unreads): Fix.
+
 2002-09-16  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-msgdb.el (elmo-msgdb-mark): New inline function.

diff --git a/elmo/elmo-map.el b/elmo/elmo-map.el
index 1fb8a36..5cadee5 100644 (file)
--- a/elmo/elmo-map.el
+++ b/elmo/elmo-map.el
@@ -84,12 +84,21 @@
 (luna-define-generic elmo-map-folder-list-unreads (folder)
   "")
 
+(luna-define-method elmo-map-folder-list-unreads ((folder elmo-map-folder))
+  t)
+
 (luna-define-generic elmo-map-folder-list-importants (folder)
   "")
 
 (luna-define-method elmo-map-folder-list-importants ((folder elmo-map-folder))
   t)
 
+(luna-define-generic elmo-map-folder-list-answereds (folder)
+  "")
+
+(luna-define-method elmo-map-folder-list-answereds ((folder elmo-map-folder))
+  t)
+
 (luna-define-generic elmo-map-folder-delete-messages (folder locations)
   "")
 
@@ -294,9 +303,8 @@
 (luna-define-method elmo-folder-list-unreads ((folder elmo-map-folder))
   (let ((locations (elmo-map-folder-list-unreads folder)))
     (if (listp locations)
-       (elmo-map-folder-locations-to-numbers
-        folder
-        (elmo-map-folder-list-unreads folder)))))
+       (elmo-map-folder-locations-to-numbers folder locations)
+      (luna-call-next-method))))
 
 (luna-define-method elmo-folder-list-importants ((folder elmo-map-folder))
   (let ((locations (elmo-map-folder-list-importants folder)))
@@ -304,6 +312,12 @@
        (elmo-map-folder-locations-to-numbers folder locations)
       (luna-call-next-method))))
 
+(luna-define-method elmo-folder-list-answereds ((folder elmo-map-folder))
+  (let ((locations (elmo-map-folder-list-answereds folder)))
+    (if (listp locations)
+       (elmo-map-folder-locations-to-numbers folder locations)
+      (luna-call-next-method))))
+
 (luna-define-method elmo-folder-delete-messages ((folder elmo-map-folder)
                                                 numbers)
   (elmo-map-folder-delete-messages