gnus-registry.el (gnus-registry-ignore-group-p): Don't call `gnus-parameter-registry...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index dd079b4f0a15f20020bac92dd3aec992ed14c7ea..99a08de633b816d27e009998236e68039985fd4f 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-25  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * 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  <rgm@gnu.org>
 
        * gnus-sum.el (gnus-extra-headers): Bump :version.

diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index 3597cbc15845cee4db405784243b6b036a82c60c..e6c96ab2b19833e62a16a813f2ea22b550651170 100644 (file)
--- 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