From: ueno <ueno>
Date: Wed, 23 Aug 2000 05:05:13 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-confirm-existence): Check existence of
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dc5d7ad7a790734f93b02481e67ea0348c135336;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3ab76e4..8a04695 100644
--- 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
--- 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)