imap: support LSUB command

Since we only support read-only operation, we can't save
subscriptions requested by clients.  So just list no inboxes as
subscribed, some MUAs may blindly try to fetch everything its
subscribed to.

diff --git a/lib/PublicInbox/IMAP.pm b/lib/PublicInbox/IMAP.pm
index 2282e3ce78c6be097b289d04f68ce9c9b0e0842b..51ab8b8c2f2eae4e9c11dee582cd2af9383ddc2e 100644 (file)
--- a/lib/PublicInbox/IMAP.pm
+++ b/lib/PublicInbox/IMAP.pm
@@ -497,6 +497,11 @@ sub cmd_list ($$$$) {
        \(join('', @$l, "$tag OK List done\r\n"));
 }
 
+sub cmd_lsub ($$$$) {
+       my (undef, $tag) = @_; # same args as cmd_list
+       "$tag OK Lsub done\r\n";
+}
+
 sub eml_index_offs_i { # PublicInbox::Eml::each_part callback
        my ($p, $all) = @_;
        my ($eml, undef, $idx) = @$p;