From: teranisi <teranisi>
Date: Tue, 30 Jan 2001 00:42:54 +0000 (+0000)
Subject: * elmo-util.el (elmo-folder-local-p): Treat pipe and filter.
X-Git-Tag: wl-2_4_1~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=521e7f9f99a1b556d88b606163d3061f33dbe396;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8ada519..b3cb77b 100644
--- 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
--- 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)))