From 1cf1d1a4887a7cc60281ceb285c0664ba6ae3d1b Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 13 Sep 2000 08:35:46 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-imap4-parse-flag-list): Rewrite. --- elmo/ChangeLog | 4 ++++ elmo/elmo-imap4.el | 11 +++++------ 2 files changed, 9 insertions(+), 6 deletions(-) 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 + + * elmo-imap4.el (elmo-imap4-parse-flag-list): Rewrite. + 2000-09-12 Katsumi Yamaoka * 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) ?\() -- 1.7.10.4