From 1654130587e3d4642584c0915705079d103ab668 Mon Sep 17 00:00:00 2001
From: FStaal <75628087+FStaal@users.noreply.github.com>
Date: Fri, 11 Dec 2020 16:52:38 +0100
Subject: [PATCH] Bugfix in ListMailboxes call

As TIdIMAP4.ParseIntoBrackettedQuotedAndUnquotedParts is being used in other parts of teh code I opted for changing TIdIMAP4.InternalParseListResult. As discussed here: https://stackoverflow.com/questions/65022293/bug-in-tidimap4-listmailboxes/65029645?noredirect=1#comment115098806_65029645 I've changed it to use the index 2 as the FMailBoxSeparator and everything following that as the MailboxName.
---
 Lib/Protocols/IdIMAP4.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/Lib/Protocols/IdIMAP4.pas b/Lib/Protocols/IdIMAP4.pas
index de9f83d22..a1f5d0588 100644
--- a/Lib/Protocols/IdIMAP4.pas
+++ b/Lib/Protocols/IdIMAP4.pas
@@ -6293,6 +6293,7 @@ procedure TIdIMAP4.ParseListResult(AMBList: TStrings; ACmdResultDetails: TString
 
 procedure TIdIMAP4.InternalParseListResult(ACmd: string; AMBList: TStrings; ACmdResultDetails: TStrings);
 var Ln : Integer;
+  LIdx : Integer;
   LSlRetrieve : TStringList;
   LStr : String;
   LWord: string;
@@ -6319,15 +6320,17 @@ procedure TIdIMAP4.InternalParseListResult(ACmd: string; AMBList: TStrings; ACmd
           //Make sure 1st word is LIST (may be an unsolicited response)...
           if TextIsSame(LSlRetrieve[0], {IMAP4Commands[cmdList]} ACmd) then begin
             {Get the mailbox separator...}
-            LWord := Trim(LSlRetrieve[LSlRetrieve.Count-2]);
+            LWord := Trim(LSlRetrieve[2]);
             if TextIsSame(LWord, 'NIL') or (LWord = '') then begin {Do not Localize}
               FMailBoxSeparator := #0;
             end else begin
               FMailBoxSeparator := LWord[1];
             end;
             {Now get the mailbox name...}
-            LWord := Trim(LSlRetrieve[LSlRetrieve.Count-1]);
-            AMBList.Add(DoMUTFDecode(LWord));
+            LWord := LSlRetrieve[3];
+            for LIdx := 4 to LSlRetrieve.Count - 1 do
+              LWord := LWord  + ' ' + LSlRetrieve[LIdx];
+          AMBList.Add(DoMUTFDecode(LWord));
           end;
         end;
       end;