[Top][All Lists]
[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'
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/gnus gnus-group.el ChangeLog,
Katsumi Yamaoka <=