FreeXP

CVS daily diff

FreeXP CVS-Server cvs-list at freexp.de
Die Nov 22 00:00:23 CET 2005


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
 



Mehr Informationen über die CVS-List Mailingliste