* elmo-imap4.el (elmo-imap4-session): Added use-flag slot.

(elmo-imap4-session-select-mailbox): Set it up.
(elmo-folder-use-flag-p): Return value of use-flag slot.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 282a9ce..88f871c 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2003-11-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-imap4.el (elmo-imap4-session): Added use-flag slot.
+       (elmo-imap4-session-select-mailbox): Set it up.
+       (elmo-folder-use-flag-p): Return value of use-flag slot.
+
 2003-11-07  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo-msgdb.el (elmo-msgdb-flag-table): Fixed problem when

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 3bf70f7..7ef3911 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -177,7 +177,7 @@ Debug information is inserted in the buffer \"*IMAP4 DEBUG*\"")
 ;;; Session
 (eval-and-compile
   (luna-define-class elmo-imap4-session (elmo-network-session)
-                    (capability current-mailbox read-only flags))
+                    (capability current-mailbox read-only flags use-flag))
   (luna-define-internal-accessors 'elmo-imap4-session))
 
 ;;; MIME-ELMO-IMAP Location
@@ -693,7 +693,11 @@ Returns response value if selecting folder succeed. "
              (elmo-imap4-session-set-flags-internal
               session
               (nth 1 (or (assq 'permanentflags response)
-                         (assq 'flags response)))))
+                         (assq 'flags response))))
+             (elmo-imap4-session-set-use-flag-internal
+              session
+              (and (elmo-imap4-session-flag-available-p session 'read)
+                   (elmo-imap4-session-flag-available-p session 'important))))
          (elmo-imap4-session-set-current-mailbox-internal session nil)
          (if (and (eq no-error 'notify-bye)
                   (elmo-imap4-response-bye-p response))
@@ -1910,7 +1914,7 @@ Return nil if no complete line has arrived."
   (elmo-imap4-folder-list-flagged folder 'answered))
 
 (luna-define-method elmo-folder-use-flag-p ((folder elmo-imap4-folder))
-  t)
+  (elmo-imap4-session-use-flag-internal (elmo-imap4-get-session folder)))
 
 (luna-define-method elmo-folder-list-subfolders ((folder elmo-imap4-folder)
                                                 &optional one-level)
@@ -2412,7 +2416,7 @@ If optional argument REMOVE is non-nil, remove FLAG."
     (setq messages (elmo-imap4-response-value response 'messages))
     (setq uidnext (elmo-imap4-response-value response 'uidnext))
     (setq killed (elmo-msgdb-killed-list-load (elmo-folder-msgdb-path folder)))
-    ;; 
+    ;;
     (when killed
       (when (and (consp (car killed))
                 (eq (car (car killed)) 1))