From: hmurata <hmurata>
Date: Fri, 22 Aug 2003 20:21:55 +0000 (+0000)
Subject: * elmo-multi.el (elmo-message-cached-p): Define.
X-Git-Tag: merged-trunk-to-elmo-mark-20~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=701b4e0ca41415a94b1880d3f4e24fa2595d8fe6;p=elisp%2Fwanderlust.git

* elmo-multi.el (elmo-message-cached-p): Define.
---

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  <lapis-lazuli@pop06.odn.ne.jp>
 
+	* 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)))