mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-31 04:41:23 -08:00
Code Issues Projects Releases Wiki Activity

* mail/smtpmail.el (smtpmail-try-auth-methods): Do not break long

Browse source 
lines in base64-encoded authentication response.
This commit is contained in:
Chong Yidong 2006-09-28 17:16:12 +00:00
parent 7ad02ea851
commit e4eb8462ca
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

8
lisp/mail/smtpmail.el
View file

@ -541,7 +541,7 @@ This is relative to `smtpmail-queue-dir'.")
(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 @@ This is relative to `smtpmail-queue-dir'.")
(>= (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 @@ This is relative to `smtpmail-queue-dir'.")
(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)))