val dl = ErrorMsg.dummyLoc
-val _ = Main.registerDefault ("MailNodes",
- (TList (TBase "node", dl), dl),
- (EList (map (fn s => (EString s, dl)) Config.Exim.aliasTo), dl))
+val _ = Defaults.registerDefault ("MailNodes",
+ (TList (TBase "mail_node", dl), dl),
+ (fn () => (EList (map (fn s => (EString s, dl)) Config.Exim.aliasTo), dl)))
val aliasesChanged = ref false
val aliasesDefaultChanged = ref false