Commit 74db886b authored by Ted Zlatanov's avatar Ted Zlatanov Committed by Katsumi Yamaoka
Browse files

gnus-registry.el (gnus-registry-ignore-group-p): Test specifically for the...

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.
parent c243bc79
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
......
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment