From: Eli Zaretskii Date: Tue, 3 Apr 2007 09:05:37 +0000 (+0000) Subject: (smtpmail-via-smtp): Fix indentation. X-Git-Tag: emacs-pretest-22.0.97~22 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=814066452f1bad8c685c2077cdf074468d2ab6ef;p=emacs.git (smtpmail-via-smtp): Fix indentation. --- diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index e1e742a1d72..4d19e9371fd 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -695,16 +695,16 @@ This is relative to `smtpmail-queue-dir'.") (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