X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/e322749aaf1c399d172e803e2a8d3d67616d092b..ec95f39fbe75c414e53f5f922b75390a0179e916:/src/plugins/mailman.sml

diff --git a/src/plugins/mailman.sml b/src/plugins/mailman.sml
index 854c91a..a4f5a6c 100644
--- a/src/plugins/mailman.sml
+++ b/src/plugins/mailman.sml
@@ -69,7 +69,7 @@ val () = Env.action_one "mailmanWebHost"
 			(fn host =>
 			    let
 				val {write, writeDom, close} = Domain.domainsFile {node = Config.Mailman.node,
-										   name = "mailman"}
+										   name = "mailman.conf"}
 			    in
 				write "\t'";
 				write host;
@@ -175,15 +175,15 @@ val () = Slave.registerFileHandler (fn fs =>
 					   val spl = OS.Path.splitDirFile (#file fs)
 				       in
 					   case #file spl of
-					       "mailman" => mailmanChanged := true
+					       "mailman.conf" => mailmanChanged := true
 					     | _ => ()
 				       end)
 
 val () = Slave.registerPostHandler (fn () =>
 				       if !mailmanChanged then
-					   (Slave.concatTo (fn s => s = "mailman")
+					   (Slave.concatTo (fn s => s = "mailman.conf")
 							   Config.Mailman.mapFile;
-				            Slave.enumerateTo (fn s => s = "mailman") ":"
+				            Slave.enumerateTo (fn s => s = "mailman.conf") ":"
 							      Config.Mailman.handleDomains;
 							      Slave.shellF ([Config.Mailman.reload],
 						       fn cl => "Error reloading Mailman with " ^ cl))
@@ -191,7 +191,7 @@ val () = Slave.registerPostHandler (fn () =>
 					   ())
 
 val () = Domain.registerDescriber (Domain.considerAll
-				   [Domain.Filename {filename = "mailman",
+				   [Domain.Filename {filename = "mailman.conf",
 						     heading = "Mailman web host mapping:",
 						     showEmpty = false}])