From cefe43f211b342811dadcd2821a007a22716406c Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Fri, 13 Dec 2019 08:21:19 +0100
Subject: epostunit.pas: weniger strenge Syntaxprüfung beim Lesen von .sif
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 epost.lps     | 36 ++++++++++++++++++------------------
 epostunit.pas |  2 +-
 2 files changed, 19 insertions(+), 19 deletions(-)

diff --git a/epost.lps b/epost.lps
index 2126e42..21b235e 100644
--- a/epost.lps
+++ b/epost.lps
@@ -24,8 +24,8 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="2364"/>
-        <CursorPos X="106" Y="2378"/>
+        <TopLine Value="2064"/>
+        <CursorPos X="47" Y="2080"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -288,44 +288,44 @@
         <Caret Line="2344" Column="44" TopLine="2336"/>
       </Position20>
       <Position21>
-        <Filename Value="epost.lpr"/>
-        <Caret Line="259" TopLine="325"/>
-      </Position21>
-      <Position22>
         <Filename Value="../units/lowlevelunit.pas"/>
         <Caret Line="87" Column="46" TopLine="68"/>
+      </Position21>
+      <Position22>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="2788" Column="7" TopLine="2771"/>
       </Position22>
       <Position23>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2788" Column="7" TopLine="2771"/>
+        <Caret Line="7513" TopLine="7497"/>
       </Position23>
       <Position24>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="7513" TopLine="7497"/>
+        <Caret Line="2352" TopLine="2335"/>
       </Position24>
       <Position25>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="2352" TopLine="2335"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="2532" Column="105" TopLine="2526"/>
       </Position25>
       <Position26>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="2532" Column="105" TopLine="2526"/>
+        <Caret Line="2270" TopLine="2252"/>
       </Position26>
       <Position27>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="2270" TopLine="2252"/>
-      </Position27>
-      <Position28>
         <Filename Value="epostunit.pas"/>
         <Caret Line="2381" TopLine="2363"/>
-      </Position28>
-      <Position29>
+      </Position27>
+      <Position28>
         <Filename Value="typenunit.pas"/>
         <Caret Line="2177" Column="93" TopLine="2152"/>
+      </Position28>
+      <Position29>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="7513" TopLine="7481"/>
       </Position29>
       <Position30>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="7513" TopLine="7481"/>
+        <Caret Line="2378" Column="106" TopLine="2364"/>
       </Position30>
     </JumpHistory>
     <RunParams>
diff --git a/epostunit.pas b/epostunit.pas
index f71172c..d462fe8 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -2077,7 +2077,7 @@ begin
       readALine(f,s);
       readALine(f,t);
       splitStrToInt(s+' '+t,iArr);
-      if (iArr[0]<>65541) or (iArr[9]<>65538) or (iArr[13]<>1) or (iArr[16]<>0) then begin
+      if (iArr[0]<>65541) or (iArr[9]<>65538) or (iArr[16]<>0) then begin
         gibAus('Syntax-Fehler in '''+dateien[i].name+''': inkonsistenter Kopf ('+intToStr(filePos(f))+').',3);
         closeFile(f);
         exit;
-- 
cgit v1.2.3-70-g09d2