Print full e-mail address of the mailing lists.

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index 8855770..98044e4 100755 (executable)
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -339,7 +339,7 @@ print <<"HERE";
 
 <form action="@{[ top_dir("/Mailman.pl") ]}" method="post">
        <table border="1" class="mailman" style="border-collapse: collapse; border-style: solid; border-width: 1px;">
-               <tr>@{[ map("<th>$_</th>",@lists) ]}</tr>
+               <tr>@{[ map('<th>'.$_.'@jankratochvil.net</th>',@lists) ]}</tr>
                <tr><td>New version announcements<br />
                        (low traffic, recommended)</td>
                                <td>User support,<br />bug reports</td>