(elmo-strict-folder-diff): Use

`elmo-folder-list-messages' instead of `elmo-msgdb-list-messages'.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 35a87a0..a5814ef 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-12  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo.el (elmo-strict-folder-diff): Use
+       `elmo-folder-list-messages' instead of `elmo-msgdb-list-messages'.
+
 2004-09-12  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * modb.el (elmo-msgdb-flag-available-p): New generic function.

diff --git a/elmo/elmo.el b/elmo/elmo.el
index 20a8b25..10325ae 100644 (file)
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -950,8 +950,7 @@ If optional argument IF-EXISTS is nil, load on demand.
 
 (defsubst elmo-strict-folder-diff (folder)
   "Return folder diff information strictly from FOLDER."
-  (let ((in-db (sort (elmo-msgdb-list-messages (elmo-folder-msgdb folder))
-                    '<))
+  (let ((in-db (sort (elmo-folder-list-messages folder nil 'in-msgdb) '<))
        (in-folder  (elmo-folder-list-messages folder))
        append-list delete-list diff)
     (cons (if (equal in-folder in-db)