[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: bug in gnus nnimap expiry in emacs21
From: |
Simon Josefsson |
Subject: |
Re: bug in gnus nnimap expiry in emacs21 |
Date: |
Wed, 08 Aug 2001 12:23:48 +0100 |
User-agent: |
Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.0.104 |
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"