search: reduce columns stored in Xapian

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

diff --git a/lib/PublicInbox/SearchIdxSkeleton.pm b/lib/PublicInbox/SearchIdxSkeleton.pm
index 4f158169185f612bd4fc13bb9f1f5ba162e26f1b..2be6496003e1aaa330b62f7930f82c3e4cb5833c 100644 (file)
--- a/lib/PublicInbox/SearchIdxSkeleton.pm
+++ b/lib/PublicInbox/SearchIdxSkeleton.pm
@@ -121,18 +121,14 @@ sub remote_remove {
        die $err if $err;
 }
 
-# values: [ DS, NUM, BYTES, LINES, TS, MIDS, XPATH, doc_data ]
 sub index_skeleton_real ($$) {
        my ($self, $values) = @_;
-       my $doc_data = pop @$values;
-       my $xpath = pop @$values;
-       my $mids = pop @$values;
+       my ($ts, $num, $mids, $xpath, $doc_data) = @$values;
        my $smsg = PublicInbox::SearchMsg->new(undef);
+       $smsg->load_from_data($doc_data);
        my $doc = $smsg->{doc};
-       PublicInbox::SearchIdx::add_values($doc, $values);
        $doc->set_data($doc_data);
-       $smsg->load_from_data($doc_data);
-       my $num = $values->[PublicInbox::Search::NUM];
+       PublicInbox::SearchIdx::add_values($doc, $ts, $smsg->ds, $num);
        my @refs = ($smsg->references =~ /<([^>]+)>/g);
        $self->delete_article($num) if defined $num; # for reindexing
        $self->link_and_save($doc, $mids, \@refs, $num, $xpath);