From ba7cfaaed229ccc9b3c8595e1edf6025c686efcb Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Thu, 30 May 2019 16:16:23 +0200
Subject: Spam ignorieren/löschen
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 emails.lps | 102 ++++++++++++++++++++++++++++++-------------------------------
 unit1.lfm  |  10 +++---
 unit1.pas  |   3 ++
 3 files changed, 59 insertions(+), 56 deletions(-)

diff --git a/emails.lps b/emails.lps
index c97bed6..4fb57c3 100644
--- a/emails.lps
+++ b/emails.lps
@@ -9,7 +9,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="1"/>
         <CursorPos X="24" Y="8"/>
-        <UsageCount Value="37"/>
+        <UsageCount Value="40"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
@@ -20,9 +20,9 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="177"/>
-        <CursorPos X="30" Y="201"/>
-        <UsageCount Value="37"/>
+        <TopLine Value="251"/>
+        <CursorPos Y="288"/>
+        <UsageCount Value="40"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit1>
@@ -30,9 +30,9 @@
         <Filename Value="../units/popimapunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="4"/>
-        <TopLine Value="171"/>
-        <CursorPos Y="184"/>
-        <UsageCount Value="30"/>
+        <TopLine Value="805"/>
+        <CursorPos X="31" Y="833"/>
+        <UsageCount Value="33"/>
         <Loaded Value="True"/>
       </Unit2>
       <Unit3>
@@ -41,7 +41,7 @@
         <EditorIndex Value="-1"/>
         <TopLine Value="22"/>
         <CursorPos X="97" Y="25"/>
-        <UsageCount Value="30"/>
+        <UsageCount Value="33"/>
       </Unit3>
       <Unit4>
         <Filename Value="../units/popunit.pas"/>
@@ -68,7 +68,7 @@
         <EditorIndex Value="2"/>
         <TopLine Value="578"/>
         <CursorPos X="35" Y="618"/>
-        <UsageCount Value="16"/>
+        <UsageCount Value="17"/>
         <Loaded Value="True"/>
       </Unit7>
       <Unit8>
@@ -76,7 +76,7 @@
         <EditorIndex Value="3"/>
         <TopLine Value="367"/>
         <CursorPos X="47" Y="403"/>
-        <UsageCount Value="15"/>
+        <UsageCount Value="16"/>
         <Loaded Value="True"/>
       </Unit8>
       <Unit9>
@@ -116,123 +116,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="435" Column="66" TopLine="410"/>
+        <Caret Line="612" Column="42" TopLine="592"/>
       </Position1>
       <Position2>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="430" TopLine="409"/>
+        <Caret Line="616" Column="102" TopLine="592"/>
       </Position2>
       <Position3>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="48" Column="61" TopLine="19"/>
+        <Caret Line="628" Column="26" TopLine="599"/>
       </Position3>
       <Position4>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="424" Column="72" TopLine="404"/>
+        <Caret Line="619" TopLine="604"/>
       </Position4>
       <Position5>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="433" Column="35" TopLine="413"/>
+        <Caret Line="635" TopLine="599"/>
       </Position5>
       <Position6>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="21" TopLine="21"/>
+        <Caret Line="629" Column="35" TopLine="604"/>
       </Position6>
       <Position7>
-        <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="424" Column="25" TopLine="404"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="138" Column="47" TopLine="117"/>
       </Position7>
       <Position8>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="49" Column="36" TopLine="40"/>
+        <Caret Line="2"/>
       </Position8>
       <Position9>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="604" Column="20" TopLine="585"/>
+        <Caret Line="24" Column="20"/>
       </Position9>
       <Position10>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="424" Column="45" TopLine="410"/>
+        <Caret Line="34" Column="18"/>
       </Position10>
       <Position11>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="438" Column="92" TopLine="428"/>
+        <Caret Line="312" Column="16" TopLine="284"/>
       </Position11>
       <Position12>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="49" Column="22" TopLine="22"/>
+        <Caret Line="24" Column="25"/>
       </Position12>
       <Position13>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="459" Column="44" TopLine="456"/>
