projects
/
elisp
/
wanderlust.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
8ba65b9
)
* elmo-pop3.el (elmo-network-authenticate-session): Bind `sasl-mechanisms'
author
okada
<okada>
Fri, 16 Feb 2001 19:12:44 +0000
(19:12 +0000)
committer
okada
<okada>
Fri, 16 Feb 2001 19:12:44 +0000
(19:12 +0000)
elmo/ChangeLog
patch
|
blob
|
history
elmo/elmo-pop3.el
patch
|
blob
|
history
diff --git
a/elmo/ChangeLog
b/elmo/ChangeLog
index
e826149
..
e4a5692
100644
(file)
--- a/
elmo/ChangeLog
+++ b/
elmo/ChangeLog
@@
-1,3
+1,7
@@
+2000-02-17 Kenichi OKADA <okada@opaopa.org>
+
+ * elmo-pop3.el (elmo-network-authenticate-session): Bind `sasl-mechanisms'
+
2001-02-13 OKAZAKI Tetsurou <refactor@acidrain.localnet>
* elmo-imap4.el (elmo-imap4-prefetch-msg): Set `msgdb'
2001-02-13 OKAZAKI Tetsurou <refactor@acidrain.localnet>
* 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
(file)
--- 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))))
(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))
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)
process
(concat "AUTH " name
(and (sasl-step-data step)
- (concat
+ (concat
" "
(elmo-base64-encode-string
(sasl-step-data step) 'no-line-break))))) ;)
" "
(elmo-base64-encode-string
(sasl-step-data step) 'no-line-break))))) ;)