From 7b8c110cb5485479b626852ccce6f2790d7ac4b6 Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Sat, 9 Jul 2016 23:55:44 +0000
Subject: view: add "infourl" for reply information

---
 lib/PublicInbox/Config.pm | 2 +-
 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):
 
-- 
cgit v1.2.3-24-ge0c7