epostunit.pas: PWD setzbar in befehlsthread

2 files changed, 41 insertions, 37 deletions

diff --git a/epost.lps b/epost.lps
index f2ab84e..294d3b2 100644
--- a/epost.lps
+++ b/epost.lps
@@ -22,9 +22,10 @@
       <Unit2>
         <Filename Value="epostunit.pas"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="3957"/>
-        <CursorPos X="69" Y="3962"/>
+        <TopLine Value="8228"/>
+        <CursorPos X="2" Y="8236"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -46,7 +47,6 @@
       <Unit5>
         <Filename Value="typenunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="11"/>
         <TopLine Value="2501"/>
         <CursorPos X="14" Y="2530"/>
@@ -215,123 +215,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="290" Column="45" TopLine="261"/>
+        <Caret Line="434" Column="45" TopLine="405"/>
       </Position1>
       <Position2>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="416" Column="45" TopLine="387"/>
+        <Caret Line="462" Column="45" TopLine="433"/>
       </Position2>
       <Position3>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="434" Column="45" TopLine="405"/>
+        <Caret Line="473" Column="45" TopLine="444"/>
       </Position3>
       <Position4>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="462" Column="45" TopLine="433"/>
+        <Caret Line="1851" Column="57" TopLine="1822"/>
       </Position4>
       <Position5>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="473" Column="45" TopLine="444"/>
+        <Caret Line="1885" Column="42" TopLine="1856"/>
       </Position5>
       <Position6>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="1851" Column="57" TopLine="1822"/>
+        <Caret Line="1931" Column="37" TopLine="1902"/>
       </Position6>
       <Position7>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="1885" Column="42" TopLine="1856"/>
+        <Caret Line="2157" Column="68" TopLine="2128"/>
       </Position7>
       <Position8>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="1931" Column="37" TopLine="1902"/>
+        <Caret Line="2250" Column="76" TopLine="2221"/>
       </Position8>
       <Position9>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2157" Column="68" TopLine="2128"/>
+        <Caret Line="2276" Column="142" TopLine="2247"/>
       </Position9>
       <Position10>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2250" Column="76" TopLine="2221"/>
+        <Caret Line="2505" TopLine="2512"/>
       </Position10>
       <Position11>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2276" Column="142" TopLine="2247"/>
+        <Caret Line="1931" Column="32" TopLine="1903"/>
       </Position11>
       <Position12>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2505" TopLine="2512"/>
+        <Caret Line="290" Column="45" TopLine="273"/>
       </Position12>
       <Position13>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="1931" Column="32" TopLine="1903"/>
+        <Caret Line="416" Column="45" TopLine="387"/>
       </Position13>
       <Position14>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="290" Column="45" TopLine="273"/>
+        <Caret Line="434" Column="45" TopLine="405"/>
       </Position14>
       <Position15>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="416" Column="45" TopLine="387"/>
+        <Caret Line="462" Column="45" TopLine="433"/>
       </Position15>
       <Position16>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="434" Column="45" TopLine="405"/>
+        <Caret Line="473" Column="45" TopLine="444"/>
       </Position16>
       <Position17>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="462" Column="45" TopLine="433"/>
+        <Caret Line="1851" Column="57" TopLine="1822"/>
       </Position17>
       <Position18>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="473" Column="45" TopLine="444"/>
+        <Caret Line="1885" Column="42" TopLine="1856"/>
       </Position18>
       <Position19>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="1851" Column="57" TopLine="1822"/>
+        <Caret Line="1931" Column="37" TopLine="1902"/>
       </Position19>
       <Position20>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="1885" Column="42" TopLine="1856"/>
+        <Caret Line="2157" Column="68" TopLine="2128"/>
       </Position20>
       <Position21>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="1931" Column="37" TopLine="1902"/>
+        <Caret Line="2250" Column="76" TopLine="2221"/>
       </Position21>
       <Position22>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2157" Column="68" TopLine="2128"/>
+        <Caret Line="2276" Column="142" TopLine="2247"/>
       </Position22>
       <Position23>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2250" Column="76" TopLine="2221"/>
+        <Caret Line="2506" Column="19" TopLine="2491"/>
       </Position23>
       <Position24>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2276" Column="142" TopLine="2247"/>
+        <Caret Line="459" Column="35" TopLine="441"/>
       </Position24>
       <Position25>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2506" Column="19" TopLine="2491"/>
+        <Caret Line="2460" Column="65" TopLine="2434"/>
       </Position25>
       <Position26>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="459" Column="35" TopLine="441"/>
+        <Caret Line="2463" Column="60" TopLine="2434"/>
       </Position26>
       <Position27>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2460" Column="65" TopLine="2434"/>
+        <Caret Line="2539" Column="30" TopLine="2505"/>
       </Position27>
       <Position28>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2463" Column="60" TopLine="2434"/>
+        <Caret Line="1921" Column="45" TopLine="1903"/>
       </Position28>
       <Position29>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="2539" Column="30" TopLine="2505"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="3968" Column="54" TopLine="3957"/>
       </Position29>
       <Position30>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="1921" Column="45" TopLine="1903"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="444" Column="24" TopLine="426"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
diff --git a/epostunit.pas b/epostunit.pas
index f13c72c..42f39f2 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -7347,8 +7347,12 @@ begin
     tokenListe.delete(0);
     s:=erstesArgument(t,'=',false);
     t:=shellExpand(t);
-    if not sT then
-      p.environment.add(s+'='+t);
+    if not sT then begin
+      if s='~PWD' then
+        p.currentDirectory:=t
+      else
+        p.environment.add(s+'='+t);
+    end;
   end;
   if not sT then begin
     p.options:=p.options + [poWaitOnExit];