imapd: ensure LIST is sorted alphabetically, for now

I'm not sure this matters, and it could be a waste of
CPU cycles if no real clients care.  However, it does
make debugging over telnet or s_client a bit easier.

1 files changed, 6 insertions, 1 deletions

diff --git a/lib/PublicInbox/IMAPD.pm b/lib/PublicInbox/IMAPD.pm
index b647c940..6488dc0f 100644
--- a/lib/PublicInbox/IMAPD.pm
+++ b/lib/PublicInbox/IMAPD.pm
@@ -72,7 +72,12 @@ sub imapd_refresh_finalize {
                 map {
                         my $no = $mailboxes->{$_} == $dummy ? '' : 'No';
                         qq[* LIST (\\Has${no}Children) "." $_\r\n]
-                } sort { length($a) <=> length($b) } keys %$mailboxes
+                } sort {
+                        # shortest names first, alphabetically if lengths match
+                        length($a) == length($b) ?
+                                ($a cmp $b) :
+                                (length($a) <=> length($b))
+                } keys %$mailboxes
         ];
         $imapd->{pi_config} = $pi_config;
         if (my $idler = $imapd->{idler}) {