fix

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index ad5a003..59201f6 100644 (file)
--- 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)))