From 7ee391533b51f37e949e31a26c2ad93b935c3d03 Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Mon, 29 Jan 2018 13:04:09 +0000
Subject: reply: follow obfuscation rules for HTML in sh args

Namely, we do not want to obfuscate the mail address of the
site itself.
---
 lib/PublicInbox/Reply.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'lib/PublicInbox/Reply.pm')

diff --git a/lib/PublicInbox/Reply.pm b/lib/PublicInbox/Reply.pm
index 07288aab..eee41173 100644
--- a/lib/PublicInbox/Reply.pm
+++ b/lib/PublicInbox/Reply.pm
@@ -4,7 +4,7 @@ package PublicInbox::Reply;
 use strict;
 use warnings;
 use URI::Escape qw/uri_escape_utf8/;
-use PublicInbox::Hval qw/ascii_html/;
+use PublicInbox::Hval qw/ascii_html obfuscate_addrs/;
 use PublicInbox::Address;
 use PublicInbox::MID qw/mid_clean mid_escape/;
 
@@ -70,8 +70,9 @@ sub mailto_arg_link {
 	delete $cc->{$to};
 	if ($obfs) {
 		my $arg_to = $to;
-		$arg_to =~ s/\./\$(echo .)/;
+		obfuscate_addrs($ibx, $arg_to, '$(echo .)');
 		push @arg, "--to=$arg_to";
+		# no $subj for $href below
 	} else {
 		push @arg, "--to=$to";
 		$to = uri_escape_utf8($to);
@@ -82,8 +83,9 @@ sub mailto_arg_link {
 	if (@cc) {
 		if ($obfs) {
 			push(@arg, map {
-				s/\./\$(echo .)/;
-				"--cc=$_";
+				my $addr = $_;
+				obfuscate_addrs($ibx, $addr, '$(echo .)');
+				"--cc=$addr";
 			} @cc);
 		} else {
 			$cc = '&Cc=' . uri_escape_utf8(join(',', @cc));
-- 
cgit v1.2.3-24-ge0c7