[Emacs-diffs] Changes to emacs/lisp/mail/smtpmail.el

[Simon Josefsson]

Index: emacs/lisp/mail/smtpmail.el
diff -c emacs/lisp/mail/smtpmail.el:1.69 emacs/lisp/mail/smtpmail.el:1.70
*** emacs/lisp/mail/smtpmail.el:1.69    Mon Oct 11 18:42:00 2004
--- emacs/lisp/mail/smtpmail.el Mon Dec 27 11:30:03 2004
***************
*** 523,529 ****
      (when (and cred mech)
        (cond
         ((eq mech 'cram-md5)
!       (smtpmail-send-command process (format "AUTH %s" mech))
        (if (or (null (car (setq ret (smtpmail-read-response process))))
                (not (integerp (car ret)))
                (>= (car ret) 400))
--- 523,529 ----
      (when (and cred mech)
        (cond
         ((eq mech 'cram-md5)
!       (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))