overidx: parse_references: less error-prone args

[public-inbox.git] / lib / PublicInbox / OverIdx.pm

diff --git a/lib/PublicInbox/OverIdx.pm b/lib/PublicInbox/OverIdx.pm
index 9640f9d13bf57b1e9ae23d48bf9c7c41930b3b4b..f49dfa000431af739eb5e82060c5596fe1af5baf 100644 (file)
--- a/lib/PublicInbox/OverIdx.pm
+++ b/lib/PublicInbox/OverIdx.pm
@@ -216,15 +216,13 @@ sub link_refs {
 }
 
 sub parse_references ($$$) {
-       my ($smsg, $mid0, $mids) = @_;
-       my $mime = $smsg->{mime};
-       my $hdr = $mime->header_obj;
+       my ($smsg, $hdr, $mids) = @_;
        my $refs = references($hdr);
        push(@$refs, @$mids) if scalar(@$mids) > 1;
        return $refs if scalar(@$refs) == 0;
 
        # prevent circular references here:
-       my %seen = ( $mid0 => 1 );
+       my %seen = ( $smsg->{mid} => 1 );
        my @keep;
        foreach my $ref (@$refs) {
                if (length($ref) > PublicInbox::MID::MAX_MID_SIZE) {
@@ -258,7 +256,7 @@ sub add_overview {
        }, 'PublicInbox::Smsg';
        my $hdr = $mime->header_obj;
        my $mids = mids_for_index($hdr);
-       my $refs = parse_references($smsg, $mid0, $mids);
+       my $refs = parse_references($smsg, $hdr, $mids);
        my $subj = $smsg->subject;
        my $xpath;
        if ($subj ne '') {