Parse out password from URI entered in the Quick Connect dialog and reuse it on first password prompt

1 files changed, 3 insertions, 1 deletions

diff --git a/UCore.pas b/UCore.pas
index cb80927..50f705f 100644
--- a/UCore.pas
+++ b/UCore.pas
@@ -60,6 +60,7 @@ type TVFSCallbackThread = class(TThread)
        VFSCallbackCancelled: boolean;
 
        VFSConnectionManagerMode: boolean;
+       VFSQuickConnectMode: boolean;
        VFSDialogsParentWindow: PGtkWidget;
 
        FCancelRequested: boolean;
@@ -276,6 +277,7 @@ begin
   VFSAskPassword_Display := False;
   VFSCallbackCancelled := False;
   VFSConnectionManagerMode := False;
+  VFSQuickConnectMode := False;
   VFSDialogsParentWindow := FMain.FWidget;
   FCancelRequested := False;
 end;
@@ -365,7 +367,7 @@ begin
 
 
   //  Use stored password, if previously set
-  if (((flags and VFS_ASK_PASSWORD_ARCHIVE_MODE) = VFS_ASK_PASSWORD_ARCHIVE_MODE) or Thread.VFSConnectionManagerMode) and
+  if (((flags and VFS_ASK_PASSWORD_ARCHIVE_MODE) = VFS_ASK_PASSWORD_ARCHIVE_MODE) or Thread.VFSConnectionManagerMode or Thread.VFSQuickConnectMode) and
      (password <> nil) and (Thread.AEngine is TVFSEngine) and (Length((Thread.AEngine as TVFSEngine).Password) > 0) then
   begin
     if not (Thread.AEngine as TVFSEngine).PasswordUsed then begin