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.

I read this lazily and first thought the problem was that you didn't
have `imtest' installed and imap.el wanted to use GSSAPI or kerberos4,
thus denying the server.  So I committed the below to Oort Gnus CVS.

Just to show that one bug report can fix two bugs if you're lazy. :-)

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

        * imap.el (imap-gssapi-auth-p, imap-kerberos4-auth-p): Also check
        whether `imtest' is installed.

Index: imap.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/imap.el,v
retrieving revision 6.13
retrieving revision 6.14
diff -u -r6.13 -r6.14
--- imap.el     2001/07/25 00:17:13     6.13
+++ imap.el     2001/08/08 11:19:00     6.14
@@ -767,7 +767,14 @@
       ret)))
 
 (defun imap-gssapi-auth-p (buffer)
-  (imap-capability 'AUTH=GSSAPI buffer))
+  (and (imap-capability 'AUTH=GSSAPI buffer)
+       (catch 'imtest-found
+        (let (prg (prgs imap-gssapi-program))
+          (while (setq prg (pop prgs))
+            (condition-case ()
+                (and (call-process (substring prg 0 (string-match " " prg)))
+                     (throw 'imtest-found t))
+              (error nil)))))))
 
 (defun imap-gssapi-auth (buffer)
   (message "imap: Authenticating using GSSAPI...%s"
@@ -775,7 +782,14 @@
   (eq imap-stream 'gssapi))
 
 (defun imap-kerberos4-auth-p (buffer)
-  (imap-capability 'AUTH=KERBEROS_V4 buffer))
+  (and (imap-capability 'AUTH=KERBEROS_V4 buffer)
+       (catch 'imtest-found
+        (let (prg (prgs imap-kerberos4-program))
+          (while (setq prg (pop prgs))
+            (condition-case ()
+                (and (call-process (substring prg 0 (string-match " " prg)))
+                     (throw 'imtest-found t))
+              (error nil)))))))
 
 (defun imap-kerberos4-auth (buffer)
   (message "imap: Authenticating using Kerberos 4...%s"