From e2822bd2ea32c577342b9618a301f8661551f7a3 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Mon, 25 Apr 2011 04:32:07 +0000 Subject: [PATCH] gnus-registry.el (gnus-registry-ignore-group-p): Don't call `gnus-parameter-registry-ignore' if the *Group* buffer doesn't exist. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-registry.el | 1 + 2 files changed, 6 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index dd079b4f0a1..99a08de633b 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-04-25 Teodor Zlatanov + + * gnus-registry.el (gnus-registry-ignore-group-p): Don't call + `gnus-parameter-registry-ignore' if the *Group* buffer doesn't exist. + 2011-04-23 Glenn Morris * gnus-sum.el (gnus-extra-headers): Bump :version. diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el index 3597cbc1584..e6c96ab2b19 100644 --- a/lisp/gnus/gnus-registry.el +++ b/lisp/gnus/gnus-registry.el @@ -678,6 +678,7 @@ Consults `gnus-registry-ignored-groups' and ;; `gnus-registry-ignored-groups' is a list of lists ;; (it can be a list of regexes) (and (listp (nth 0 gnus-registry-ignored-groups)) + (get-buffer "*Group*") ; in automatic tests this is false (gnus-parameter-registry-ignore group)) (gnus-grep-in-list group -- 2.39.2