about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2016-07-09 23:55:44 +0000
committerEric Wong <e@80x24.org>2016-07-09 23:55:44 +0000
commit7b8c110cb5485479b626852ccce6f2790d7ac4b6 (patch)
tree8a7b950d2206500874c8263003dceee7b2ecdeb5
parente634f3d6e168d157f205b938ab6a7c6c7564de07 (diff)
downloadpublic-inbox-7b8c110cb5485479b626852ccce6f2790d7ac4b6.tar.gz
-rw-r--r--lib/PublicInbox/Config.pm2
-rw-r--r--lib/PublicInbox/View.pm8
2 files changed, 8 insertions, 2 deletions
diff --git a/lib/PublicInbox/Config.pm b/lib/PublicInbox/Config.pm
index d7eaa3e8..1256fb1e 100644
--- a/lib/PublicInbox/Config.pm
+++ b/lib/PublicInbox/Config.pm
@@ -141,7 +141,7 @@ sub _fill {
         my $rv = {};
 
         foreach my $k (qw(mainrepo address filter url newsgroup
-                        watch watchheader httpbackendmax)) {
+                        infourl watch watchheader httpbackendmax)) {
                 my $v = $self->{"$pfx.$k"};
                 $rv->{$k} = $v if defined $v;
         }
diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index 3b041aab..3d6348c7 100644
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -51,6 +51,12 @@ sub msg_reply {
         my $p_url =
          'https://en.wikipedia.org/wiki/Posting_style#Interleaved_style';
 
+        my $info = '';
+        if (my $url = $ctx->{-inbox}->{infourl}) {
+                $url = PublicInbox::Hval::prurl($ctx->{env}, $url);
+                $info = qq(\n  List information: <a\nhref="$url">$url</a>\n);
+        }
+
         my ($arg, $link) = mailto_arg_link($hdr);
         push @$arg, '/path/to/YOUR_REPLY';
         $arg = join(" \\\n    ", '', @$arg);
@@ -67,7 +73,7 @@ href=raw>mbox</a>
   Avoid top-posting and favor interleaved quoting:
   <a
 href="$p_url">$p_url</a>
-
+$info
 * Reply to all the recipients using the <b>--to</b>, <b>--cc</b>,
   and <b>--in-reply-to</b> switches of git-send-email(1):