From: teranisi <teranisi>
Date: Sun, 9 Nov 2003 13:41:46 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-session): Added use-flag slot.
X-Git-Tag: wl-2_11_21~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c2e1bc3dd47018716ec79b13fb2fa380ce526cc0;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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))