diff options
author | Eric Wong <e@80x24.org> | 2021-02-21 07:41:29 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-02-21 08:59:29 +0000 |
commit | fb8b16ff2b40ecd22ebbdea0d27069749e800077 (patch) | |
tree | ed51c13c4d349b5375ea414ee2432f82ffd0b83f /lib/PublicInbox/NetWriter.pm | |
parent | 54e53bfb66c325cc838a44ed3a19042b6dfcdf02 (diff) | |
download | public-inbox-fb8b16ff2b40ecd22ebbdea0d27069749e800077.tar.gz |
Augment (and dedupe) aren't parallel, yet, so its more sensitive to high-latency networks.
Diffstat (limited to 'lib/PublicInbox/NetWriter.pm')
-rw-r--r-- | lib/PublicInbox/NetWriter.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/PublicInbox/NetWriter.pm b/lib/PublicInbox/NetWriter.pm index 6f0a0b94..89f8662e 100644 --- a/lib/PublicInbox/NetWriter.pm +++ b/lib/PublicInbox/NetWriter.pm @@ -23,4 +23,16 @@ sub imap_append { die "APPEND $folder: $@"; } +sub imap_delete_all { + my ($self, $url) = @_; + my $uri = PublicInbox::URIimap->new($url); + my $sec = $self->can('uri_section')->($uri); + local $0 = $uri->mailbox." $sec"; + my $mic = $self->mic_get($sec) or die "E: not connected: $@"; + $mic->select($uri->mailbox) or return; # non-existent + if ($mic->delete_message('1:*')) { + $mic->expunge; + } +} + 1; |