From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 4 Dec 2007 13:27:52 +0000 (+0000)
Subject: Use proper URL prefix in mailmanVhost redirect
X-Git-Tag: release_2010-11-19~106
X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/commitdiff_plain/4a824a5f575f02dcdb59259a145c4439b93edaec?ds=sidebyside

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";