Change DefaultAliasSource to $user@hcoop.net, add defaultMailUser extern

[hcoop/domtool2.git] / src / domain.sml

diff --git a/src/domain.sml b/src/domain.sml
index e2528b6..aebf0f1 100644 (file)
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -279,6 +279,10 @@ val _  = Env.registerFunction ("defaultMailbox",
                               fn [] => SOME (EString (getUser ()), dl)
                               | _ => NONE)
 
+val _  = Env.registerFunction ("defaultMailUser",
+                              fn [] => SOME (EString (getUser ()), dl)
+                              | _ => NONE)
+
 
 type soa = {ns : string,
            serial : int option,