From 1a63439b34c3455a317feda5c271dfdb7af0296b Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Mon, 27 Dec 2004 23:06:11 +0000 Subject: [PATCH] Fix last commit. --- lisp/ChangeLog | 5 ++--- lisp/mail/smtpmail.el | 2 +- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 22fac866e38..6f75d7141b2 100644 --- 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 +2004-12-27 Sergey Poznyakoff * mail/smtpmail.el (smtpmail-try-auth-methods): Send AUTH CRAM-MD5 - in upper case. Reported by Wojciech Polak and - tiny patch from Sergey Poznyakoff. + in upper case. Reported by Wojciech Polak . 2004-12-27 Kenichi Handa diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 57443abd459..7e6d4746e8d 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" (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)) -- 2.39.2