Ask IMAP server for capabilities after login.

[elisp/wanderlust.git] / elmo / elmo-imap4.el

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