Mercurial > emacs
changeset 59098:a6e330cd3745
mail/smtpmail.el (smtpmail-try-auth-methods): Send AUTH CRAM-MD5
in upper case. Reported by Wojciech Polak <polak@gnu.org> and
tiny patch from Sergey Poznyakoff.
| author | Simon Josefsson <jas@extundo.com> |
|---|---|
| date | Mon, 27 Dec 2004 11:30:04 +0000 |
| parents | 00baca316918 |
| children | 1d03ef527ad6 |
| files | lisp/ChangeLog lisp/mail/smtpmail.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Dec 27 06:13:15 2004 +0000 +++ b/lisp/ChangeLog Mon Dec 27 11:30:04 2004 +0000 @@ -1,3 +1,9 @@ +2004-12-27 Simon Josefsson <jas@extundo.com> + + * mail/smtpmail.el (smtpmail-try-auth-methods): Send AUTH CRAM-MD5 + in upper case. Reported by Wojciech Polak <polak@gnu.org> and + tiny patch from Sergey Poznyakoff. + 2004-12-27 Kenichi Handa <handa@m17n.org> * international/utf-8.el (utf-translate-cjk-load-tables): Bind
--- a/lisp/mail/smtpmail.el Mon Dec 27 06:13:15 2004 +0000 +++ b/lisp/mail/smtpmail.el Mon Dec 27 11:30:04 2004 +0000 @@ -523,7 +523,7 @@ (when (and cred mech) (cond ((eq mech 'cram-md5) - (smtpmail-send-command process (format "AUTH %s" mech)) + (smtpmail-send-command process (format "AUTH %s" (upcase mech))) (if (or (null (car (setq ret (smtpmail-read-response process)))) (not (integerp (car ret))) (>= (car ret) 400))