X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/3af11fe69bf5f83cf12f5a37855faa8c81025b34..4a824a5f575f02dcdb59259a145c4439b93edaec:/src/plugins/mailman.sml

diff --git a/src/plugins/mailman.sml b/src/plugins/mailman.sml
index b716cbd..9f30e72 100644
--- a/src/plugins/mailman.sml
+++ b/src/plugins/mailman.sml
@@ -130,7 +130,11 @@ val () = Env.actionV_one "mailmanVhost"
 			     print "    RewriteEngine on\n";
 			     print "\n";
 			     print "    # Default to showing listinfo page\n";
-			     print "    RewriteRule ^/$ http://";
+			     print "    RewriteRule ^/$ http";
+			     case ssl of
+				 NONE => ()
+			       | SOME _ => print "s";
+			     print "://";
 			     print fullHost;
 			     print "/listinfo/\n";
 			     print "\n";
@@ -187,7 +191,7 @@ val () = Slave.registerPostHandler (fn () =>
 
 val () = Domain.registerDescriber (Domain.considerAll
 				   [Domain.Filename {filename = "mailman",
-						     heading = "Mailman web host mapping",
+						     heading = "Mailman web host mapping:",
 						     showEmpty = false}])
 
 end