diff options
| author | Simon Josefsson <jas@extundo.com> | 2004-12-27 11:30:04 +0000 |
|---|---|---|
| committer | Simon Josefsson <jas@extundo.com> | 2004-12-27 11:30:04 +0000 |
| commit | 8ffc3990aed5a642b8d572bb606f99e274fbed26 (patch) | |
| tree | d96816b80f67a04203245350226b45b8f87fa75f /lisp/mail/smtpmail.el | |
| parent | e314a6e4fe9d6d75c789d3efe84423738b8ef0d6 (diff) | |
| download | emacs-8ffc3990aed5a642b8d572bb606f99e274fbed26.tar.gz | |
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.
Diffstat (limited to 'lisp/mail/smtpmail.el')
| -rw-r--r-- | lisp/mail/smtpmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |