From 8ffc3990aed5a642b8d572bb606f99e274fbed26 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Mon, 27 Dec 2004 11:30:04 +0000 Subject: [PATCH] mail/smtpmail.el (smtpmail-try-auth-methods): Send AUTH CRAM-MD5 in upper case. Reported by Wojciech Polak and tiny patch from Sergey Poznyakoff. --- lisp/ChangeLog | 6 ++++++ lisp/mail/smtpmail.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 42fdf4869f9..c75197e316d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-12-27 Simon Josefsson + + * mail/smtpmail.el (smtpmail-try-auth-methods): Send AUTH CRAM-MD5 + in upper case. Reported by Wojciech Polak and + tiny patch from Sergey Poznyakoff. + 2004-12-27 Kenichi Handa * international/utf-8.el (utf-translate-cjk-load-tables): Bind diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index d356979ea26..57443abd459 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -523,7 +523,7 @@ This is relative to `smtpmail-queue-dir'.") (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)) -- 2.39.5