Mercurial > emacs
changeset 59159:e6d896f96885
Fix last commit.
| author | Simon Josefsson <jas@extundo.com> |
|---|---|
| date | Mon, 27 Dec 2004 23:06:11 +0000 |
| parents | add143f9cac9 |
| children | e370302ad42a 223c12363c0c |
| files | lisp/ChangeLog lisp/mail/smtpmail.el |
| diffstat | 2 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Dec 27 22:12:53 2004 +0000 +++ b/lisp/ChangeLog Mon Dec 27 23:06:11 2004 +0000 @@ -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>
--- a/lisp/mail/smtpmail.el Mon Dec 27 22:12:53 2004 +0000 +++ b/lisp/mail/smtpmail.el Mon Dec 27 23:06:11 2004 +0000 @@ -523,7 +523,7 @@ (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))