* elmo-imap4.el (elmo-imap4-parse-flag-list): Rewrite.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 37e2dd5..ae57423 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-imap4.el (elmo-imap4-parse-flag-list): Rewrite.
+
 2000-09-12  Katsumi Yamaoka    <yamaoka@jpl.org>
 
        * elmo-util.el (elmo-delete-plugged): Fix parenthesis.

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 7df6de7..4172066 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1870,12 +1870,11 @@ Return nil if no complete line has arrived."
     (list 'acl acl mailbox)))
 
 (defun elmo-imap4-parse-flag-list ()
-  (let ((str (buffer-substring (point) (progn (search-forward ")" nil t)
-                                             (point))))
-       pos)
-    (while (setq pos (string-match "\\\\" str (and pos (+ 2 pos))))
-      (setq str (replace-match "\\\\" nil t str)))
-    (mapcar 'symbol-name (elmo-imap4-read str))))
+  (let ((str (buffer-substring (+ (point) 1)
+                              (progn (search-forward ")" nil t)
+                                     (- (point) 1)))))
+    (unless (eq (length str) 0)
+      (split-string str))))
 
 (defun elmo-imap4-parse-envelope ()
   (when (eq (char-after) ?\()