view: fix permalink and raw links at the top

Oops :x  I really need to whip check-inbox.perl into
shape or at least start running it, again.

Fixes: e29518088b3f ("view: fix up some HTML injection via Message-ID vectors")

diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index 11d8dd5395042bd4d32e89924526305ce5c0352e..140cfeedbec1ca8bee1e8ae330406183dc36d93f 100644 (file)
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -138,8 +138,8 @@ sub index_entry {
        $rv .= "From: "._hdr_names($hdr, 'From').' @ '._msg_date($hdr)." UTC";
        my $upfx = $ctx->{-upfx};
        my $mhref = $upfx . $mid->as_href . '/';
-       $rv .= qq{ (<a\nhref="$mhref/">permalink</a> / };
-       $rv .= qq{<a\nhref="$mhref/raw">raw</a>)\n};
+       $rv .= qq{ (<a\nhref="$mhref">permalink</a> / };
+       $rv .= qq{<a\nhref="${mhref}raw">raw</a>)\n};
        $rv .= '  '.join('; +', @tocc) . "\n" if @tocc;
 
        my $mapping = $ctx->{mapping};