From: hmurata <hmurata>
Date: Sun, 7 Sep 2003 02:51:35 +0000 (+0000)
Subject: * elmo-dop.el (elmo-folder-status-dop): Fixed.
X-Git-Tag: wl-2_11_11~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6ebb934ffe5a23c28707f9244e42c22e56137c35;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 76429c9..5ca311e 100644
--- 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
--- 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).