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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 42fdf4869f94e0ba775cda012c2c2aa432260ac0..c75197e316d852e0f13a991e440679a7eb9dee95 100644 (file)
--- 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 d356979ea26bfa46a45c7f3077dc21ae13147c13..57443abd4590aab7bb0b12faeed7b7dab88cb50b 100644 (file)
--- 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))