procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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.

Browse source
This commit is contained in:
Teodor Zlatanov 2011-04-23 00:08:28 +00:00 • committed by Katsumi Yamaoka
parent c243bc792c
commit 74db886b06
2 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -1,5 +1,11 @@
2011-04-22 Teodor Zlatanov <tzz@lifelogs.com>
* 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 <tzz@lifelogs.com>
* nnimap.el (nnimap-user): New backend variable.
(nnimap-open-connection-1): Use it.
(nnimap-credentials): Accept user parameter so it's explicit what user

8
lisp/gnus/gnus-registry.el
View file

@ -666,8 +666,7 @@ Consults `gnus-registry-unfollowed-groups' and
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 @@ Consults `gnus-registry-ignored-groups' and
((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))))