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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 801b77d..7c0217b 100644 (file)
--- 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 (file)
--- 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))