summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--emails.lps92
-rw-r--r--unit1.pas4
2 files changed, 48 insertions, 48 deletions
diff --git a/emails.lps b/emails.lps
index 4fb57c3..310acb3 100644
--- a/emails.lps
+++ b/emails.lps
@@ -9,7 +9,7 @@
<IsPartOfProject Value="True"/>
<EditorIndex Value="1"/>
<CursorPos X="24" Y="8"/>
- <UsageCount Value="40"/>
+ <UsageCount Value="44"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
@@ -20,9 +20,9 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
- <TopLine Value="251"/>
- <CursorPos Y="288"/>
- <UsageCount Value="40"/>
+ <TopLine Value="254"/>
+ <CursorPos Y="274"/>
+ <UsageCount Value="44"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
@@ -30,9 +30,9 @@
<Filename Value="../units/popimapunit.pas"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="4"/>
- <TopLine Value="805"/>
- <CursorPos X="31" Y="833"/>
- <UsageCount Value="33"/>
+ <TopLine Value="163"/>
+ <CursorPos Y="5"/>
+ <UsageCount Value="37"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
@@ -41,7 +41,7 @@
<EditorIndex Value="-1"/>
<TopLine Value="22"/>
<CursorPos X="97" Y="25"/>
- <UsageCount Value="33"/>
+ <UsageCount Value="37"/>
</Unit3>
<Unit4>
<Filename Value="../units/popunit.pas"/>
@@ -68,7 +68,7 @@
<EditorIndex Value="2"/>
<TopLine Value="578"/>
<CursorPos X="35" Y="618"/>
- <UsageCount Value="17"/>
+ <UsageCount Value="19"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
@@ -76,7 +76,7 @@
<EditorIndex Value="3"/>
<TopLine Value="367"/>
<CursorPos X="47" Y="403"/>
- <UsageCount Value="16"/>
+ <UsageCount Value="18"/>
<Loaded Value="True"/>
</Unit8>
<Unit9>
@@ -116,123 +116,121 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="612" Column="42" TopLine="592"/>
+ <Caret Line="73" Column="10" TopLine="37"/>
</Position1>
<Position2>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="616" Column="102" TopLine="592"/>
+ <Caret Line="367" Column="30" TopLine="331"/>
</Position2>
<Position3>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="628" Column="26" TopLine="599"/>
+ <Caret Line="368" Column="18" TopLine="332"/>
</Position3>
<Position4>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="619" TopLine="604"/>
+ <Caret Line="382" Column="18" TopLine="346"/>
</Position4>
<Position5>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="635" TopLine="599"/>
+ <Caret Line="414" Column="33" TopLine="388"/>
</Position5>
<Position6>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="629" Column="35" TopLine="604"/>
+ <Caret Line="52" Column="30" TopLine="30"/>
</Position6>
<Position7>
- <Filename Value="unit1.pas"/>
- <Caret Line="138" Column="47" TopLine="117"/>
+ <Filename Value="../units/popimapunit.pas"/>
+ <Caret Line="414" Column="41" TopLine="393"/>
</Position7>
<Position8>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="2"/>
+ <Caret Line="431" Column="39" TopLine="418"/>
</Position8>
<Position9>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="24" Column="20"/>
+ <Caret Line="54" Column="32" TopLine="32"/>
</Position9>
<Position10>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="34" Column="18"/>
+ <Caret Line="431" Column="43" TopLine="395"/>
</Position10>
<Position11>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="312" Column="16" TopLine="284"/>
+ <Caret Line="861" TopLine="827"/>
</Position11>
<Position12>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="24" Column="25"/>
</Position12>
<Position13>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="309" Column="19" TopLine="297"/>
+ <Caret Line="741" Column="39" TopLine="716"/>
</Position13>
<Position14>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="15" Column="32"/>
+ <Caret Line="53" Column="41" TopLine="31"/>
</Position14>
<Position15>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="317" Column="27" TopLine="288"/>
+ <Caret Line="408" Column="52" TopLine="372"/>
</Position15>
<Position16>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="308" Column="40" TopLine="287"/>
+ <Caret Line="79" Column="20" TopLine="57"/>
</Position16>
<Position17>
- <Filename Value="unit1.pas"/>
- <Caret Line="138" Column="47" TopLine="117"/>
+ <Filename Value="../units/popimapunit.pas"/>
+ <Caret Line="410" Column="40" TopLine="374"/>
</Position17>
<Position18>
- <Filename Value="unit1.pas"/>
- <Caret Line="273" TopLine="258"/>
+ <Filename Value="../units/popimapunit.pas"/>
+ <Caret Line="411" Column="30" TopLine="375"/>
</Position18>
<Position19>
<Filename Value="unit1.pas"/>
- <Caret Line="39" Column="5" TopLine="18"/>
+ <Caret Line="271" Column="17" TopLine="235"/>
</Position19>
<Position20>
- <Filename Value="../units/popimapunit.pas"/>
- <Caret Line="77" Column="12" TopLine="51"/>
+ <Filename Value="unit1.pas"/>
+ <Caret Line="41" Column="30" TopLine="20"/>
</Position20>
<Position21>
- <Filename Value="../units/popimapunit.pas"/>
- <Caret Line="87" Column="22" TopLine="51"/>
+ <Filename Value="unit1.pas"/>
+ <Caret Line="97" Column="39" TopLine="62"/>
</Position21>
<Position22>
<Filename Value="unit1.pas"/>
- <Caret Line="39" Column="7" TopLine="18"/>
+ <Caret Line="268" Column="28" TopLine="254"/>
</Position22>
<Position23>
- <Filename Value="unit1.pas"/>
- <Caret Line="93" Column="5" TopLine="58"/>
+ <Filename Value="../units/popimapunit.pas"/>
+ <Caret Line="90" Column="22" TopLine="68"/>
</Position23>
<Position24>
<Filename Value="unit1.pas"/>
- <Caret Line="96" Column="7" TopLine="61"/>
+ <Caret Line="271" Column="14" TopLine="254"/>
</Position24>
<Position25>
- <Filename Value="unit1.pas"/>
- <Caret Line="97" Column="39" TopLine="62"/>
+ <Filename Value="../units/popimapunit.pas"/>
+ <Caret Line="90" Column="15" TopLine="68"/>
</Position25>
<Position26>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="841" Column="33" TopLine="820"/>
+ <Caret Line="60" Column="25" TopLine="38"/>
</Position26>
<Position27>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="84" Column="14" TopLine="49"/>
</Position27>
<Position28>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="34" Column="19" TopLine="12"/>
+ <Caret Line="90" Column="22" TopLine="54"/>
</Position28>
<Position29>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="84" Column="19" TopLine="48"/>
+ <Caret Line="850" Column="33" TopLine="826"/>
</Position29>
<Position30>
<Filename Value="../units/popimapunit.pas"/>
- <Caret Line="341" Column="18" TopLine="305"/>
+ <Caret Line="79" Column="5" TopLine="57"/>
</Position30>
</JumpHistory>
<RunParams>
diff --git a/unit1.pas b/unit1.pas
index 2b5c711..43eeb68 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -267,8 +267,10 @@ var
ausgabe: string;
begin
for i:=pc.nAnz-1 downto 0 do
- if pc.spam(i)=slSpam then
+ if pc.spam(i)=slSpam then begin
pc.loesche(i);
+ exit; // we will be notified again (iff there are new messages left)
+ end;
mitMarkeDa:=0;
memo1.lines.clear;
ung:=0;