use host-name if smtp-host symbol not set

diff --git a/extra/smtp/smtp.factor b/extra/smtp/smtp.factor
index d565117e5fdffe66b477a23b5ce4f15567a4e44e..4d548738d2c9efed894f36b0dfb435027b36b9db 100755 (executable)
--- a/extra/smtp/smtp.factor
+++ b/extra/smtp/smtp.factor
@@ -131,7 +131,7 @@ M: email clone
         "-" %
         millis #
         "@" %
-        smtp-domain get %
+        smtp-domain get [ host-name ] unless* %
         ">" %
     ] "" make ;