From: okada <okada>
Date: Sat, 12 Aug 2000 08:32:41 +0000 (+0000)
Subject: * elmo-maildir.el (elmo-maildir-delete-folder): Set argument of the
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a329827701a26ea1475212e4b058e90e2409e5b4;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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