v2writable: implement remove correctly

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

diff --git a/lib/PublicInbox/Msgmap.pm b/lib/PublicInbox/Msgmap.pm
index a147b9f346d6ace41c580735b91825270225e271..8e81fba08d12b81ba6b1ead7709881f137c38ff4 100644 (file)
--- a/lib/PublicInbox/Msgmap.pm
+++ b/lib/PublicInbox/Msgmap.pm
@@ -140,6 +140,14 @@ sub mid_delete {
        $sth->execute;
 }
 
+sub num_delete {
+       my ($self, $num) = @_;
+       my $dbh = $self->{dbh};
+       my $sth = $dbh->prepare('DELETE FROM msgmap WHERE num = ?');
+       $sth->bind_param(1, $num);
+       $sth->execute;
+}
+
 sub create_tables {
        my ($dbh) = @_;
        my $e;