From: hmurata <hmurata>
Date: Tue, 13 Jan 2004 05:15:48 +0000 (+0000)
Subject: * elmo-nntp.el (elmo-folder-list-flagged): Return a list according
X-Git-Tag: wl-2_11_24~36
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5bc09082f7c9b1a92d449e589e5c86fd96aadc72;p=elisp%2Fwanderlust.git

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