No ext_urls

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

diff --git a/lib/PublicInbox/LeiForgetMailSync.pm b/lib/PublicInbox/LeiForgetMailSync.pm
index 940ca1b692c10d47faf7849d275ed1ac7c5c41e0..762910ed5712a893a383fedeb0fc096f4e5736b3 100644 (file)
--- a/lib/PublicInbox/LeiForgetMailSync.pm
+++ b/lib/PublicInbox/LeiForgetMailSync.pm
@@ -10,20 +10,17 @@
 package PublicInbox::LeiForgetMailSync;
 use strict;
 use v5.10.1;
-use PublicInbox::LeiExportKw;
+use PublicInbox::LeiRefreshMailSync;
 
 sub lei_forget_mail_sync {
        my ($lei, @folders) = @_;
        my $lms = $lei->lms or return;
-       my $sto = $lei->_lei_store or return; # may disappear due to race
-       $sto->write_prepare;
-       my $err = $lms->arg2folder($lei, \@folders);
-       $lei->qerr(@{$err->{qerr}}) if $err->{qerr};
-       return $lei->fail($err->{fail}) if $err->{fail};
-       $sto->ipc_do('lms_forget_folders', @folders);
-       my $wait = $sto->ipc_do('done');
+       $lms->lms_write_prepare;
+       $lms->arg2folder($lei, \@folders); # may die
+       $lms->forget_folders(@folders);
 }
 
-*_complete_forget_mail_sync = \&PublicInbox::LeiExportKw::_complete_export_kw;
+*_complete_forget_mail_sync =
+       \&PublicInbox::LeiRefreshMailSync::_complete_refresh_mail_sync;
 
 1;