diff options
| -rw-r--r-- | lib/PublicInbox/Config.pm | 2 | ||||
| -rw-r--r-- | lib/PublicInbox/View.pm | 8 |
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): |