From 04c1664f794cd2f93ea47d2d029f91fbc1e6d621 Mon Sep 17 00:00:00 2001 From: okada Date: Fri, 16 Feb 2001 23:14:48 +0000 Subject: [PATCH] fix --- elmo/elmo-pop3.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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))) -- 1.7.10.4