* elmo-util.el (elmo-folder-local-p): Treat pipe and filter.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8ada519..b3cb77b 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2001-01-30  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-util.el (elmo-folder-local-p): Treat pipe and filter.
+
 2001-01-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-pop3.el (elmo-pop3-sort-overview-by-original-number):

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index a9600aa..c09e8a2 100644 (file)
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -1118,8 +1118,12 @@ Otherwise treat \\ in NEWTEXT string as special:
 
 (defun elmo-folder-local-p (folder)
   "Return whether FOLDER is a local folder or not."
-  (let ((type (elmo-folder-get-type folder)))
-    (memq type '(localdir localnews archive maildir internal cache))))
+  (let ((spec (elmo-folder-get-spec folder)))
+    (case (car spec)
+      (filter (elmo-folder-local-p (nth 2 spec)))
+      (pipe (elmo-folder-local-p (elmo-pipe-spec-dst spec)))
+      (t (memq (car spec)
+              '(localdir localnews archive maildir internal cache))))))
 
 (defun elmo-folder-writable-p (folder)
   (let ((type (elmo-folder-get-type folder)))