diff options
| -rw-r--r-- | lib/PublicInbox/LeiStore.pm | 8 | ||||
| -rw-r--r-- | t/lei_store.t | 6 |
2 files changed, 0 insertions, 14 deletions
diff --git a/lib/PublicInbox/LeiStore.pm b/lib/PublicInbox/LeiStore.pm index 10fa9c54..771443db 100644 --- a/lib/PublicInbox/LeiStore.pm +++ b/lib/PublicInbox/LeiStore.pm @@ -159,14 +159,6 @@ sub remove_eml_keywords { \@docids; } -# TODO: move this to MdirReader, maybe... -# cf: https://cr.yp.to/proto/maildir.html -my %c2kw = ('D' => 'draft', F => 'flagged', R => 'answered', S => 'seen'); -sub maildir_keywords { - $_[-1] =~ /:2,([A-Z]+)\z/i ? - sort(map { $c2kw{$_} // () } split(//, $1)) : (); -} - sub add_eml { my ($self, $eml, @kw) = @_; my $im = $self->importer; # may create new epoch diff --git a/t/lei_store.t b/t/lei_store.t index 258db25a..d270e1f6 100644 --- a/t/lei_store.t +++ b/t/lei_store.t @@ -21,12 +21,6 @@ like($smsg->{blob}, qr/\A[0-9a-f]+\z/, 'add returned OID'); my $eml = eml_load('t/data/0001.patch'); is($sto->add_eml($eml), undef, 'idempotent'); $sto->done; -is_deeply([$sto->maildir_keywords('/foo:2,')], [], 'Maildir no keywords'); -is_deeply([$sto->maildir_keywords('/foo:2,S')], ['seen'], 'Maildir seen'); -is_deeply([$sto->maildir_keywords('/foo:2,RS')], ['answered', 'seen'], - 'Maildir answered + seen'); -is_deeply([$sto->maildir_keywords('/foo:2,RSZ')], ['answered', 'seen'], - 'Maildir answered + seen w/o Z'); { my $es = $sto->search; my $msgs = $es->over->query_xover(0, 1000); |