(gnus-group-prepare-flat): Check also whether groups with no unread article

 should be listed if the 2nd arg `predicate' is given.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9b37bec..932a096 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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-30  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lpath.el: Fbind recenter-top-bottom for Emacs 21, 22, and (S)XEmacs.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 4a7f068..7b3296a 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/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))))