* elmo-maildir.el (elmo-maildir-delete-folder): Set argument of the

function `error'.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 57f3dd6..1fcf75f 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,10 @@
 2000-08-12  Kenichi OKADA <okada@opaopa.org>
 
+       * elmo-maildir.el (elmo-maildir-delete-folder): Set argument of the
+       function `error'.
+
+2000-08-12  Kenichi OKADA <okada@opaopa.org>
+
        * elmo-pop3.el (elmo-pop3-get-connection): Add `signal'.
 
 2000-08-08  Yuuichi Teranishi  <teranisi@gohome.org>

diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index b88044c..750d322 100644 (file)
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -414,11 +414,11 @@ file name for maildir directories."
            (lambda (dir)
              (setq dir (expand-file-name dir basedir))
              (if (not (file-directory-p dir))
-                 (error)
+                 (error nil)
                (elmo-delete-directory dir t))))
           '("new" "cur" "tmp" "."))
          t)
-      (error))))
+      (error nil))))
 
 (defun elmo-maildir-search (spec condition &optional from-msgs msgdb)
   (save-excursion