Magic http prefix adding

diff --git a/mailinglist.sml b/mailinglist.sml
index fbc317a..37f31df 100644 (file)
--- a/mailinglist.sml
+++ b/mailinglist.sml
@@ -29,12 +29,12 @@ fun listWebHost name =
                         NONE => {user = user, dom = dom, vhost = "<<<No darned data in " ^ mmf ^ ">>>"}
                       | SOME line =>
                         case String.tokens (fn ch => Char.isSpace ch orelse ch = #":" orelse ch = #"'" orelse ch = #",") line of
-                            [vhost, _] => {user = user, dom = dom, vhost = vhost}
+                            [vhost, _] => {user = user, dom = dom, vhost = "http://" ^ vhost}
                           | _ => {user = user, dom = dom, vhost = "<<<Parse failure in " ^ mmf ^ ">>>"})
                    before TextIO.closeIn inf
                end handle _ => {user = user, dom = dom, vhost = "<<<A darn old exception reading " ^ mmf ^ ">>>"}
            else
-               {user = user, dom = dom, vhost = dom}
+               {user = user, dom = dom, vhost = "https://lists.hcoop.net"}
        end
       | _ => raise (Fail "Bad mailing list name")