Patch for an IMAP interop bug

Patch for an IMAP interop bug

[Matt Armstrong]

I was experiencing problems connecting to a courier-imap server with
the current CVS ognus.

Turns out that server is sending some flags with this format:

        ( \Noinferior)

instead of

        (\Noinferior)

Other IMAP clients can handle it, so nnimap probably should as well:

--- imap.el.orig        Thu Jun 14 15:05:05 2001
+++ imap.el     Thu Jun 14 15:19:11 2001
@@ -2221,7 +2221,7 @@
       (setq acl (append acl (list (cons identifier rights)))))
     (imap-mailbox-put 'acl acl mailbox)))

-;;   flag-list       = "(" [flag *(SP flag)] ")"
+;;   flag-list       = "(" *SP [flag *(SP flag)] ")"
 ;;
 ;;   flag            = "\Answered" / "\Flagged" / "\Deleted" /
 ;;                     "\Seen" / "\Draft" / flag-keyword / flag-extension
@@ -2241,7 +2241,8 @@
   (let (flag-list start)
     (assert (eq (char-after) ?\())
     (while (and (not (eq (char-after) ?\)))
-               (setq start (progn (imap-forward) (point)))
+               (setq start (progn (imap-forward) (skip-chars-forward " ")
+                                  (point)))
                (> (skip-chars-forward "^ )" (imap-point-at-eol)) 0))
       (push (buffer-substring start (point)) flag-list))
     (assert (eq (char-after) ?\)))

-- 
matt

Re: Patch for an IMAP interop bug

[Simon Josefsson]

Matt Armstrong <matt@lickey.com> writes:

>         ( \Noinferior)

Please report this to Courier developers, they are violating RFC2060.

> Other IMAP clients can handle it, so nnimap probably should as well:

Thanks, committed.  I left out the BNF change because this is a bug
workaround, not a change in the protocol.