Mercurial > emacs

comparison lisp/mail/smtpmail.el @ 76908:714d51db2c25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(smtpmail-via-smtp): Fix indentation.
author Eli Zaretskii <eliz@gnu.org>
date Tue, 03 Apr 2007 09:05:37 +0000
parents ee6e10ac7c82
children 3c8672cf3035
comparison
equal deleted inserted replaced
76907:63961350510c 76908:714d51db2c25
693 (dolist (line (cdr (cdr response-code))) 693 (dolist (line (cdr (cdr response-code)))
694 (let ((name (mapcar (lambda (s) (intern (downcase s))) 694 (let ((name (mapcar (lambda (s) (intern (downcase s)))
695 (split-string (substring line 4) "[ ]")))) 695 (split-string (substring line 4) "[ ]"))))
696 (and (eq (length name) 1) 696 (and (eq (length name) 1)
697 (setq name (car name))) 697 (setq name (car name)))
698 (and name 698 (and name
699 (cond ((memq (if (consp name) (car name) name) 699 (cond ((memq (if (consp name) (car name) name)
700 '(verb xvrb 8bitmime onex xone 700 '(verb xvrb 8bitmime onex xone
701 expn size dsn etrn 701 expn size dsn etrn
702 enhancedstatuscodes 702 enhancedstatuscodes
703 help xusr 703 help xusr
704 auth=login auth starttls)) 704 auth=login auth starttls))
705 (setq supported-extensions 705 (setq supported-extensions
706 (cons name supported-extensions))) 706 (cons name supported-extensions)))
707 (smtpmail-warn-about-unknown-extensions 707 (smtpmail-warn-about-unknown-extensions
708 (message "Unknown extension %s" name))))))) 708 (message "Unknown extension %s" name)))))))
709 709
710 (if (and do-starttls 710 (if (and do-starttls
711 (smtpmail-find-credentials smtpmail-starttls-credentials host port) 711 (smtpmail-find-credentials smtpmail-starttls-credentials host port)
712 (member 'starttls supported-extensions) 712 (member 'starttls supported-extensions)