Mercurial > emacs
changeset 73148:6887b498642b
* mail/smtpmail.el (smtpmail-try-auth-methods): Do not break long
lines in base64-encoded authentication response.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 28 Sep 2006 17:16:12 +0000 |
| parents | 448115958b77 |
| children | 9f1e1aac88bf |
| files | lisp/ChangeLog lisp/mail/smtpmail.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Sep 28 05:47:50 2006 +0000 +++ b/lisp/ChangeLog Thu Sep 28 17:16:12 2006 +0000 @@ -1,3 +1,8 @@ +2006-09-28 Chong Yidong <cyd@stupidchicken.com> + + * mail/smtpmail.el (smtpmail-try-auth-methods): Do not break long + lines in base64-encoded authentication response. + 2006-09-26 Vinicius Jose Latorre <viniciusjl@ig.com.br> * progmode/ebnf2ps.el: Doc fix. Implement arrow spacing and scaling.
--- a/lisp/mail/smtpmail.el Thu Sep 28 05:47:50 2006 +0000 +++ b/lisp/mail/smtpmail.el Thu Sep 28 17:16:12 2006 +0000 @@ -541,7 +541,7 @@ (decoded (base64-decode-string challenge)) (hash (rfc2104-hash 'md5 64 16 passwd decoded)) (response (concat (smtpmail-cred-user cred) " " hash)) - (encoded (base64-encode-string response))) + (encoded (base64-encode-string response t))) (smtpmail-send-command process (format "%s" encoded)) (if (or (null (car (setq ret (smtpmail-read-response process)))) (not (integerp (car ret))) @@ -554,12 +554,12 @@ (>= (car ret) 400)) (throw 'done nil)) (smtpmail-send-command - process (base64-encode-string (smtpmail-cred-user cred))) + process (base64-encode-string (smtpmail-cred-user cred t))) (if (or (null (car (setq ret (smtpmail-read-response process)))) (not (integerp (car ret))) (>= (car ret) 400)) (throw 'done nil)) - (smtpmail-send-command process (base64-encode-string passwd)) + (smtpmail-send-command process (base64-encode-string passwd t)) (if (or (null (car (setq ret (smtpmail-read-response process)))) (not (integerp (car ret))) (>= (car ret) 400)) @@ -576,7 +576,7 @@ (concat "\0" (smtpmail-cred-user cred) "\0" - passwd)))) + passwd) t))) (if (or (null (car (setq ret (smtpmail-read-response process)))) (not (integerp (car ret))) (not (equal (car ret) 235)))