FreeXP

CVS freexp

CVS User mw cvs-list at freexp.de
Mon Okt 16 18:24:20 CEST 2006


Update of /server/cvs/freexp
In directory m25s18:/tmp/cvs-serv25766

Modified Files:
      Tag: Branch_3_40_Release
	xpmime.pas 
Log Message:
HJT: - Bugfix: Letzte BASE64 codierte Zeile auch ausgeben


--- /server/cvs/freexp/xpmime.pas	2006/02/20 11:56:17	1.18.2.2
+++ /server/cvs/freexp/xpmime.pas	2006/10/16 16:24:20	1.18.2.3
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xpmime.pas,v 1.18.2.2 2006/02/20 11:56:17 mw Exp $ }
+{ $Id: xpmime.pas,v 1.18.2.3 2006/10/16 16:24:20 mw Exp $ }
 
 { CrossPoint - Multipart-Nachrichten decodieren / lesen / extrahieren }
 
@@ -753,7 +753,10 @@
             s1:=s1+left(s,p1);
             delete(s,1,p1);
           end;
-          if (p>0) or (length(s1)=255) then               { Daten schreiben }
+          if (p>0) or (length(s1)=255) or
+                                             { HJT 01.10.06 Rest der letzten }
+              ((lines=i) and (s1<>''))       { eingelesen Zeile ausgeben     }
+          then                               { Daten schreiben }
           begin
             CharsetToIBM(charset,s1);
             if s1<>'' then
@@ -809,6 +812,9 @@
 end.
 {
   $Log: xpmime.pas,v $
+  Revision 1.18.2.3  2006/10/16 16:24:20  mw
+  HJT: - Bugfix: Letzte BASE64 codierte Zeile auch ausgeben
+
   Revision 1.18.2.2  2006/02/20 11:56:17  mw
   HJT: - 'Beenden' in der MP-Auswahl
 




Mehr Informationen über die CVS-List Mailingliste