* elmo-msgdb.el (elmo-msgdb-list-messages): Undo last change.

[elisp/wanderlust.git] / elmo / elmo-dop.el

diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el
index fda2f92..6ce80f9 100644 (file)
--- a/elmo/elmo-dop.el
+++ b/elmo/elmo-dop.el
@@ -286,13 +286,11 @@ FOLDER is the folder structure."
 
 ;;; Execute as subsutitute for plugged operation.
 (defun elmo-folder-status-dop (folder)
-  (let* ((number-alist (elmo-msgdb-number-load
-                       (elmo-folder-msgdb-path folder)))
-        (number-list (mapcar 'car number-alist))
-        (spool-folder (elmo-dop-spool-folder folder))
-        spool-length
-        (i 0)
-        max-num)
+  (let ((number-list (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