# HG changeset patch
# User Simon Josefsson <jas@extundo.com>
# Date 1104147004 0
# Node ID a6e330cd3745c54e815bc4c4b59d6cda0d7ad55a
# Parent  00baca3169180c81eaa407092eccc0c3f75a56c1
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 -r 00baca316918 -r a6e330cd3745 lisp/ChangeLog
--- 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
diff -r 00baca316918 -r a6e330cd3745 lisp/mail/smtpmail.el
--- 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))