* elmo-imap4.el (elmo-imap4-session-select-mailbox): Use

`permanentflag'	instead of `flags'.
(elmo-folder-open): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 66ce27c..3cc519c 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2003-10-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-imap4.el (elmo-imap4-session-select-mailbox): Use
+       `permanentflag' instead of `flags'.
+       (elmo-folder-open): Ditto.
+
 2003-10-06  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * modb-legacy.el (elmo-msgdb-message-entity): Return nil when key

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 955304a..67165a1 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -696,7 +696,7 @@ Returns response value if selecting folder succeed. "
               (nth 1 (assq 'read-only (assq 'ok response))))
              (elmo-imap4-session-set-flags-internal
               session
-              (nth 1 (assq 'flags response))))
+              (nth 1 (assq 'permanentflags response))))
          (elmo-imap4-session-set-current-mailbox-internal session nil)
          (if (and (eq no-error 'notify-bye)
                   (elmo-imap4-response-bye-p response))
@@ -2466,7 +2466,7 @@ If optional argument REMOVE is non-nil, remove FLAG."
                     (nth 1 (assq 'read-only (assq 'ok response))))
                    (elmo-imap4-session-set-flags-internal
                     session
-                    (nth 1 (assq 'flags response))))
+                    (nth 1 (assq 'permanentflags response))))
                (elmo-imap4-session-set-current-mailbox-internal session nil)
                (if (elmo-imap4-response-bye-p response)
                    (elmo-imap4-process-bye session)