* 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 (file)
--- 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 (file)
--- 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)