emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs/lisp/gnus gnus-group.el ChangeLog


From: Katsumi Yamaoka
Subject: [Emacs-diffs] emacs/lisp/gnus gnus-group.el ChangeLog
Date: Wed, 02 Dec 2009 00:48:22 +0000

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Katsumi Yamaoka <yamaoka>       09/12/02 00:48:22

Modified files:
        lisp/gnus      : gnus-group.el ChangeLog 

Log message:
        (gnus-group-prepare-flat): Check also whether groups with no unread 
article
         should be listed if the 2nd arg `predicate' is given.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-group.el?cvsroot=emacs&r1=1.80&r2=1.81
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.845&r2=1.846

Patches:
Index: gnus-group.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-group.el,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -b -r1.80 -r1.81
--- gnus-group.el       29 Aug 2009 00:27:14 -0000      1.80
+++ gnus-group.el       2 Dec 2009 00:48:21 -0000       1.81
@@ -1372,7 +1372,8 @@
          (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 (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))))

Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.845
retrieving revision 1.846
diff -u -b -r1.845 -r1.846
--- ChangeLog   1 Dec 2009 19:01:41 -0000       1.845
+++ ChangeLog   2 Dec 2009 00:48:21 -0000       1.846
@@ -1,3 +1,9 @@
+2009-12-02  Katsumi Yamaoka  <address@hidden>
+
+       * 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  <address@hidden>
 
        * gnus-sum.el (gnus-recenter): Use `recenter-top-bottom'




reply via email to

[Prev in Thread] Current Thread [Next in Thread]