diff options
author | Eric Wong <e@80x24.org> | 2015-08-20 08:54:32 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2015-08-20 08:56:12 +0000 |
commit | 9c93edcdefb01f193aced818142b050aeffc04e1 (patch) | |
tree | 0f16b4bca01c93344093a3532aa68c6bf89d54eb /lib/PublicInbox/View.pm | |
parent | 8c8b659c68e9191b412da7d8db03919fbace5179 (diff) | |
download | public-inbox-9c93edcdefb01f193aced818142b050aeffc04e1.tar.gz |
This is for consistency with ssoma. I doubt it makes a difference in practice, but in case somebody decides any of the Message-ID-containing headers should have strange characters, we'll decode and attempt to thread them. This isn't an attack vector, just a way to make messages thread improperly which is pointless...
Diffstat (limited to 'lib/PublicInbox/View.pm')
-rw-r--r-- | lib/PublicInbox/View.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm index fe701b1c..fb000f25 100644 --- a/lib/PublicInbox/View.pm +++ b/lib/PublicInbox/View.pm @@ -57,7 +57,7 @@ sub index_entry { my $subj = $mime->header('Subject'); my $header_obj = $mime->header_obj; - my $mid_raw = $header_obj->header_raw('Message-ID'); + my $mid_raw = $header_obj->header('Message-ID'); my $id = anchor_for($mid_raw); $seen->{$id} = "#$id"; # save the anchor for later @@ -73,7 +73,7 @@ sub index_entry { my $more = 'permalink'; my $path = $root_anchor ? '../' : ''; my $href = $mid->as_href; - my $irt = $header_obj->header_raw('In-Reply-To'); + my $irt = $header_obj->header('In-Reply-To'); my ($anchor_idx, $anchor, $t_anchor); if (defined $irt) { $anchor_idx = anchor_for($irt); @@ -361,7 +361,7 @@ sub headers_to_html_header { my $rv = ""; my @title; my $header_obj = $mime->header_obj; - my $mid = $header_obj->header_raw('Message-ID'); + my $mid = $header_obj->header('Message-ID'); $mid = PublicInbox::Hval->new_msgid($mid); my $mid_href = $mid->as_href; foreach my $h (qw(From To Cc Subject Date)) { @@ -388,7 +388,7 @@ sub headers_to_html_header { $mid_href = "../m/$mid_href" unless $full_pfx; $rv .= "(<a\nhref=\"$mid_href.txt\">raw</a>)\n"; - my $irt = $header_obj->header_raw('In-Reply-To'); + my $irt = $header_obj->header('In-Reply-To'); if (defined $irt) { my $v = PublicInbox::Hval->new_msgid($irt); my $html = $v->as_html; @@ -397,7 +397,7 @@ sub headers_to_html_header { $rv .= "<a\nhref=\"$href.html\">$html</a>>\n"; } - my $refs = $header_obj->header_raw('References'); + my $refs = $header_obj->header('References'); if ($refs) { # avoid redundant URLs wasting bandwidth my %seen; @@ -441,7 +441,7 @@ sub html_footer { my $subj = $mime->header('Subject') || ''; $subj = "Re: $subj" unless $subj =~ /\bRe:/; - my $mid = $mime->header_obj->header_raw('Message-ID'); + my $mid = $mime->header_obj->header('Message-ID'); my $irt = uri_escape_utf8($mid); delete $cc{$to}; $to = uri_escape_utf8($to); @@ -452,7 +452,7 @@ sub html_footer { my $idx = $standalone ? " <a\nhref=\"../\">index</a>" : ''; if ($idx && $srch) { - $irt = $mime->header_obj->header_raw('In-Reply-To') || ''; + $irt = $mime->header_obj->header('In-Reply-To') || ''; $mid = mid_compressed(mid_clean($mid)); my $t_anchor = length $irt ? T_ANCHOR : ''; $idx = " <a\nhref=\"../t/$mid.html$t_anchor\">". |