From: teranisi <teranisi>
Date: Sun, 24 Nov 2002 14:59:00 +0000 (+0000)
Subject: * elmo-pipe.el (elmo-folder-creatable-p): Don't check whether the
X-Git-Tag: wl-2_11_1~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7cab18c122f248c77265f5e47c025ad408a37be8;p=elisp%2Fwanderlust.git

* elmo-pipe.el (elmo-folder-creatable-p): Don't check whether the
folder is creatabe or not if it already exists.
---

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  <yoichi@eken.phys.nagoya-u.ac.jp>)
 
+	* 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  <teranisi@gohome.org>
 
 	* 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)))