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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6b1bd54..f851331 100644 (file)
--- 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 (file)
--- 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))))) ;)