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

1 files changed, 4 insertions, 3 deletions

diff --git a/UConnectionManager.pas b/UConnectionManager.pas
index 9adcf4f..f7c2993 100644
--- a/UConnectionManager.pas
+++ b/UConnectionManager.pas
@@ -66,7 +66,7 @@ type
     Thread: TOpenConnectionThread;
     SourcePanelEngine: TPanelEngine;
     ConnectedEngine: TVFSEngine;
-    function DoConnectInternal(const URI: string; Engine: TVFSEngine; VFSDialogsParentWindow: PGtkWidget): boolean;
+    function DoConnectInternal(const URI: string; Engine: TVFSEngine; VFSDialogsParentWindow: PGtkWidget; VFSQuickConnectMode: boolean): boolean;
   end;
 
 var
@@ -586,7 +586,7 @@ begin
   Engine.Password := FActiveConnInfo.Password;
   Engine.PasswordUsed := False;
 
-  if not DoConnectInternal(UTF8ToStr(FActiveConnInfo.GetURI(False)), Engine, FWidget) then begin
+  if not DoConnectInternal(UTF8ToStr(FActiveConnInfo.GetURI(False)), Engine, FWidget, False) then begin
     if not FSilenceError then Application.MessageBox(PGtkWindow(FWidget), LANGCouldntOpenURI, [mbOK], mbError, mbOK, mbOK);
     ListViewTable.Enabled := True;
     CloseButton.Enabled := True;
@@ -606,13 +606,14 @@ begin
   ModalResult := mbOK;
 end;
 
-function TFConnectionManager.DoConnectInternal(const URI: string; Engine: TVFSEngine; VFSDialogsParentWindow: PGtkWidget): boolean;
+function TFConnectionManager.DoConnectInternal(const URI: string; Engine: TVFSEngine; VFSDialogsParentWindow: PGtkWidget; VFSQuickConnectMode: boolean): boolean;
 begin
   Result := False;
   FSilenceError := False;
   Thread := TOpenConnectionThread.Create;
   try
     Thread.VFSConnectionManagerMode := VFSDialogsParentWindow = FWidget;
+    Thread.VFSQuickConnectMode := VFSQuickConnectMode;
     Thread.VFSDialogsParentWindow := VFSDialogsParentWindow;
     Thread.AEngine := Engine;
     Thread.URI := URI;