From 66a93edd31d7ae54a8ef26b36e2395aa3a5e15ec Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sun, 24 Aug 2008 23:36:00 +0200
Subject: Allow moving files inside vfs engine (detect target engine by
 relative path)

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

(limited to 'UMain.pas')

diff --git a/UMain.pas b/UMain.pas
index c1496af..114ad55 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -2581,7 +2581,9 @@ begin
     AFProgress.ProgressBar.Value := 0;
     AWorkingThread.ProgressForm := AFProgress;
     if Assigned(ListView.Selected) then AWorkingThread.SelectedItem := ListView.Selected.Data;
-    AWorkingThread.DestEngine := OppositeEngine;
+    //  Determine target engine according to absolute/relative path
+    if (NewPath[1] = '/') or (NewPath[1] = '~') then AWorkingThread.DestEngine := OppositeEngine
+                                                else AWorkingThread.DestEngine := Engine;
     AWorkingThread.SrcEngine := Engine;
     
     //  Determine on which engine the entered path is
-- 
cgit v1.2.3