Mercurial > emacs
comparison lisp/mail/smtpmail.el @ 67347:66e6a179905b
* mail/smtpmail.el (smtpmail-try-auth-methods): Make password
prompts work for AUTH PLAIN.
| author | Simon Josefsson <jas@extundo.com> |
|---|---|
| date | Tue, 06 Dec 2005 12:54:59 +0000 |
| parents | f455a937815f |
| children | 02c3cfe8d00b |
comparison
equal
deleted
inserted
replaced
| 67346:bdeb6c3bfc1b | 67347:66e6a179905b |
|---|---|
| 567 (throw 'done nil)) | 567 (throw 'done nil)) |
| 568 (smtpmail-send-command process (base64-encode-string | 568 (smtpmail-send-command process (base64-encode-string |
| 569 (concat "\0" | 569 (concat "\0" |
| 570 (smtpmail-cred-user cred) | 570 (smtpmail-cred-user cred) |
| 571 "\0" | 571 "\0" |
| 572 (smtpmail-cred-passwd cred)))) | 572 passwd))) |
| 573 (if (or (null (car (setq ret (smtpmail-read-response process)))) | 573 (if (or (null (car (setq ret (smtpmail-read-response process)))) |
| 574 (not (integerp (car ret))) | 574 (not (integerp (car ret))) |
| 575 (not (equal (car ret) 235))) | 575 (not (equal (car ret) 235))) |
| 576 (throw 'done nil))) | 576 (throw 'done nil))) |
| 577 | 577 |