From 0092d276712e183f7e329a99ba310ebdcd0923e5 Mon Sep 17 00:00:00 2001 From: okada Date: Fri, 16 Feb 2001 19:12:44 +0000 Subject: [PATCH] * elmo-pop3.el (elmo-network-authenticate-session): Bind `sasl-mechanisms' --- elmo/ChangeLog | 4 ++++ elmo/elmo-pop3.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index e826149..e4a5692 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,7 @@ +2000-02-17 Kenichi OKADA + + * elmo-pop3.el (elmo-network-authenticate-session): Bind `sasl-mechanisms' + 2001-02-13 OKAZAKI Tetsurou * elmo-imap4.el (elmo-imap4-prefetch-msg): Set `msgdb' diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el index 473fbd7..ad5a003 100644 --- 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))))) ;) -- 1.7.10.4