Additions while poking around people's configs
authorAdam Chlipala <adamc@hcoop.net>
Sat, 1 Mar 2008 21:17:28 +0000 (21:17 +0000)
committerAdam Chlipala <adamc@hcoop.net>
Sat, 1 Mar 2008 21:17:28 +0000 (21:17 +0000)
lib/alias.dtl
lib/easy_domain.dtl

index e84d0a7..d7fb703 100644 (file)
@@ -39,3 +39,5 @@ val aliasDrop = \user -> aliasPrim (userSource user) dropTarget;
 val defaultAlias = \email -> aliasPrim defaultSource (addressTarget email);
 {{When a message to the current domain doesn't match any other rule, send it to
   this e-mail address.}}
+val defaultAliasDrop = aliasPrim defaultSource dropTarget;
+{{Silently drop all mail not matching a specific rule.}}
index 1c1b5d8..e5b1e8d 100644 (file)
@@ -2,6 +2,7 @@
 
 val default_node : (node) = "mire";
 val web_node : (web_node) = "mire";
+val web_ip = ip_of_node (web_node_to_node web_node);
 
 val webAt =
   \ n : (web_node) ->