# HG changeset patch # User Eli Zaretskii # Date 1175591137 0 # Node ID 714d51db2c251ed623ed0f23ea3bd2b7ec3a2338 # Parent 63961350510c84551ac90bc12c15ebc70212702d (smtpmail-via-smtp): Fix indentation. diff -r 63961350510c -r 714d51db2c25 lisp/mail/smtpmail.el --- 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