(imap-parse-resp-text-code): Workaround bug in Stalker

Communigate Pro 3.3.1 server.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c9931f0..cc59f2f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-10-28  Simon Josefsson  <sj@extundo.com>
 
+       * imap.el (imap-parse-resp-text-code): Workaround bug in Stalker
+       Communigate Pro 3.3.1 server.
+
        * mml-sec.el (mml-smime-encrypt-buffer): Support certfiles stored
        in buffers.
        (mml-secure-dns-server): Removed.

diff --git a/lisp/imap.el b/lisp/imap.el
index 294ba76..57dcfc4 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -1992,6 +1992,9 @@ Return nil if no complete line has arrived."
 ;;   resp-text-atom  = 1*<any ATOM-CHAR except "]">
 
 (defun imap-parse-resp-text-code ()
+  ;; xxx next line for stalker communigate pro 3.3.1 bug
+  (when (looking-at " \\[")
+    (imap-forward))
   (when (eq (char-after) ?\[)
     (imap-forward)
     (cond ((search-forward "PERMANENTFLAGS " nil t)