From: teranisi <teranisi>
Date: Tue, 17 Sep 2002 00:47:23 +0000 (+0000)
Subject: * elmo-map.el (elmo-folder-list-unreads): Add :around qualifier.
X-Git-Tag: elmo-mark-restart~142
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fa3cf35b358520e4d8d083b532c5a6ff0e9b09b2;p=elisp%2Fwanderlust.git

* elmo-map.el (elmo-folder-list-unreads): Add :around qualifier.
(elmo-folder-list-importants): Ditto.
(elmo-folder-list-answereds): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 2e90f53..2ead7d5 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -2,7 +2,9 @@
 
 	* elmo-map.el (elmo-map-folder-list-unreads): Define default behavior.
 	(elmo-map-folder-list-answereds): New method.
-	(elmo-folder-list-unreads): Fix.
+	(elmo-folder-list-unreads): Add :around qualifier.
+	(elmo-folder-list-importants): Ditto.
+	(elmo-folder-list-answereds): Ditto.
 
 2002-09-16  Yuuichi Teranishi  <teranisi@gohome.org>
 
diff --git a/elmo/elmo-map.el b/elmo/elmo-map.el
index 5cadee5..d848bf8 100644
--- a/elmo/elmo-map.el
+++ b/elmo/elmo-map.el
@@ -300,19 +300,21 @@
    (elmo-map-message-location folder number)
    strategy section unread))
 
-(luna-define-method elmo-folder-list-unreads ((folder elmo-map-folder))
+(luna-define-method elmo-folder-list-unreads :around ((folder elmo-map-folder))
   (let ((locations (elmo-map-folder-list-unreads folder)))
     (if (listp locations)
 	(elmo-map-folder-locations-to-numbers folder locations)
       (luna-call-next-method))))
 
-(luna-define-method elmo-folder-list-importants ((folder elmo-map-folder))
+(luna-define-method elmo-folder-list-importants :around ((folder
+							  elmo-map-folder))
   (let ((locations (elmo-map-folder-list-importants folder)))
     (if (listp locations)
 	(elmo-map-folder-locations-to-numbers folder locations)
       (luna-call-next-method))))
 
-(luna-define-method elmo-folder-list-answereds ((folder elmo-map-folder))
+(luna-define-method elmo-folder-list-answereds :around ((folder
+							 elmo-map-folder))
   (let ((locations (elmo-map-folder-list-answereds folder)))
     (if (listp locations)
 	(elmo-map-folder-locations-to-numbers folder locations)