diff options
Diffstat (limited to 'lib/PublicInbox/SearchIdx.pm')
-rw-r--r-- | lib/PublicInbox/SearchIdx.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lib/PublicInbox/SearchIdx.pm b/lib/PublicInbox/SearchIdx.pm index fa5057fd..265403a3 100644 --- a/lib/PublicInbox/SearchIdx.pm +++ b/lib/PublicInbox/SearchIdx.pm @@ -366,12 +366,14 @@ sub remove_message { $mid = mid_clean($mid); eval { - $doc_id = $self->find_unique_doc_id('XMID' . $mid); - if (defined $doc_id) { - $db->delete_document($doc_id); - } else { + my ($head, $tail) = $self->find_doc_ids('XMID' . $mid); + if ($head->equal($tail)) { warn "cannot remove non-existent <$mid>\n"; } + for (; $head != $tail; $head->inc) { + my $docid = $head->get_docid; + $db->delete_document($docid); + } }; if ($@) { |