From: Simon Josefsson <jas@extundo.com>
Date: Mon, 27 Dec 2004 11:30:04 +0000 (+0000)
Subject: mail/smtpmail.el (smtpmail-try-auth-methods): Send AUTH CRAM-MD5
X-Git-Tag: ttn-vms-21-2-B4~3151
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ffc3990aed5a642b8d572bb606f99e274fbed26;p=emacs.git

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