Proper generation of Exim domainlists

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

diff --git a/src/plugins/mailman.sml b/src/plugins/mailman.sml
index 8cf9873..b8925a3 100644 (file)
--- a/src/plugins/mailman.sml
+++ b/src/plugins/mailman.sml
@@ -55,7 +55,9 @@ val () = Slave.registerPostHandler (fn () =>
                                       if !mailmanChanged then
                                           (Slave.concatTo (fn s => s = "mailman")
                                                           Config.Mailman.mapFile;
-                                           Slave.shellF ([Config.Mailman.reload],
+                                           Slave.enumerateTo (fn s => s = "mailman") ":"
+                                                             Config.Mailman.handleDomains;
+                                                             Slave.shellF ([Config.Mailman.reload],
                                                       fn cl => "Error reloading Mailman with " ^ cl))
                                       else
                                           ())