Re: bug in gnus nnimap expiry in emacs21

[Simon Josefsson]

Ken Raeburn <address@hidden> writes:

> If I start up gnus with my current settings, while disconnected from
> the net, the nnimap:cyrus.andrew.cmu.edu server gets denied.  Running
> gnus-group-expire-all-groups causes a lisp error when expiring groups
> from that server, because set-buffer is called with
> nnimap-server-buffer, which is nil.

Please try the following patch, against Oort Gnus CVS (hopefully it
applies to your nnimap.el).

2001-08-08  Simon Josefsson  <address@hidden>

        * nnimap.el (nnimap-close-group): Don't do anything unless server
        is open.

Index: nnimap.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/nnimap.el,v
retrieving revision 6.12
diff -u -u -w -u -w -r6.12 nnimap.el
--- nnimap.el   2001/07/27 01:29:36     6.12
+++ nnimap.el   2001/08/08 11:13:45
@@ -788,9 +788,10 @@
             t)))))
 
 (defun nnimap-close-group (group &optional server)
-  (with-current-buffer nnimap-server-buffer
-    (when (and (imap-opened)
+  (when (and nnimap-server-buffer
+            (imap-opened nnimap-server-buffer)
               (nnimap-possibly-change-group group server))
+    (with-current-buffer nnimap-server-buffer
       (case nnimap-expunge-on-close
        ('always (imap-mailbox-expunge)
                 (imap-mailbox-close))