From: Clinton Ebadi <clinton@unknownlamer.org>
Date: Sun, 30 Mar 2014 00:38:47 +0000 (-0400)
Subject: Fix definition of DefaultAliasSource
X-Git-Tag: release_20140329
X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/commitdiff_plain/270265f9d9f2d733a2e3c8cf843884570d940630?hp=945262dcc47a5e2fed8c3480f0b34fd9b97a7965

Fix definition of DefaultAliasSource
---

diff --git a/src/plugins/easy_domain.sml b/src/plugins/easy_domain.sml
index fafe4d5..7a15dea 100644
--- a/src/plugins/easy_domain.sml
+++ b/src/plugins/easy_domain.sml
@@ -45,7 +45,7 @@ val _ = Defaults.registerDefault ("DefaultAlias",
 
 val _ = Defaults.registerDefault ("DefaultAliasSource",
 				  (TBase "aliasSource", dl),
-				  (fn () => (EApp ((EVar "defaultSource", dl), (EString (Domain.getUser ()), dl)), dl)))
+				  (fn () => (EVar "defaultSource", dl)))
 
 val _ = Defaults.registerDefault ("HandleMail",
 				  (TBase "bool", dl),