From: 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/gitweb/?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 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)