PRE_WRAP . multipart_text_as_html($mime, $full_pfx) . '</pre>';
}
+sub in_reply_to {
+ my ($header_obj) = @_;
+ my $irt = $header_obj->header('In-Reply-To');
+
+ return mid_clean($irt) if (defined $irt);
+
+ my $refs = $header_obj->header('References');
+ if ($refs && $refs =~ /<([^>]+)>\s*\z/s) {
+ return $1;
+ }
+ undef;
+}
+
# this is already inside a <pre>
sub index_entry {
my ($fh, $mime, $level, $state) = @_;
my $root_anchor = $state->{root_anchor};
my $path = $root_anchor ? '../../' : '';
my $href = $mid->as_href;
- my $irt = $header_obj->header('In-Reply-To');
+ my $irt = in_reply_to($header_obj);
+
my ($anchor_idx, $anchor);
if (defined $irt) {
$anchor_idx = anchor_for($irt);
my ($header_obj) = @_;
my $rv = '';
- my $irt = $header_obj->header('In-Reply-To');
+ my $irt = in_reply_to($header_obj);
if (defined $irt) {
my $v = PublicInbox::Hval->new_msgid($irt);
my $html = $v->as_html;
if ($refs) {
# avoid redundant URLs wasting bandwidth
my %seen;
- $seen{mid_clean($irt)} = 1 if defined $irt;
+ $seen{$irt} = 1 if defined $irt;
my @refs;
my @raw_refs = ($refs =~ /<([^>]+)>/g);
foreach my $ref (@raw_refs) {
my $idx = $standalone ? " <a\nhref=\"$upfx\">index</a>" : '';
if ($idx && $srch) {
my $next = thread_inline(\$idx, $ctx, $mime, $full_pfx);
- $irt = $mime->header('In-Reply-To');
+ $irt = in_reply_to($mime->header_obj);
if (defined $irt) {
$irt = PublicInbox::Hval->new_msgid($irt);
$irt = $irt->as_href;