* wl-folder.el (wl-folder-confirm-existence): Fixed typo in

`elmo-folder-exists-p' argument.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8a04695..ffdb450 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-08-23  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * wl-folder.el (wl-folder-confirm-existence): Fixed typo in
+       `elmo-folder-exists-p' argument.
+
 2000-08-23   Daiki Ueno  <ueno@unixuser.org>
 
        * wl-folder.el (wl-folder-confirm-existence): Check existence of
@@ -20,7 +25,7 @@
        * wl-summary.el (wl-summary-read-folder): Don't pass the argument
        `ignore-error'.
 
-2000-08-21  Kaoru Takahashi  <kaoru@kaisei.org>
+2000-08-21  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl-util.el (toplevel): Add (eval-when-compile (require
        'elmo-util)).  (Maybe `provide' is typo.)

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index e36eba8..7fd035c 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2655,7 +2655,7 @@ 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))
-             (elmo-folder-exists-p entity))
+             (elmo-folder-exists-p folder))
     (wl-folder-create-subr folder)))
 
 (provide 'wl-folder)