From: dmaus <dmaus>
Date: Sun, 29 May 2011 16:05:56 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-network-authenticate-session): Always ask
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-2^2~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0f10dc646b349f390d9b64ace1df7f3b1ea1e567;p=elisp%2Fwanderlust.git

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