* elmo-imap4.el (elmo-network-authenticate-session): Always ask

for capabilities after login.
(elmo-imap4-parse-response): Remove superfluous third argument to
split-string.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 795edd4..3aea9d3 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,10 @@
+2011-05-29  David Maus  <dmaus@ictsoc.de>
+
+       * elmo-imap4.el (elmo-network-authenticate-session): Always ask
+       for capabilities after login.
+       (elmo-imap4-parse-response): Remove superfluous third argument to
+       split-string.
+
 2011-01-12  David Maus  <dmaus@ictsoc.de>
 
        * elmo-nntp.el (elmo-nntp-folder-msgdb-create): Remove accidental

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index fa379be..788f28e 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1154,15 +1154,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)))))))
+       (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))
@@ -1455,7 +1455,7 @@ Return nil if no complete line has arrived."
                                      ")"))))
           (ESEARCH     (list
                         'esearch
-                        (cddr (split-string (buffer-substring (point) (point-max)) " " "\,"))))
+                        (cddr (split-string (buffer-substring (point) (point-max)) " "))))
           (STATUS     (elmo-imap4-parse-status))
           ;; Added
           (NAMESPACE  (elmo-imap4-parse-namespace))