Index: freexp/xp3o.inc =================================================================== RCS file: /server/cvs/freexp/xp3o.inc,v retrieving revision 1.39 retrieving revision 1.40 diff -u -r1.39 -r1.40 --- freexp/xp3o.inc 21 Oct 2005 15:26:24 -0000 1.39 +++ freexp/xp3o.inc 21 Nov 2005 08:27:34 -0000 1.40 @@ -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.39 2005/10/21 15:26:24 mw Exp $ } +{ $Id: xp3o.inc,v 1.40 2005/11/21 08:27:34 mw Exp $ } procedure readpuffer; @@ -233,12 +233,26 @@ 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 } - { okay:=((hdp2^.absender=sender) or (hdp2^.cust1=sender)) and (hdp2^.msgid=id) } - okay:=((hdp2^.absender=sender) or (hdp2^.wab=sender)) 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). } + { 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 - okay:=(hdp2^.absender=abs) or (hdp2^.cust1=abs) and (hdp2^.msgid=id); + { 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); end; begin @@ -1274,6 +1288,9 @@ end; { $Log: xp3o.inc,v $ + Revision 1.40 2005/11/21 08:27:34 mw + MY: - Korrektur von Okay + Revision 1.39 2005/10/21 15:26:24 mw HJT: - Hotfix gegen einen Fehler in der Supersedes-Behandlung
------------------------------------------------------------------------ FreeXP CVS-Mailingliste CVS-List@freexp.de http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list