[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103975: gnus-registry.el (gnus-regis
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103975: gnus-registry.el (gnus-registry-ignore-group-p): Test specifically for the case where `gnus-registry-ignored-groups' is a list of lists, and don't call `gnus-parameter-registry-ignore' otherwise. |
Date: |
Sat, 23 Apr 2011 00:08:28 +0000 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 103975
author: Teodor Zlatanov <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sat 2011-04-23 00:08:28 +0000
message:
gnus-registry.el (gnus-registry-ignore-group-p): Test specifically for the
case where `gnus-registry-ignored-groups' is a list of lists, and don't call
`gnus-parameter-registry-ignore' otherwise.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-registry.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2011-04-22 01:01:32 +0000
+++ b/lisp/gnus/ChangeLog 2011-04-23 00:08:28 +0000
@@ -1,5 +1,11 @@
2011-04-22 Teodor Zlatanov <address@hidden>
+ * gnus-registry.el (gnus-registry-ignore-group-p): Test specifically
+ for the case where `gnus-registry-ignored-groups' is a list of lists,
+ and don't call `gnus-parameter-registry-ignore' otherwise.
+
+2011-04-21 Teodor Zlatanov <address@hidden>
+
* nnimap.el (nnimap-user): New backend variable.
(nnimap-open-connection-1): Use it.
(nnimap-credentials): Accept user parameter so it's explicit what user
=== modified file 'lisp/gnus/gnus-registry.el'
--- a/lisp/gnus/gnus-registry.el 2011-04-22 00:37:01 +0000
+++ b/lisp/gnus/gnus-registry.el 2011-04-23 00:08:28 +0000
@@ -666,8 +666,7 @@
Consults `gnus-registry-ignored-groups' and
`nnmail-split-fancy-with-parent-ignore-groups'."
(and group
- (or (gnus-parameter-registry-ignore group)
- (gnus-grep-in-list
+ (or (gnus-grep-in-list
group
(delq nil (mapcar (lambda (g)
(cond
@@ -675,6 +674,11 @@
((and (listp g) (nth 1 g))
(nth 0 g))
(t nil))) gnus-registry-ignored-groups)))
+ ;; only use `gnus-parameter-registry-ignore' if
+ ;; `gnus-registry-ignored-groups' is a list of lists
+ ;; (it can be a list of regexes)
+ (and (listp (nth 0 gnus-registry-ignored-groups))
+ (gnus-parameter-registry-ignore group))
(gnus-grep-in-list
group
nnmail-split-fancy-with-parent-ignore-groups))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103975: gnus-registry.el (gnus-registry-ignore-group-p): Test specifically for the case where `gnus-registry-ignored-groups' is a list of lists, and don't call `gnus-parameter-registry-ignore' otherwise.,
Katsumi Yamaoka <=