Fix last commit.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 22fac866e388b23ae1974dc1a9cf66e91adbcf1e..6f75d7141b2f62be8cf142743ea9e7ae9bb78557 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -98,11 +98,10 @@
         * ffap.el (ffap-string-at-point-mode-alist): Add "*" to url chars,
         it can appear unencoded and has been seen from yahoo.
 
-2004-12-27  Simon Josefsson  <jas@extundo.com>
+2004-12-27  Sergey Poznyakoff <gray@Mirddin.farlep.net>
 
        * 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.
+       in upper case.  Reported by Wojciech Polak <polak@gnu.org>.
 
 2004-12-27  Kenichi Handa  <handa@m17n.org>
 

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 57443abd4590aab7bb0b12faeed7b7dab88cb50b..7e6d4746e8d1fd97c47e5670826d2ec9549c50a3 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" (upcase mech)))
+       (smtpmail-send-command process (upcase (format "AUTH %s" mech)))
        (if (or (null (car (setq ret (smtpmail-read-response process))))
                (not (integerp (car ret)))
                (>= (car ret) 400))