diff options
author | Katsumi Yamaoka <yamaoka@jpl.org> | 2009-12-02 00:48:21 +0000 |
---|---|---|
committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2009-12-02 00:48:21 +0000 |
commit | 7fa123c8f7d2b368e6a10739bcc26252d4511a01 (patch) | |
tree | 95ee75dfa809aedf29aaa5d91499d426ec67cc19 /lisp/gnus | |
parent | 9946be4640d850bcbb7c5989c5b1335ceb0852ad (diff) | |
download | emacs-7fa123c8f7d2b368e6a10739bcc26252d4511a01.tar.gz |
(gnus-group-prepare-flat): Check also whether groups with no unread article
should be listed if the 2nd arg `predicate' is given.
Diffstat (limited to 'lisp/gnus')
-rw-r--r-- | lisp/gnus/ChangeLog | 6 | ||||
-rw-r--r-- | lisp/gnus/gnus-group.el | 5 |
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index ff3d7e3ce13..23fa5f7e828 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2009-12-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * gnus-group.el (gnus-group-prepare-flat): Check also whether groups + with no unread article should be listed if the 2nd arg `predicate' is + given. + 2009-11-29 Juri Linkov <juri@jurta.org> * gnus-sum.el (gnus-recenter): Use `recenter-top-bottom' diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 4a7f06833a3..7b3296ad1cb 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1372,7 +1372,8 @@ if it is a string, only list groups matching REGEXP." (setq not-in-list (delete group not-in-list))) (when (gnus-group-prepare-logic group - (and unread ; This group might be unchecked + (and (or unread ; This group might be unchecked + predicate) ; Check if this group should be listed (or (not (stringp regexp)) (string-match regexp group)) (<= (setq clevel (gnus-info-level info)) level) @@ -1386,7 +1387,7 @@ if it is a string, only list groups matching REGEXP." (if (eq unread t) ; Unactivated? gnus-group-list-inactive-groups ; We list unactivated - (> unread 0)) + (and (numberp unread) (> unread 0))) ; We list groups with unread articles (and gnus-list-groups-with-ticked-articles (cdr (assq 'tick (gnus-info-marks info)))) |