From: teranisi <teranisi>
Date: Wed, 13 Sep 2000 08:35:46 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-parse-flag-list): Rewrite.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1cf1d1a4887a7cc60281ceb285c0664ba6ae3d1b;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 37e2dd5..ae57423 100644
--- 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
--- 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) ?\()