From: teranisi <teranisi>
Date: Wed, 3 Oct 2001 07:54:26 +0000 (+0000)
Subject: * elmo-pipe.el (elmo-folder-message-file-p): Define.
X-Git-Tag: wl-2_7_5~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=42b1a4a3af5106d39b818c3a492aaf05ed7fb9b5;p=elisp%2Fwanderlust.git

* elmo-pipe.el (elmo-folder-message-file-p): Define.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 72dea86..b242ef9 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2001-10-03  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-pipe.el (elmo-folder-message-file-p): Define.
+
 	* elmo.el (elmo-generic-folder-append-messages): Check return value of
 	elmo-folder-append-buffer.
 	(elmo-folder-encache): Added optional argument `read'.
diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index 6d562dd..a6a1933 100644
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -186,6 +186,9 @@
   (and (elmo-folder-plugged-p (elmo-pipe-folder-src-internal folder))
        (elmo-folder-plugged-p (elmo-pipe-folder-dst-internal folder))))
 
+(luna-define-method elmo-folder-message-file-p ((folder elmo-pipe-folder))
+  (elmo-folder-message-file-p (elmo-pipe-folder-dst-internal folder)))
+
 (luna-define-method elmo-message-file-p ((folder elmo-pipe-folder) number)
   (elmo-message-file-p (elmo-pipe-folder-dst-internal folder) number))