fix
authorokada <okada>
Fri, 16 Feb 2001 23:14:12 +0000 (23:14 +0000)
committerokada <okada>
Fri, 16 Feb 2001 23:14:12 +0000 (23:14 +0000)
elmo/elmo-pop3.el

index cef5d97..59201f6 100644 (file)
@@ -44,6 +44,7 @@
   "*If non-nil, use UIDL.")
 
 (defvar elmo-pop3-exists-exactly t)
+(defvar sasl-mechanism-alist)
 
 (luna-define-class elmo-pop3-session (elmo-network-session))
 
           (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))
          (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)))