sub as_html {
my ($class, $mime, $full_pfx) = @_;
- headers_to_html_header($mime) .
+ headers_to_html_header($mime, $full_pfx) .
multipart_text_as_html($mime, $full_pfx) .
'</pre></body></html>';
}
}
sub headers_to_html_header {
- my ($simple) = @_;
+ my ($simple, $full_pfx) = @_;
my $rv = "";
my @title;
if (defined $mid) {
my ($html, $href) = trim_message_id($mid);
$rv .= "Message-ID: <$html> ";
+ unless ($full_pfx) {
+ $href = "../m/$href";
+ }
$rv .= "(<a href=\"$href.txt\">original</a>)\n";
}