From: Eric Wong <e@yhbt.net>
Date: Wed, 10 Jun 2020 07:04:24 +0000 (+0000)
Subject: imap: support LSUB command
X-Git-Tag: v1.6.0~440
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=1d6c44968bac13bafcd1b056d67261faee52519d;p=public-inbox.git

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 2282e3ce..51ab8b8c 100644
--- 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;