From 4a824a5f575f02dcdb59259a145c4439b93edaec Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 4 Dec 2007 13:27:52 +0000
Subject: [PATCH] Use proper URL prefix in mailmanVhost redirect

---
 src/plugins/mailman.sml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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