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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 76429c9..5ca311e 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2003-09-07  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+       * elmo-dop.el (elmo-folder-status-dop): Fixed.
+
        * elmo-msgdb.el (elmo-msgdb-list-messages): Undo last change.
        (elmo-msgdb-flags): New function.
        (elmo-msgdb-merge): Use elmo-msgdb-append.

diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el
index 6ce80f9..dd3b089 100644 (file)
--- a/elmo/elmo-dop.el
+++ b/elmo/elmo-dop.el
@@ -286,16 +286,14 @@ FOLDER is the folder structure."
 
 ;;; Execute as subsutitute for plugged operation.
 (defun elmo-folder-status-dop (folder)
-  (let ((number-list (elmo-folder-list-messages folder nil 'in-msgdb))
+  (let ((number-list (sort (elmo-folder-list-messages folder nil 'in-msgdb) '>))
        (spool-folder (elmo-dop-spool-folder folder))
        spool-length
-       (i 0)
        max-num)
-    (setq spool-length (or (car (if (elmo-folder-exists-p spool-folder)
-                                   (elmo-folder-status spool-folder))) 0))
-    (setq max-num
-         (or (nth (max (- (length number-list) 1) 0) number-list)
-             0))
+    (setq spool-length (or (if (elmo-folder-exists-p spool-folder)
+                              (car (elmo-folder-status spool-folder)))
+                          0))
+    (setq max-num (or (car number-list) 0))
     (cons (+ max-num spool-length) (+ (length number-list) spool-length))))
 
 ;;; Delayed operation (executed at online status).