From 701b4e0ca41415a94b1880d3f4e24fa2595d8fe6 Mon Sep 17 00:00:00 2001 From: hmurata Date: Fri, 22 Aug 2003 20:21:55 +0000 Subject: [PATCH] * elmo-multi.el (elmo-message-cached-p): Define. --- elmo/ChangeLog | 2 ++ elmo/elmo-multi.el | 4 ++++ 2 files changed, 6 insertions(+) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index a27ced5..f12a0ec 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,7 @@ 2003-08-22 Hiroya Murata + * elmo-multi.el (elmo-message-cached-p): Define. + * elmo.el (elmo-message-cached-p): New method. (elmo-message-accessible-p): Use it instead of msgdb API directly. (elmo-message-flags): New method. diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el index d03b1f6..e9fb8c6 100644 --- a/elmo/elmo-multi.el +++ b/elmo/elmo-multi.el @@ -131,6 +131,10 @@ (nth (- (/ number (elmo-multi-folder-divide-number-internal folder)) 1) (elmo-multi-folder-children-internal folder))) +(luna-define-method elmo-message-cached-p ((folder elmo-multi-folder) number) + (let ((pair (elmo-multi-real-folder-number folder number))) + (elmo-message-cached-p (car pair) (cdr pair)))) + (luna-define-method elmo-message-set-cached ((folder elmo-multi-folder) number cached) (let ((pair (elmo-multi-real-folder-number folder number))) -- 1.7.10.4