diff options
author | Eric Wong <e@80x24.org> | 2021-09-16 20:56:42 -0500 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-09-17 04:41:06 +0000 |
commit | 76d110573f75d577228217eab44477dcc691116e (patch) | |
tree | 83102f024ca3355dfbbb6e8ea37d2b75a5732da0 | |
parent | ecc0edb4d2a1110e4c8e6aba54dd5ccf1ebb1006 (diff) | |
download | public-inbox-76d110573f75d577228217eab44477dcc691116e.tar.gz |
That option was never wired up, and probably not needed...
-rw-r--r-- | lib/PublicInbox/LeiRefreshMailSync.pm | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/lib/PublicInbox/LeiRefreshMailSync.pm b/lib/PublicInbox/LeiRefreshMailSync.pm index 71fc348c..4cae1536 100644 --- a/lib/PublicInbox/LeiRefreshMailSync.pm +++ b/lib/PublicInbox/LeiRefreshMailSync.pm @@ -9,27 +9,12 @@ use v5.10.1; use parent qw(PublicInbox::IPC PublicInbox::LeiInput); use PublicInbox::LeiExportKw; use PublicInbox::InboxWritable qw(eml_from_path); -use PublicInbox::ContentHash qw(git_sha); use PublicInbox::Import; -sub eml_match ($$) { - my ($eml, $oidbin) = @_; - $eml->header_set($_) for @PublicInbox::Import::UNWANTED_HEADERS; - $oidbin eq git_sha(length($oidbin) == 20 ? 1 : 256, $eml)->digest; -} - sub prune_mdir { # lms->each_src callback my ($oidbin, $id, $self, $mdir) = @_; my @try = $$id =~ /:2,[a-zA-Z]*\z/ ? qw(cur new) : qw(new cur); - for my $d (@try) { - my $src = "$mdir/$d/$$id"; - if ($self->{verify}) { - my $eml = eml_from_path($src) // next; - return if eml_match($eml, $oidbin); - } elsif (-f $src) { - return; - } - } + for (@try) { return if -f "$mdir/$_/$$id" } # both tries failed $self->{lei}->{sto}->ipc_do('lms_clear_src', "maildir:$mdir", $id); } |