From: adamch <adamch>
Date: Tue, 4 Dec 2007 13:27:52 +0000 (+0000)
Subject: Use proper URL prefix in mailmanVhost redirect
X-Git-Url: https://git.hcoop.net/hcoop/zz_old/domtool2-proto.git/commitdiff_plain/575386a791d2dc79785abeaec479152304a28d8a

Use proper URL prefix in mailmanVhost redirect
---

diff --git a/src/plugins/mailman.sml b/src/plugins/mailman.sml
index fcfbc7c..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";