From: okada <okada>
Date: Fri, 16 Feb 2001 23:14:48 +0000 (+0000)
Subject: fix
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=04c1664f794cd2f93ea47d2d029f91fbc1e6d621;p=elisp%2Fwanderlust.git

fix
---

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index ad5a003..59201f6 100644
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -44,8 +44,9 @@
   "*If non-nil, use UIDL.")
 
 (defvar elmo-pop3-exists-exactly t)
+(defvar sasl-mechanism-alist)
 
-(luna-define-class elmo-pop3-session (elmo-network-session) ())
+(luna-define-class elmo-pop3-session (elmo-network-session))
 
 ;; buffer-local
 (defvar elmo-pop3-read-point nil)
@@ -223,7 +224,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))
+	   sasl-mechanisms
 	   client name step response mechanism
 	   sasl-read-passphrase)
       (or (and (string= "USER" (car auth))
@@ -231,6 +232,8 @@
 	  (and (string= "APOP" (car auth))
 	       (elmo-pop3-auth-apop session))
 	  (progn
+	    (require 'sasl)
+	    (setq sasl-mechanisms (mapcar 'car sasl-mechanism-alist))
 	    (setq mechanism (sasl-find-mechanism auth))
 	    (unless mechanism
 	      (signal 'elmo-authenticate-error '(elmo-pop3-auth-no-mechanisms)))