* elmo-nntp.el (elmo-folder-list-flagged): Return a list according

to `reads' slot only if `in-msgdb' is nil.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 3a3d8d0..05af736 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-nntp.el (elmo-folder-list-flagged): Return a list according
+       to `reads' slot only if `in-msgdb' is nil.
+
 2004-01-12  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo-nntp.el (elmo-folder-list-flagged): Undo the last change

diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index a5f1bff..2ef6585 100644 (file)
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -1548,13 +1548,15 @@ Returns a list of cons cells like (NUMBER . VALUE)"
                                                      flag &optional in-msgdb)
   ;;    2.3. elmo-folder-list-unreads return unread message list according to
   ;;         `reads' slot.
-  (case flag
-    (unread
-     (elmo-living-messages (luna-call-next-method)
-                          (elmo-nntp-folder-reads-internal folder)))
-    ;; Should consider read, digest and any flag?
-    (otherwise
-     (luna-call-next-method))))
+  (let ((msgs (luna-call-next-method)))
+    (if in-msgdb
+       msgs
+      (case flag
+       (unread
+        (elmo-living-messages msgs (elmo-nntp-folder-reads-internal folder)))
+       ;; Should consider read, digest and any flag?
+       (otherwise
+        msgs)))))
 
 (require 'product)
 (product-provide (provide 'elmo-nntp) (require 'elmo-version))