imap: support LSUB command

[public-inbox.git] / lib / PublicInbox / IMAP.pm

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;