Mercurial > emacs

comparison lisp/mail/smtpmail.el @ 59159:e6d896f96885

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix last commit.
author Simon Josefsson <jas@extundo.com>
date Mon, 27 Dec 2004 23:06:11 +0000
parents a6e330cd3745
children aac0a33f5772 95879cc1ed20
comparison
equal deleted inserted replaced
59158:add143f9cac9 59159:e6d896f96885
521 (smtpmail-cred-port cred)))))) 521 (smtpmail-cred-port cred))))))
522 ret) 522 ret)
523 (when (and cred mech) 523 (when (and cred mech)
524 (cond 524 (cond
525 ((eq mech 'cram-md5) 525 ((eq mech 'cram-md5)
526 (smtpmail-send-command process (format "AUTH %s" (upcase mech))) 526 (smtpmail-send-command process (upcase (format "AUTH %s" mech)))
527 (if (or (null (car (setq ret (smtpmail-read-response process)))) 527 (if (or (null (car (setq ret (smtpmail-read-response process))))
528 (not (integerp (car ret))) 528 (not (integerp (car ret)))
529 (>= (car ret) 400)) 529 (>= (car ret) 400))
530 (throw 'done nil)) 530 (throw 'done nil))
531 (when (eq (car ret) 334) 531 (when (eq (car ret) 334)