Index: freexp/clip.pas
===================================================================
RCS file: /server/cvs/freexp/clip.pas,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -r1.37 -r1.38
--- freexp/clip.pas 2 Jan 2006 12:28:49 -0000 1.37
+++ freexp/clip.pas 10 Jan 2006 21:36:31 -0000 1.38
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: clip.pas,v 1.37 2006/01/02 12:28:49 mw Exp $ }
+{ $Id: clip.pas,v 1.38 2006/01/10 21:36:31 mw Exp $ }
{$I XPDEFINE.INC }
{$O+,F+}
@@ -183,16 +183,9 @@
StrS(DOSEMU_VersionPos[3]) + '.' + StrS(DOSEMU_VersionPos[2]);
end;
-Function AT : Boolean;
-{ in: - }
-{out: True/False, if the machine is (at least) an AT}
-begin
- AT := MEM[$F000 : $FFFE] = $FC;
-end;
-
function DOSBOX: boolean;
begin
- DOSBOX:=(Test8086>1) and not AT;
+ DOSBOX:=(Test8086>1) and not (MEM[$F000 : $FFFE] = $FC);
end;
{ -------------------------------------------------------- }
@@ -800,6 +793,9 @@
end.
{
$Log: clip.pas,v $
+ Revision 1.38 2006/01/10 21:36:31 mw
+ MW: - Kürzere Formulierung des DOSBox-Tests.
+
Revision 1.37 2006/01/02 12:28:49 mw
MW: - Frohes neues Jahr 2006
Index: freexp/xp3o.inc
===================================================================
RCS file: /server/cvs/freexp/xp3o.inc,v
retrieving revision 1.42
retrieving revision 1.44
diff -u -r1.42 -r1.44
--- freexp/xp3o.inc 2 Jan 2006 12:28:49 -0000 1.42
+++ freexp/xp3o.inc 10 Jan 2006 21:43:56 -0000 1.44
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp3o.inc,v 1.42 2006/01/02 12:28:49 mw Exp $ }
+{ $Id: xp3o.inc,v 1.44 2006/01/10 21:43:56 mw Exp $ }
procedure readpuffer;
@@ -231,28 +231,17 @@
function okay:boolean;
begin
- okay:=false;
- if sender<>'' then
- { 05.01.05 HJT: UUZ versorgt jetzt aus 'Sender' den WAB }
- { damit muessen wir hier auch gegen den WAB pruefen }
- { 18.11.05 MY: Wir müssen 'abs' sowohl gegen 'cust1' als }
- { auch gegen 'wab' prüfen, weil 'Sender:' in dem einen }
- { wie in dem anderen Header gelandet sein kann (je nach }
- { UUZ, der das zu ersetzende Posting konvertiert hat). }
- { okay:=((hdp2^.absender=sender) or (hdp2^.cust1=sender)) and
- (hdp2^.msgid=id) }
- okay:=((hdp2^.absender=sender) or (hdp2^.cust1=sender) or
- (hdp2^.wab=sender)) and (hdp2^.msgid=id)
- else
- { 05.01.05 HJT: sieht auch merkwuerdig aus, }
- { (der Vergleich auf cust1=abs macht keinen }
- { Sinn, schadet aber auch nicht) }
- { 18.11.05 MY: Wir müssen 'abs' sowohl gegen 'cust1' als }
- { auch gegen 'wab' prüfen, weil 'Sender:' in dem einen }
- { wie in dem anderen Header gelandet sein kann (je nach }
- { UUZ, der das zu ersetzende Posting konvertiert hat). }
- okay:=((hdp2^.absender=abs) or (hdp2^.cust1=abs) or
- (hdp2^.wab=abs)) and (hdp2^.msgid=id);
+ { 05.01.05 HJT: UUZ versorgt jetzt aus 'Sender' den WAB }
+ { damit muessen wir hier auch gegen den WAB pruefen }
+ { 18.11.05 MY: Wir müssen 'abs' sowohl gegen 'cust1' als }
+ { auch gegen 'wab' prüfen, weil 'Sender:' in dem einen }
+ { wie in dem anderen Header gelandet sein kann (je nach }
+ { UUZ, der das zu ersetzende Posting konvertiert hat). }
+ { 10.01.06 MW: sender und abs endlich gleichberechtigt }
+ okay:=(((hdp2^.absender=sender) or (hdp2^.cust1=sender) or
+ (hdp2^.wab=sender) and (sender<>'')) or
+ (hdp2^.absender=abs) or (hdp2^.cust1=abs) or
+ (hdp2^.wab=abs)) and (hdp2^.msgid=id);
end;
begin
@@ -1288,6 +1277,13 @@
end;
{
$Log: xp3o.inc,v $
+ Revision 1.44 2006/01/10 21:43:56 mw
+ MW: - Optimierung der Superseed/Cancel-Prüfroutine.
+
+ Revision 1.43 2006/01/10 13:43:18 mw
+ MW: - Sender und Absender werden jetzt absolut gleichberechtigt
+ bei der Prüfung von Superseeds/Cancels behandelt.
+
Revision 1.42 2006/01/02 12:28:49 mw
MW: - Frohes neues Jahr 2006
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
CVS-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
