X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=lib%2FPublicInbox%2FOverIdx.pm;h=01ca6f1160ffbfb6092b7941d9a4835cf9df26f7;hp=e8df01c4e325d40c3fb9b5c53e4436224d787f87;hb=f9fc5cf2e8cefda4a56d937ed217e47689fd7e49;hpb=a4b2bb62a0dde5054c5d2c0a7ea3fb3ff1806beb

diff --git a/lib/PublicInbox/OverIdx.pm b/lib/PublicInbox/OverIdx.pm
index e8df01c4..01ca6f11 100644
--- a/lib/PublicInbox/OverIdx.pm
+++ b/lib/PublicInbox/OverIdx.pm
@@ -337,6 +337,20 @@ sub remove_oid {
 	$nr;
 }
 
+sub num_mid0_for_oid {
+	my ($self, $oid, $mid) = @_;
+	my ($num, $mid0);
+	$self->begin_lazy;
+	each_by_mid($self, $mid, ['ddd'], sub {
+		my ($smsg) = @_;
+		my $blob = $smsg->{blob};
+		return 1 if (!defined($blob) || $blob ne $oid); # continue;
+		($num, $mid0) = ($smsg->{num}, $smsg->{mid});
+		0; # done
+	});
+	($num, $mid0);
+}
+
 sub create_tables {
 	my ($dbh) = @_;