burying Gnus buffers

[prj@po.cwru.edu (Paul Jarc)]

I'd like to bury all Gnus buffers so I can go work on something else,
but then when I come back to Gnus I won't have to re-open servers.  I
want to do this from the Group buffer, with no Summary buffers
around.  I can invoke bury-buffer to bury the Group buffer, but then I
typically get the Article buffer.  This works, but only sometimes:
(add-hook 'gnus-exit-group-hook
          (function (lambda ()
                      (let ((buffer (get-buffer gnus-article-buffer)))
                        (if buffer (bury-buffer buffer))))))
I.e., after exiting a Summary buffer, the Article buffer is sometimes
buried, and sometimes still just under the Group buffer.  Any ideas
why, or alternate solutions?


paul