From 814066452f1bad8c685c2077cdf074468d2ab6ef Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 3 Apr 2007 09:05:37 +0000 Subject: [PATCH] (smtpmail-via-smtp): Fix indentation. --- lisp/mail/smtpmail.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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 -- 2.39.5