From: vitaly <vitaly>
Date: Fri, 22 Jan 2010 15:42:07 +0000 (+0000)
Subject: Ask IMAP server for capabilities after login.
X-Git-Tag: elmo-imap4-compliance-root~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=59f7e1e2cf607637c419022af401071b8f7ecb5c;p=elisp%2Fwanderlust.git

Ask IMAP server for capabilities after login.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index a702cea..41fb624 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -3,6 +3,8 @@
 	* modb-standard.el (modb-standard-save-entity): Use
 	`modb-standard-cleanup-stale-entities' to clean up stale entity
 	files in modb cache.
+	* elmo-imap4.el (elmo-network-authenticate-session): Ask for
+	capabilities after login.
 
 2010-01-17  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index e377dc6..dfa1b2b 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1145,7 +1145,15 @@ If CHOP-LENGTH is not specified, message set is not chopped."
 		       (if (sasl-step-data step)
 			   (elmo-base64-encode-string (sasl-step-data step)
 						      'no-line-break)
-			 ""))))))))))))
+			 "")))))))
+;; Some servers return reduced capabilities when client asks for them
+;; before login. It might be a good idea to ask them again, otherwise
+;; we can miss some useful feature.
+	 (elmo-imap4-session-set-capability-internal
+	  session
+	  (elmo-imap4-response-value
+	   (elmo-imap4-send-command-wait session "capability")
+	   'capability)))))))
 
 (luna-define-method elmo-network-setup-session ((session
 						 elmo-imap4-session))