diff options
| author | Simon Josefsson <jas@extundo.com> | 2005-12-28 08:46:05 +0000 |
|---|---|---|
| committer | Simon Josefsson <jas@extundo.com> | 2005-12-28 08:46:05 +0000 |
| commit | c3f69831cb76026c71a047d7fa4036ee436896d8 (patch) | |
| tree | 2001ebfdfe45a405e0180f61d131e9cc512affd2 /lisp/mail | |
| parent | 6281e1e84dc30a52084fa6d9a8b4e6291182415c (diff) | |
| download | emacs-c3f69831cb76026c71a047d7fa4036ee436896d8.tar.gz | |
Fix AUTH PLAIN authentication.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/smtpmail.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 0eb956981ce..76598ab8a8d 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -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))) |