* wl-folder.el (wl-folder-confirm-existence): Check existence of

the folder.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3ab76e4..8a04695 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-08-23   Daiki Ueno  <ueno@unixuser.org>
+
+       * wl-folder.el (wl-folder-confirm-existence): Check existence of
+       the folder.
+
 2000-08-23  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-summary.el (wl-summary-msgdb-load-async): Rewrite.

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 1ad2286..e36eba8 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2654,7 +2654,8 @@ If optional arg exists, don't check any folders."
 
 (defun wl-folder-confirm-existence (folder)
   (unless (or (wl-folder-entity-exists-p folder)
-             (file-exists-p (elmo-msgdb-expand-path folder)))
+             (file-exists-p (elmo-msgdb-expand-path folder))
+             (elmo-folder-exists-p entity))
     (wl-folder-create-subr folder)))
 
 (provide 'wl-folder)