Don't call `gnus-parameter-registry-ignore' if the *Group* buffer doesn't exist.

* gnus-registry.el (gnus-registry-ignore-group-p): Don't call
`gnus-parameter-registry-ignore' if the *Group* buffer doesn't exist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3426a6e..d30adb1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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-registry.el b/lisp/gnus-registry.el
index 3597cbc..e6c96ab 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/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