"$pad " . escapeHTML($fn) . " $pad\n";
}
+sub trim_message_id {
+ my ($mid) = @_;
+ $mid =~ tr/<>//d;
+ my $html = escapeHTML($mid);
+ my $href = escapeHTML(escape($mid));
+
+ ($html, $href);
+}
+
sub headers_to_html_header {
my ($simple) = @_;
}
}
- foreach my $h (qw(Message-ID In-Reply-To)) {
- my $v = $simple->header($h);
- defined $v or next;
- $v =~ tr/<>//d;
- my $html = escapeHTML($v);
- my $href = escapeHTML(escape($v));
- $rv .= "$h: <a href=\"$href\">$html</a>\n";
+ my $mid = $simple->header('Message-ID');
+ if (defined $mid) {
+ my ($html, $href) = trim_message_id($mid);
+ $rv .= "Message-ID: <a href=$href.html>$html</a> ";
+ $rv .= "(<a href=$href.txt>raw message</a>)\n";
}
+ my $irp = $simple->header('In-Reply-To');
+ if (defined $irp) {
+ my ($html, $href) = trim_message_id($irp);
+ $rv .= "In-Reply-To: <a href=$href.html>$html</a>\n";
+ }
$rv .= "\n";
return ("<html><head><title>".
my $html = PublicInbox::View->as_html($s);
# ghetto
- like($html, qr/<a href="hello%40/s, "MID link present");
+ like($html, qr/<a href="?hello%40/s, "MID link present");
like($html, qr/hello world\b/, "body present");
}
header_str => [
From => 'a@example.com',
Subject => 'blargh',
- 'Message-ID' => '<blah@xeample.com>',
- 'In-Reply-To' => '<irp@xeample.com>',
+ 'Message-ID' => '<blah@example.com>',
+ 'In-Reply-To' => '<irp@example.com>',
],
parts => $parts,
);