From: teranisi <teranisi>
Date: Tue, 17 Sep 2002 00:22:27 +0000 (+0000)
Subject: * elmo-map.el (elmo-map-folder-list-unreads): Define default behavior.
X-Git-Tag: elmo-mark-restart~143
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=802b9a01054e509247928f9acf583990eb9cb142;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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