Mercurial > emacs
changeset 76908:714d51db2c25
(smtpmail-via-smtp): Fix indentation.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Tue, 03 Apr 2007 09:05:37 +0000 |
parents | 63961350510c |
children | fba5b366a207 |
files | lisp/mail/smtpmail.el |
diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/smtpmail.el Tue Apr 03 07:34:37 2007 +0000 +++ b/lisp/mail/smtpmail.el Tue Apr 03 09:05:37 2007 +0000 @@ -695,16 +695,16 @@ (split-string (substring line 4) "[ ]")))) (and (eq (length name) 1) (setq name (car name))) - (and name + (and name (cond ((memq (if (consp name) (car name) name) '(verb xvrb 8bitmime onex xone - expn size dsn etrn - enhancedstatuscodes - help xusr - auth=login auth starttls)) - (setq supported-extensions - (cons name supported-extensions))) - (smtpmail-warn-about-unknown-extensions + expn size dsn etrn + enhancedstatuscodes + help xusr + auth=login auth starttls)) + (setq supported-extensions + (cons name supported-extensions))) + (smtpmail-warn-about-unknown-extensions (message "Unknown extension %s" name))))))) (if (and do-starttls