From 521e7f9f99a1b556d88b606163d3061f33dbe396 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 30 Jan 2001 00:42:54 +0000 Subject: [PATCH] * elmo-util.el (elmo-folder-local-p): Treat pipe and filter. --- elmo/ChangeLog | 4 ++++ elmo/elmo-util.el | 8 ++++++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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 + + * elmo-util.el (elmo-folder-local-p): Treat pipe and filter. + 2001-01-19 Yuuichi Teranishi * 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))) -- 1.7.10.4