diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2007-04-03 09:05:37 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2007-04-03 09:05:37 +0000 |
| commit | 814066452f1bad8c685c2077cdf074468d2ab6ef (patch) | |
| tree | e6e7a8dbe1b65e9635bfd8c28f46fe433acf062a | |
| parent | 0a194c9264961cc32eff367c4a72330c8a24e5f7 (diff) | |
| download | emacs-814066452f1bad8c685c2077cdf074468d2ab6ef.tar.gz | |
(smtpmail-via-smtp): Fix indentation.
| -rw-r--r-- | lisp/mail/smtpmail.el | 16 |
1 files 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 |