+        <Caret Line="309" Column="19" TopLine="297"/>
       </Position13>
       <Position14>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="457" Column="43" TopLine="448"/>
+        <Caret Line="15" Column="32"/>
       </Position14>
       <Position15>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="459" Column="44" TopLine="448"/>
+        <Caret Line="317" Column="27" TopLine="288"/>
       </Position15>
       <Position16>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="477" Column="37" TopLine="461"/>
+        <Caret Line="308" Column="40" TopLine="287"/>
       </Position16>
       <Position17>
-        <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="570" Column="19" TopLine="541"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="138" Column="47" TopLine="117"/>
       </Position17>
       <Position18>
-        <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="615" Column="23" TopLine="601"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="273" TopLine="258"/>
       </Position18>
       <Position19>
-        <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="21" Column="26"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="39" Column="5" TopLine="18"/>
       </Position19>
       <Position20>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="229" Column="33" TopLine="214"/>
+        <Caret Line="77" Column="12" TopLine="51"/>
       </Position20>
       <Position21>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="18" Column="3"/>
+        <Caret Line="87" Column="22" TopLine="51"/>
       </Position21>
       <Position22>
-        <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="612" Column="42" TopLine="592"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="39" Column="7" TopLine="18"/>
       </Position22>
       <Position23>
-        <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="616" Column="102" TopLine="592"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="93" Column="5" TopLine="58"/>
       </Position23>
       <Position24>
-        <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="628" Column="26" TopLine="599"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="96" Column="7" TopLine="61"/>
       </Position24>
       <Position25>
-        <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="619" TopLine="604"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="97" Column="39" TopLine="62"/>
       </Position25>
       <Position26>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="635" TopLine="599"/>
+        <Caret Line="841" Column="33" TopLine="820"/>
       </Position26>
       <Position27>
         <Filename Value="../units/popimapunit.pas"/>
-        <Caret Line="629" Column="35" TopLine="604"/>
+        <Caret Line="84" Column="14" TopLine="49"/>
       </Position27>
       <Position28>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="138" Column="47" TopLine="117"/>
+        <Filename Value="../units/popimapunit.pas"/>
+        <Caret Line="34" Column="19" TopLine="12"/>
       </Position28>
       <Position29>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="195" Column="22" TopLine="176"/>
+        <Filename Value="../units/popimapunit.pas"/>
+        <Caret Line="84" Column="19" TopLine="48"/>
       </Position29>
       <Position30>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="49" Column="56" TopLine="25"/>
+        <Filename Value="../units/popimapunit.pas"/>
+        <Caret Line="341" Column="18" TopLine="305"/>
       </Position30>
     </JumpHistory>
     <RunParams>
diff --git a/unit1.lfm b/unit1.lfm
index a8f9e56..26a5bf0 100644
--- a/unit1.lfm
+++ b/unit1.lfm
@@ -11,7 +11,7 @@ object Form1: TForm1
   OnDestroy = FormDestroy
   OnResize = FormResize
   OnShow = FormShow
-  LCLVersion = '2.0.0.4'
+  LCLVersion = '2.0.2.0'
   object Memo1: TMemo
     Left = 0
     Height = 584
@@ -73,18 +73,18 @@ object Form1: TForm1
   end
   object CheckBox1: TCheckBox
     Left = 272
-    Height = 23
+    Height = 21
     Top = 596
-    Width = 96
+    Width = 93
     Caption = 'aufploppen'
     OnClick = CheckBox1Click
     TabOrder = 2
   end
   object CheckBox2: TCheckBox
     Left = 416
-    Height = 23
+    Height = 21
     Top = 596
-    Width = 91
+    Width = 86
     Caption = 'Ton geben'
     Checked = True
     OnClick = CheckBox1Click
diff --git a/unit1.pas b/unit1.pas
index 04f0f52..2b5c711 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -266,6 +266,9 @@ var
   argumente:        array of string;
   ausgabe:          string;
 begin
+  for i:=pc.nAnz-1 downto 0 do
+    if pc.spam(i)=slSpam then
+      pc.loesche(i);
   mitMarkeDa:=0;
   memo1.lines.clear;
   ung:=0;
-- 
cgit v1.2.3-54-g00ecf