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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 72dea86..b242ef9 100644 (file)
--- 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 (file)
--- 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))