From: Eric Wong <e@80x24.org>
Date: Mon, 25 Apr 2016 00:07:40 +0000 (+0000)
Subject: view: fix link generation for replies in threads
X-Git-Tag: v1.0.0~595
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=e43b93b82d515f06afa4c0ba787f45c28ab1450e;p=public-inbox.git

view: fix link generation for replies in threads

Oops, gotta test this :x
---

diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index 0e65daca..177a1a6f 100644
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -30,7 +30,7 @@ sub msg_html {
 	headers_to_html_header($hdr, $ctx) .
 		multipart_text_as_html($mime) .
 		'</pre><hr /><pre>' .
-		html_footer($hdr, 1, $ctx) .
+		html_footer($hdr, 1, $ctx, 'R/') .
 		$footer .
 		'</pre></body></html>';
 }
@@ -139,7 +139,7 @@ sub index_entry {
 		index_walk($fh, $_[0], $enc, \$part_nr);
 	});
 	$mime->body_set('');
-	$rv = "\n" . html_footer($hdr, 0, $ctx, $mhref);
+	$rv = "\n" . html_footer($hdr, 0, $ctx, "$path$href/R");
 
 	if (defined $irt) {
 		unless (defined $parent_anchor) {
@@ -498,7 +498,7 @@ sub mailto_arg_link {
 }
 
 sub html_footer {
-	my ($hdr, $standalone, $ctx, $mhref) = @_;
+	my ($hdr, $standalone, $ctx, $rhref) = @_;
 
 	my $srch = $ctx->{srch} if $ctx;
 	my $upfx = '../';
@@ -526,7 +526,7 @@ sub html_footer {
 		$irt = '';
 	}
 
-	$irt . qq(<a\nhref="${tpfx}R/">reply</a>) . $idx;
+	$irt . qq(<a\nhref="$rhref">reply</a>) . $idx;
 }
 
 sub linkify_ref_nosrch {