(imap-kerberos4-open): Ignore output from ATHENA imtest.

Tiny patch from Derek Atkins <warlord@MIT.EDU>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 71c3986..3b64d54 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-31  Simon Josefsson  <jas@extundo.com>
+
+       * imap.el (imap-kerberos4-open): Ignore output from ATHENA imtest.
+       Tiny patch from Derek Atkins <warlord@MIT.EDU>.
+
 2003-10-31  Teodor Zlatanov  <tzz@beld.net>
 
        * spam.el (autoload): autoload the gnus-registry functions we'll

diff --git a/lisp/imap.el b/lisp/imap.el
index 2763b42..d9653ec 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -498,6 +498,13 @@ sure of changing the value of `foo'."
            (while (and (memq (process-status process) '(open run))
                        (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
                        (goto-char (point-min))
+                       ;; Athena IMTEST can output SSL verify errors
+                       (or (while (looking-at "^verify error:num=")
+                             (forward-line))
+                           t)
+                       (or (while (looking-at "^TLS connection established")
+                             (forward-line))
+                           t)
                        ;; cyrus 1.6.x (13? < x <= 22) queries capabilities
                        (or (while (looking-at "^C:")
                              (forward-line))