From 5bc09082f7c9b1a92d449e589e5c86fd96aadc72 Mon Sep 17 00:00:00 2001 From: hmurata Date: Tue, 13 Jan 2004 05:15:48 +0000 Subject: [PATCH] * elmo-nntp.el (elmo-folder-list-flagged): Return a list according to `reads' slot only if `in-msgdb' is nil. --- elmo/ChangeLog | 5 +++++ elmo/elmo-nntp.el | 16 +++++++++------- 2 files changed, 14 insertions(+), 7 deletions(-) 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 + + * 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 * 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)) -- 1.7.10.4