lei_mail_sync: rely on flock(2), avoid IPC

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

diff --git a/lib/PublicInbox/LeiForgetMailSync.pm b/lib/PublicInbox/LeiForgetMailSync.pm
index 46dde1a7fd591bb78fdca32e97eaa205141820b2..701f48d2fbbb278e4bffcb79871d7608ba1fa630 100644 (file)
--- a/lib/PublicInbox/LeiForgetMailSync.pm
+++ b/lib/PublicInbox/LeiForgetMailSync.pm
@@ -14,15 +14,12 @@ use PublicInbox::LeiExportKw;
 
 sub lei_forget_mail_sync {
        my ($lei, @folders) = @_;
-       my $sto = $lei->_lei_store or return;
-       my $lms = $sto->search->lms or return;
+       my $lms = $lei->lms or return;
+       $lms->lms_write_prepare;
        my $err = $lms->arg2folder($lei, \@folders);
        $lei->qerr(@{$err->{qerr}}) if $err->{qerr};
        return $lei->fail($err->{fail}) if $err->{fail};
-       delete $lms->{dbh};
-       $lms->lms_begin;
-       $lms->forget_folder($_) for @folders;
-       $lms->lms_commit;
+       $lms->forget_folders(@folders);
 }
 
 *_complete_forget_mail_sync = \&PublicInbox::LeiExportKw::_complete_export_kw;