user/dev discussion of public-inbox itself
 help / color / mirror / code / Atom feed
blob 701f48d2fbbb278e4bffcb79871d7608ba1fa630 848 bytes (raw)
name: lib/PublicInbox/LeiForgetMailSync.pm 	 # note: path name is non-authoritative(*)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
# Copyright (C) 2021 all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>

# "lei forget-mail-sync" drop synchronization information
# TODO: figure out what to do about "lei index" users having
# dangling references.  Perhaps just documenting "lei index"
# use being incompatible with "forget-mail-sync" use is
# sufficient.

package PublicInbox::LeiForgetMailSync;
use strict;
use v5.10.1;
use PublicInbox::LeiExportKw;

sub lei_forget_mail_sync {
	my ($lei, @folders) = @_;
	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};
	$lms->forget_folders(@folders);
}

*_complete_forget_mail_sync = \&PublicInbox::LeiExportKw::_complete_export_kw;

1;

debug log:

solving 701f48d2 ...
found 701f48d2 in https://80x24.org/public-inbox.git

(*) Git path names are given by the tree(s) the blob belongs to.
    Blobs themselves have no identifier aside from the hash of its contents.^

Code repositories for project(s) associated with this public inbox

	https://80x24.org/public-inbox.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).