From 39ec6e68babbe4a21a1d74d750cc51722a5d1398 Mon Sep 17 00:00:00 2001 From: hmurata Date: Sun, 12 Sep 2004 11:38:56 +0000 Subject: [PATCH] (elmo-strict-folder-diff): Use `elmo-folder-list-messages' instead of `elmo-msgdb-list-messages'. --- elmo/ChangeLog | 5 +++++ elmo/elmo.el | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) 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 + + * elmo.el (elmo-strict-folder-diff): Use + `elmo-folder-list-messages' instead of `elmo-msgdb-list-messages'. + 2004-09-12 Yuuichi Teranishi * 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) -- 1.7.10.4