Prepare for 2.10.1.

[elisp/wanderlust.git] / elmo / elmo-pipe.el

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index f2cfdcf..e2dfc04 100644 (file)
--- 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)))