[Emacs-diffs] /srv/bzr/emacs/trunk r104000: gnus-registry.el (gnus-registry-ignore-group-p): Don't call `gnus-parameter-registry-ignore' if the *Group* buffer doesn't exist.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 104000
author: Teodor Zlatanov <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2011-04-25 04:32:07 +0000
message:
  gnus-registry.el (gnus-registry-ignore-group-p): Don't call 
`gnus-parameter-registry-ignore' if the *Group* buffer doesn't exist.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-registry.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-04-24 22:12:21 +0000
+++ b/lisp/gnus/ChangeLog       2011-04-25 04:32:07 +0000
@@ -1,3 +1,8 @@
+2011-04-25  Teodor Zlatanov  <address@hidden>
+
+       * 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  <address@hidden>
 
        * gnus-sum.el (gnus-extra-headers): Bump :version.

=== modified file 'lisp/gnus/gnus-registry.el'
--- a/lisp/gnus/gnus-registry.el        2011-04-23 00:08:28 +0000
+++ b/lisp/gnus/gnus-registry.el        2011-04-25 04:32:07 +0000
@@ -678,6 +678,7 @@
            ;; `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