From: hmurata <hmurata>
Date: Sun, 12 Sep 2004 11:38:56 +0000 (+0000)
Subject: (elmo-strict-folder-diff): Use
X-Git-Tag: wl-2_12-root~122
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=39ec6e68babbe4a21a1d74d750cc51722a5d1398;p=elisp%2Fwanderlust.git

(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
--- 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
--- 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)