hcoop-sysadmin list subscription

[bpt/portal.git] / mailman / portalsub.sml

diff --git a/mailman/portalsub.sml b/mailman/portalsub.sml
index 562a74b..43ec1bc 100644 (file)
--- a/mailman/portalsub.sml
+++ b/mailman/portalsub.sml
@@ -29,7 +29,7 @@ fun validEmail s =
 fun main () =
     case CommandLine.arguments () of
        [list, cmd, addr] =>
-       if list <> "hcoop-discuss" andalso list <> "hcoop-misc" andalso list <> "hcoop-announce" then
+       if list <> "hcoop-discuss" andalso list <> "hcoop-misc" andalso list <> "hcoop-announce" andalso list <> "hcoop-sysadmin" then
            (print "Bad mailing list name\n";
             OS.Process.failure)
        else if not (validEmail addr) then
@@ -59,4 +59,4 @@ fun main () =
       | _ => (print "Bad command-line arguments\n";
              OS.Process.failure)
 
-val _ = OS.Process.exit (main ())
\ No newline at end of file
+val _ = OS.Process.exit (main ())