use host-name if smtp-host symbol not set

2008-04-24 20:13:18 -05:00 · 2008-04-24 20:13:18 -05:00 · e5575e0dc0
parent b1016e6ea5
commit e5575e0dc0
1 changed files with 1 additions and 1 deletions
--- 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 ;