From: Eric Wong <e@80x24.org>
Date: Sat, 9 Jul 2016 23:55:44 +0000 (+0000)
Subject: view: add "infourl" for reply information
X-Git-Tag: v1.0.0~278
X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=commitdiff_plain;h=7b8c110cb5485479b626852ccce6f2790d7ac4b6

view: add "infourl" for reply information
---

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):