2 files changed, 7 insertions, 1 deletions

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  <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
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))