mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

mail/smtpmail.el (smtpmail-try-auth-methods): Send AUTH CRAM-MD5

Browse source 
in upper case.  Reported by Wojciech Polak <polak@gnu.org> and
tiny patch from Sergey Poznyakoff.
This commit is contained in:
Simon Josefsson 2004-12-27 11:30:04 +00:00
parent e314a6e4fe
commit 8ffc3990ae
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

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

2
lisp/mail/smtpmail.el
View file

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