From e5575e0dc076979eba0aba6c0873b7d1a4b70751 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 24 Apr 2008 20:13:18 -0500
Subject: [PATCH] use host-name if smtp-host symbol not set

---
 extra/smtp/smtp.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/smtp/smtp.factor b/extra/smtp/smtp.factor
index d565117e5f..4d548738d2 100755
--- 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 ;