This allows us to emulate the display of thread-aware MUAs when
multiple messages share the same Message-ID. This also is a
place where "public-inbox-index --reindex" is useful to fix
existing messages and no schema version bump is necessary.
});
# populates smsg->references for smsg->to_doc_data
});
# populates smsg->references for smsg->to_doc_data
- my $refs = parse_references($smsg);
+ my $refs = parse_references($smsg, $mid0, $mids);
my $data = $smsg->to_doc_data($oid, $mid0);
foreach my $mid (@$mids) {
$tg->index_text($mid, 1, 'XM');
my $data = $smsg->to_doc_data($oid, $mid0);
foreach my $mid (@$mids) {
$tg->index_text($mid, 1, 'XM');
$self->{term_generator} = $tg;
}
$self->{term_generator} = $tg;
}
-sub parse_references ($) {
- my ($smsg) = @_;
+sub parse_references ($$$) {
+ my ($smsg, $mid0, $mids) = @_;
my $mime = $smsg->{mime};
my $hdr = $mime->header_obj;
my $refs = references($hdr);
my $mime = $smsg->{mime};
my $hdr = $mime->header_obj;
my $refs = references($hdr);
+ push(@$refs, @$mids) if scalar(@$mids) > 1;
return $refs if scalar(@$refs) == 0;
return $refs if scalar(@$refs) == 0;
- # prevent circular references via References here:
- my %mids = map { $_ => 1 } @{mids($hdr)};
+ # prevent circular references here:
+ my %seen = ( $mid0 => 1 );
my @keep;
foreach my $ref (@$refs) {
if (length($ref) > PublicInbox::MID::MAX_MID_SIZE) {
warn "References: <$ref> too long, ignoring\n";
next;
}
my @keep;
foreach my $ref (@$refs) {
if (length($ref) > PublicInbox::MID::MAX_MID_SIZE) {
warn "References: <$ref> too long, ignoring\n";
next;
}
push @keep, $ref;
}
$smsg->{references} = '<'.join('> <', @keep).'>' if @keep;
push @keep, $ref;
}
$smsg->{references} = '<'.join('> <', @keep).'>' if @keep;
$res = $cb->(GET('/v2test/reuse@mid/T/'));
$raw = $res->content;
like($raw, qr/\b4\+ messages\b/, 'thread overview shown with /T/');
$res = $cb->(GET('/v2test/reuse@mid/T/'));
$raw = $res->content;
like($raw, qr/\b4\+ messages\b/, 'thread overview shown with /T/');
+ my @over = ($raw =~ m/^\d{4}-\d+-\d+\s+\d+:\d+ (.+)$/gm);
+ is_deeply(\@over, [ '<a', '` <a', '` <a', '` <a' ],
+ 'duplicate messages share the same root');
$res = $cb->(GET('/v2test/reuse@mid/t/'));
$raw = $res->content;
$res = $cb->(GET('/v2test/reuse@mid/t/'));
$raw = $res->content;