From 7cab18c122f248c77265f5e47c025ad408a37be8 Mon Sep 17 00:00:00 2001 From: teranisi Date: Sun, 24 Nov 2002 14:59:00 +0000 Subject: [PATCH] * elmo-pipe.el (elmo-folder-creatable-p): Don't check whether the folder is creatabe or not if it already exists. --- elmo/ChangeLog | 3 +++ elmo/elmo-pipe.el | 8 ++++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 2d2076e..91b106e 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -3,6 +3,9 @@ * utf7.el (toplevel): Check the ucs features dynamically. (Advice from Yoichi NAKAYAMA ) + * elmo-pipe.el (elmo-folder-creatable-p): Don't check whether the + folder is creatabe or not if it already exists. + 2002-11-21 Yuuichi Teranishi * elmo-nntp.el (elmo-nntp-search-primitive): Revert the last change. diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el index f2cfdcf..e2dfc04 100644 --- a/elmo/elmo-pipe.el +++ b/elmo/elmo-pipe.el @@ -216,8 +216,12 @@ (elmo-folder-newsgroups (elmo-pipe-folder-src-internal folder))) (luna-define-method elmo-folder-creatable-p ((folder elmo-pipe-folder)) - (and (elmo-folder-creatable-p (elmo-pipe-folder-src-internal folder)) - (elmo-folder-creatable-p (elmo-pipe-folder-dst-internal folder)))) + (and (or + (elmo-folder-exists-p (elmo-pipe-folder-src-internal folder)) + (elmo-folder-creatable-p (elmo-pipe-folder-src-internal folder))) + (or + (elmo-folder-exists-p (elmo-pipe-folder-dst-internal folder)) + (elmo-folder-creatable-p (elmo-pipe-folder-dst-internal folder))))) (luna-define-method elmo-folder-writable-p ((folder elmo-pipe-folder)) (elmo-folder-writable-p (elmo-pipe-folder-dst-internal folder))) -- 1.7.10.4