lei q: support --import-augment for IMAP

IMAP is similar to Maildir and we can now preserve keyword
updates done on IMAP folders.

1 files changed, 7 insertions, 2 deletions

diff --git a/lib/PublicInbox/NetReader.pm b/lib/PublicInbox/NetReader.pm
index 96d3b2ed..f5f71005 100644
--- a/lib/PublicInbox/NetReader.pm
+++ b/lib/PublicInbox/NetReader.pm
@@ -346,9 +346,14 @@ sub _imap_do_msg ($$$$$) {
         $$raw =~ s/\r\n/\n/sg;
         my $kw = [];
         for my $f (split(/ /, $flags)) {
-                my $k = $IMAPflags2kw{$f} // next; # TODO: X-Label?
-                push @$kw, $k;
+                if (my $k = $IMAPflags2kw{$f}) {
+                        push @$kw, $k;
+                } elsif ($f eq "\\Recent") { # not in JMAP
+                } elsif ($self->{verbose}) {
+                        warn "# unknown IMAP flag $f <$uri;uid=$uid>\n";
+                }
         }
+        @$kw = sort @$kw; # for all UI/UX purposes
         my ($eml_cb, @args) = @{$self->{eml_each}};
         $eml_cb->($uri, $uid, $kw, PublicInbox::Eml->new($raw), @args);
 }