FIX: [mail] Read header in offline mails.

Author: andreaspeters

CHANGELOG.md

@@ -18,6 +18,10 @@
 - ADD: [convers] Seperate window for convers.
 - ADD: [convers, main] Remember window position.
 - ADD: [tray] Button to show convers window.
+- FIX: [mail] Read header in offline mails.
+- ADD: [mail] Offline mail support for LinBPQ.
+- ADD: Progressbar to show the state of message/file download.
+- ADD: BBS Type in statusbar.
 
 ## v0.7.0
 

src/flexpacket.lps

@@ -18,9 +18,8 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="UMain"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="15"/>
-        <TopLine Value="737"/>
+        <TopLine Value="738"/>
         <CursorPos X="33" Y="758"/>
         <UsageCount Value="210"/>
         <Loaded Value="True"/>
@@ -228,9 +227,10 @@
         <ComponentName Value="FListMails"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="14"/>
-        <TopLine Value="481"/>
-        <CursorPos X="76" Y="489"/>
+        <TopLine Value="486"/>
+        <CursorPos X="25" Y="499"/>
         <UsageCount Value="303"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -256,7 +256,7 @@
         <ResourceBaseClass Value="Form"/>
         <EditorIndex Value="6"/>
         <TopLine Value="309"/>
-        <CursorPos Y="333"/>
+        <CursorPos X="7" Y="325"/>
         <UsageCount Value="247"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

src/ulistmails.lfm

@@ -2027,7 +2027,7 @@ object FListMails: TFListMails
     00000000000000000000000000000000000000000000
   }
   Position = poOwnerFormCenter
-  LCLVersion = '4.1.0.0'
+  LCLVersion = '4.4.0.0'
   OnClose = FormClose
   OnResize = FormResize
   OnShow = FormShow

src/ulistmails.pas

@@ -478,20 +478,28 @@ function TFListMails.ParseMessageHeader(const FileName: String): TMessageHeader;
 
     if sl.Count > 0 then
     begin
-      Line := sl[1];
-      Regex := TRegExpr.Create;
-      Regex.Expression := '^(\S+).*>.*(\S+).*(\d{2}\.\d{2}\.\d{2}) (\d{2}:\d{2}z) (\d+) Lines (\d+) Bytes.*@ (\S+)';
-      Regex.ModifierI := True;
-
-      if Regex.Exec(Line) then
+      // search the bcm header
+      for i := 0 to sl.Count - 1do
       begin
-        Result.FromCall2 := Regex.Match[1];
-        Result.ToCall2 := Regex.Match[7];
-        Result.DateStr := Regex.Match[3];
-        Result.TimeStr := Regex.Match[4];
-        Result.Lines := StrToInt(Regex.Match[5]);
-        Result.Bytes := StrToInt(Regex.Match[6]);
-        start := 2;
+        Line := sl[i];
+        Regex := TRegExpr.Create;
+        Regex.Expression := '^(\S+).*>.*(\S+).*(\d{2}\.\d{2}\.\d{2}) (\d{2}:\d{2}z) (\d+) Lines (\d+) Bytes.*@ (\S+)';
+        Regex.ModifierI := True;
+
+        if Regex.Exec(Line) then
+        begin
+          if Regex.SubExprMatchCount >= 7 then
+          begin
+            Result.FromCall2 := Regex.Match[1];
+            Result.ToCall2 := Regex.Match[7];
+            Result.DateStr := Regex.Match[3];
+            Result.TimeStr := Regex.Match[4];
+            Result.Lines := StrToInt(Regex.Match[5]);
+            Result.Bytes := StrToInt(Regex.Match[6]);
+            start := i+1;
+            break;
+          end;
+        end;
       end;
 
       for i := start to sl.Count - 1 do