procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix AUTH PLAIN authentication.

Browse source
This commit is contained in:
Simon Josefsson 2005-12-28 08:46:05 +00:00
parent 6281e1e84d
commit c3f69831cb
2 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2005-12-05 Ralf Angeli <angeli@iwi.uni-sb.de>
* mail/smtpmail.el (smtpmail-try-auth-methods): Send
credentials together with "AUTH PLAIN" command.
2005-12-27 Richard M. Stallman <rms@gnu.org>
* mouse.el (mouse-drag-region-1): When remapping mouse-1 to

11
lisp/mail/smtpmail.el
View file

@ -560,16 +560,13 @@ This is relative to `smtpmail-queue-dir'.")
(>= (car ret) 400))
(throw 'done nil)))
((eq mech 'plain)
(smtpmail-send-command process "AUTH PLAIN")
(if (or (null (car (setq ret (smtpmail-read-response process))))
(not (integerp (car ret)))
(not (equal (car ret) 334)))
(throw 'done nil))
(smtpmail-send-command process (base64-encode-string
(smtpmail-send-command process
(concat "AUTH PLAIN "
(base64-encode-string
(concat "\0"
(smtpmail-cred-user cred)
"\0"
passwd)))
passwd))))
(if (or (null (car (setq ret (smtpmail-read-response process))))
(not (integerp (car ret)))
(not (equal (car ret) 235)))