Limiting acceptable mail nodes

[hcoop/domtool2.git] / src / plugins / exim.sml

diff --git a/src/plugins/exim.sml b/src/plugins/exim.sml
index 0744fce..bb2743a 100644 (file)
--- a/src/plugins/exim.sml
+++ b/src/plugins/exim.sml
@@ -25,7 +25,7 @@ open Ast
 val dl = ErrorMsg.dummyLoc
 
 val _ = Defaults.registerDefault ("MailNodes",
 val dl = ErrorMsg.dummyLoc
 
 val _ = Defaults.registerDefault ("MailNodes",

-                                 (TList (TBase "node", dl), dl),
+                                 (TList (TBase "mail_node", dl), dl),

                                  (fn () => (EList (map (fn s => (EString s, dl)) Config.Exim.aliasTo), dl)))
 
 val aliasesChanged = ref false
                                  (fn () => (EList (map (fn s => (EString s, dl)) Config.Exim.aliasTo), dl)))
 
 val aliasesChanged = ref false