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

1 files changed, 4 insertions, 2 deletions

diff --git a/UQuickConnect.pas b/UQuickConnect.pas
index 8234edd..7533bd4 100644
--- a/UQuickConnect.pas
+++ b/UQuickConnect.pas
@@ -268,7 +268,7 @@ procedure TFQuickConnect.DoConnect;
 var Engine: TVFSEngine;
     i, j: integer;
     VFSPlugin: TVFSPlugin;
-    Scheme: string;
+    URI, Scheme: string;
 begin
   if ConnectionManager <> nil then AFConnectionManager := ConnectionManager
                               else AFConnectionManager := TFConnectionManager.Create(Self);
@@ -321,8 +321,10 @@ begin
   Engine.SavePath := SourcePanelEngine.Path;
   Engine.OpenedFromQuickConnect := True;
   Engine.CustomPluginIDSave := ConfQuickConnectPluginID;
+  URI := URIComboBox.Entry.Text;
+  Engine.Password := URIRipPassword(URI, True);
 
-  if not AFConnectionManager.DoConnectInternal(URIComboBox.Entry.Text, Engine, FWidget) then begin
+  if not AFConnectionManager.DoConnectInternal(URI, Engine, FWidget, True) then begin
     if not AFConnectionManager.FSilenceError then Application.MessageBox(PGtkWindow(FWidget), LANGCouldntOpenURI, [mbOK], mbError, mbOK, mbOK);
     Table.Enabled := True;
     CloseButton.Enabled := True;