imap.el - problem (?) in imap.el

[Rory Molinari <h571pufwjtlf001@sneakemail.com>]

Hi,

I use the fastmail.fm email service, and access my mail through gnus
using fastmail's IMAP server.  I had some trouble getting it to work at
first, and finally tracked down the problem to the imap-parse-greeting
function in imap.el.

Where imap-parse-greeting was expecting to see "* OK", the fastmail.fm
server produces "SERVER * OK".  The parsing of greetings was failing,
and gnus interpreted this as a failure to connect to the server.

Here is a simple unified diff that fixed the problem for me.  It is
against the Oort 0.05 release.

Let me know if I did the diff wrong.

Cheers,
Rory

--- imap.el.dist	Fri May  3 13:32:27 2002
+++ imap.el	Fri May  3 13:32:27 2002
@@ -1928,11 +1928,11 @@
 
 (defun imap-parse-greeting ()
   "Parse a IMAP greeting."
-  (cond ((looking-at "\\* OK ")
+  (cond ((looking-at "\\(Server \\)?\\* OK ")
 	 (setq imap-state 'nonauth))
-	((looking-at "\\* PREAUTH ")
+	((looking-at "\\(Server \\)?\\* PREAUTH ")
 	 (setq imap-state 'auth))
-	((looking-at "\\* BYE ")
+	((looking-at "\\(Server \\)?\\* BYE ")
 	 (setq imap-state 'closed))))
 
 ;;   response        = *(continue-req / response-data) response-done