From c36919073910a98ddf1b8008227e0f5ede1a53bb Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sat, 3 Oct 2009 20:08:12 +0200
Subject: Parse out password from URI entered in the Quick Connect dialog and
 reuse it on first password prompt

---
 UCore.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'UCore.pas')

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
-- 
cgit v1.2.3