Gnus development mailing list
 help / color / mirror / Atom feed
From: Matt Armstrong <matt@lickey.com>
Subject: Patch for an IMAP interop bug
Date: 14 Jun 2001 15:30:39 -0700	[thread overview]
Message-ID: <87lmmuk834.fsf@fluff.lickey.com> (raw)

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


             reply	other threads:[~2001-06-14 22:30 UTC|newest]

Thread overview: 2+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2001-06-14 22:30 Matt Armstrong [this message]
2001-06-19 18:15 ` Simon Josefsson

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87lmmuk834.fsf@fluff.lickey.com \
    --to=matt@lickey.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).