(imap-parse-flag-list): Hack.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e33455d..3c03460 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-01  Simon Josefsson  <simon@josefsson.org>
+
+       * imap.el (imap-parse-flag-list): Hack.
+
 2000-08-29  Dave Love  <fx@gnu.org>
 
        * gnus-mlspl.el (gnus-group-split-fancy): Eschew mapcon.

diff --git a/lisp/imap.el b/lisp/imap.el
index 6016b84..105fc4d 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -2183,6 +2183,10 @@ Return nil if no complete line has arrived."
        pos)
     (while (setq pos (string-match "\\\\" str (and pos (+ 2 pos))))
       (setq str (replace-match "\\\\" nil t str)))
+    ;; xxx ugly. rewrite not to use `read' at all.
+    (when (= (length (symbol-name (read "A?A"))) 1)
+      (while (setq pos (string-match "\\?" str (and pos (+ 2 pos))))
+       (setq str (replace-match "\\?" nil t str))))
     (mapcar 'symbol-name (read str))))
 
 ;;   envelope        = "(" env-date SP env-subject SP env-from SP env-sender SP