From fa3cf35b358520e4d8d083b532c5a6ff0e9b09b2 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 17 Sep 2002 00:47:23 +0000 Subject: [PATCH] * elmo-map.el (elmo-folder-list-unreads): Add :around qualifier. (elmo-folder-list-importants): Ditto. (elmo-folder-list-answereds): Ditto. --- elmo/ChangeLog | 4 +++- elmo/elmo-map.el | 8 +++++--- 2 files changed, 8 insertions(+), 4 deletions(-) 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) -- 1.7.10.4