(elmo-imap4-flags-to-imap): Preserve argument

`flags'.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 572cf35..05ba06b 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-17  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-imap4.el (elmo-imap4-flags-to-imap): Preserve argument
+       `flags'.
+
 2005-02-16  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo-filter.el (elmo-message-set-cached): Call

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index c3b88af..b59cfc2 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -2582,13 +2582,14 @@ If optional argument REMOVE is non-nil, remove FLAG."
 
 (defun elmo-imap4-flags-to-imap (flags)
   "Convert FLAGS to the IMAP flag string."
-  (let ((imap-flag (if (not (memq 'unread flags)) "\\Seen"))
-       (flags (delq 'read (delq 'cached (delq 'unread flags))))
-       spec)
+  (let ((imap-flag (if (not (memq 'unread flags)) "\\Seen")))
     (dolist (flag flags)
-      (setq imap-flag (concat imap-flag (if imap-flag " ")
-                             (or (car (cdr (assq flag elmo-imap4-flag-specs)))
-                                 (capitalize (symbol-name flag))))))
+      (unless (memq flag '(new read unread cached))
+       (setq imap-flag
+             (concat imap-flag
+                     (if imap-flag " ")
+                     (or (car (cdr (assq flag elmo-imap4-flag-specs)))
+                         (capitalize (symbol-name flag)))))))
     imap-flag))
 
 (luna-define-method elmo-folder-append-buffer