(smtp-via-smtp): Fix typo.

diff --git a/lisp/smtp.el b/lisp/smtp.el
index 2997e1c..bea46d0 100644 (file)
--- a/lisp/smtp.el
+++ b/lisp/smtp.el
@@ -74,10 +74,9 @@ don't define this value."
      (smtp-local-domain
       (concat system-name "." smtp-local-domain))
      ((string-match "[^.]\\.[^.]" system-name)
-      ;; `system-name' returned the right result.
-      system-name))
-    (t
-     (error "Cannot generate valid FQDN. Set `smtp-local-domain' correctly."))))
+      system-name)
+     (t
+      (error "Cannot generate valid FQDN. Set `smtp-local-domain' correctly.")))))
 
 (defun smtp-via-smtp (sender recipients smtp-text-buffer)
   (let ((coding-system-for-read smtp-coding-system)