From ef3ca9b80fcb464d851c2f8d87f3f02f4f70986d Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Wed, 14 Jun 2017 00:10:52 +0000
Subject: replyto parameter support

This allows us to support centralized mailing lists (which suck,
but better than no mailing list at all).
---
 lib/PublicInbox/Config.pm |  2 +-
 lib/PublicInbox/Reply.pm  | 66 ++++++++++++++++++++++++++++++++++-------------
 lib/PublicInbox/View.pm   |  5 ++--
 3 files changed, 52 insertions(+), 21 deletions(-)

(limited to 'lib')

diff --git a/lib/PublicInbox/Config.pm b/lib/PublicInbox/Config.pm
index f6275cdd..323f8a1a 100644
--- a/lib/PublicInbox/Config.pm
+++ b/lib/PublicInbox/Config.pm
@@ -136,7 +136,7 @@ sub _fill {
 
 	foreach my $k (qw(mainrepo address filter url newsgroup
 			infourl watch watchheader httpbackendmax
-			feedmax nntpserver)) {
+			replyto feedmax nntpserver)) {
 		my $v = $self->{"$pfx.$k"};
 		$rv->{$k} = $v if defined $v;
 	}
diff --git a/lib/PublicInbox/Reply.pm b/lib/PublicInbox/Reply.pm
index 73a4df11..5bbe8f4e 100644
--- a/lib/PublicInbox/Reply.pm
+++ b/lib/PublicInbox/Reply.pm
@@ -17,36 +17,66 @@ sub squote_maybe ($) {
 	$val;
 }
 
+sub add_addrs {
+	my ($to, $cc, @addrs) = @_;
+	foreach my $address (@addrs) {
+		my $dst = lc($address);
+		$cc->{$dst} ||= $address;
+		$$to ||= $dst;
+	}
+}
+
+my @reply_headers = qw(From To Cc);
+my $reply_headers = join('|', @reply_headers);
+
 sub mailto_arg_link {
-	my ($hdr) = @_;
-	my %cc; # everyone else
-	my $to; # this is the From address
-
-	foreach my $h (qw(From To Cc)) {
-		my $v = $hdr->header($h);
-		defined($v) && ($v ne '') or next;
-		my @addrs = PublicInbox::Address::emails($v);
-		foreach my $address (@addrs) {
-			my $dst = lc($address);
-			$cc{$dst} ||= $address;
-			$to ||= $dst;
+	my ($ibx, $hdr) = @_;
+	my $cc = {}; # everyone else
+	my $to; # this is the From address by default
+
+	foreach my $rt (split(/\s*,\s*/, $ibx->{replyto} || ':all')) {
+		if ($rt eq ':all') {
+			foreach my $h (@reply_headers) {
+				my $v = $hdr->header($h);
+				defined($v) && ($v ne '') or next;
+				my @addrs = PublicInbox::Address::emails($v);
+				add_addrs(\$to, $cc, @addrs);
+			}
+		} elsif ($rt eq ':list') {
+			add_addrs(\$to, $cc, $ibx->{-primary_address});
+		} elsif ($rt =~ /\A(?:$reply_headers)\z/io) {
+			my $v = $hdr->header($rt);
+			if (defined($v) && ($v ne '')) {
+				my @addrs = PublicInbox::Address::emails($v);
+				add_addrs(\$to, $cc, @addrs);
+			}
+		} elsif ($rt =~ /@/) {
+			add_addrs(\$to, $cc, $rt);
+		} else {
+			warn "Unrecognized replyto = '$rt' in config\n";
 		}
 	}
-	my @arg;
 
+	my @arg;
 	my $subj = $hdr->header('Subject') || '';
 	$subj = "Re: $subj" unless $subj =~ /\bRe:/i;
 	my $mid = $hdr->header_raw('Message-ID');
 	push @arg, '--in-reply-to='.squote_maybe(mid_clean($mid));
 	my $irt = mid_escape($mid);
-	delete $cc{$to};
+	delete $cc->{$to};
 	push @arg, "--to=$to";
 	$to = uri_escape_utf8($to);
 	$subj = uri_escape_utf8($subj);
-	my @cc = sort values %cc;
-	push(@arg, map { "--cc=$_" } @cc);
-	my $cc = uri_escape_utf8(join(',', @cc));
-	my $href = "mailto:$to?In-Reply-To=$irt&Cc=${cc}&Subject=$subj";
+	my @cc = sort values %$cc;
+	$cc = '';
+	if (@cc) {
+		push(@arg, map { "--cc=$_" } @cc);
+		$cc = '&Cc=' . uri_escape_utf8(join(',', @cc));
+	}
+
+	# order matters, Subject is the least important header,
+	# so it is last in case it's lost/truncated in a copy+paste
+	my $href = "mailto:$to?In-Reply-To=$irt${cc}&Subject=$subj";
 
 	(\@arg, ascii_html($href));
 }
diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index 0d85581d..2d816408 100644
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -52,12 +52,13 @@ sub msg_reply {
 	 'https://en.wikipedia.org/wiki/Posting_style#Interleaved_style';
 
 	my $info = '';
-	if (my $url = $ctx->{-inbox}->{infourl}) {
+	my $ibx = $ctx->{-inbox};
+	if (my $url = $ibx->{infourl}) {
 		$url = PublicInbox::Hval::prurl($ctx->{env}, $url);
 		$info = qq(\n  List information: <a\nhref="$url">$url</a>\n);
 	}
 
-	my ($arg, $link) = PublicInbox::Reply::mailto_arg_link($hdr);
+	my ($arg, $link) = PublicInbox::Reply::mailto_arg_link($ibx, $hdr);
 	push @$arg, '/path/to/YOUR_REPLY';
 	$arg = ascii_html(join(" \\\n    ", '', @$arg));
 	<<EOF
-- 
cgit v1.2.3-24-ge0c7