Use fritz volumes instead of deleuze volumes for disk space stats

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

diff --git a/mailman/portalsub.sml b/mailman/portalsub.sml
index 43ec1bc..925840b 100644 (file)
--- a/mailman/portalsub.sml
+++ b/mailman/portalsub.sml
@@ -29,7 +29,8 @@ fun validEmail s =
 fun main () =
     case CommandLine.arguments () of
        [list, cmd, addr] =>
-       if list <> "hcoop-discuss" andalso list <> "hcoop-misc" andalso list <> "hcoop-announce" andalso list <> "hcoop-sysadmin" then
+       if list <> "hcoop-discuss" andalso list <> "hcoop-help" 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