Ask IMAP server for capabilities after login.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index a702cea..41fb624 100644 (file)
--- 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 (file)
--- 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))