From: okada <okada>
Date: Fri, 16 Feb 2001 19:12:04 +0000 (+0000)
Subject: * elmo-pop3.el (elmo-network-authenticate-session): Bind `sasl-mechanisms'
X-Git-Tag: wl-2_6-root~117
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=75f2b9683804a0afea933caa90accca960a574d7;p=elisp%2Fwanderlust.git

* elmo-pop3.el (elmo-network-authenticate-session): Bind `sasl-mechanisms'
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6b1bd54..f851331 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2000-02-17  Kenichi OKADA  <okada@opaopa.org>
+
+	* elmo-pop3.el (elmo-network-authenticate-session): Bind `sasl-mechanisms'
+
 2001-02-16  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-msgdb.el (elmo-msgdb-rename-path): Fix.
diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index a4539fe..cef5d97 100644
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -223,6 +223,7 @@
 	   (auth (elmo-network-session-auth-internal session))
 	   (auth (mapcar '(lambda (mechanism) (upcase (symbol-name mechanism)))
 			 (if (listp auth) auth (list auth))))
+	   (sasl-mechanisms (mapcar 'car sasl-mechanism-alist))
 	   client name step response mechanism
 	   sasl-read-passphrase)
       (or (and (string= "USER" (car auth))
@@ -254,7 +255,7 @@
 	     process
 	     (concat "AUTH " name
 		     (and (sasl-step-data step)
-			  (concat 
+			  (concat
 			   " "
 			   (elmo-base64-encode-string
 			    (sasl-step-data step) 'no-line-break))))) ;)