From: teranisi <teranisi>
Date: Mon, 20 May 2002 06:21:01 +0000 (+0000)
Subject: * elmo-dop.el (elmo-folder-status-dop): Fix.
X-Git-Tag: elmo-mark-root~111
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=27e6595843ab2906deb56d46a61f53f831a9455b;p=elisp%2Fwanderlust.git

* elmo-dop.el (elmo-folder-status-dop): Fix.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 801b77d..7c0217b 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2002-05-20  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-dop.el (elmo-folder-status-dop): Fix.
+
 2002-05-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-util.el (elmo-disk-usage): Return 0 if invalid file attribute.
diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el
index 5dcdf15..793e668 100644
--- a/elmo/elmo-dop.el
+++ b/elmo/elmo-dop.el
@@ -276,8 +276,8 @@ FOLDER is the folder structure."
 	 spool-length
 	 (i 0)
 	 max-num)
-    (setq spool-length (length (car (if (elmo-folder-exists-p spool-folder)
-					(elmo-folder-status spool-folder)))))
+    (setq spool-length (car (if (elmo-folder-exists-p spool-folder)
+				(elmo-folder-status spool-folder))))
     (setq max-num
 	  (or (nth (max (- (length number-list) 1) 0) number-list)
 	      0))