FreeXP

CVS freexp

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


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

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


--- /server/cvs/freexp/xpmime.pas	2006/02/20 11:55:42	1.20
+++ /server/cvs/freexp/xpmime.pas	2006/10/16 16:27:16	1.21
@@ -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.20 2006/02/20 11:55:42 mw Exp $ }
+{ $Id: xpmime.pas,v 1.21 2006/10/16 16:27:16 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.21  2006/10/16 16:27:16  mw
+  HJT: - Bugfix: Letzte BASE64 codierte Zeile auch ausgeben
+
   Revision 1.20  2006/02/20 11:55:42  mw
   HJT: - 'Beenden' in der MP-Auswahl
 




Mehr Informationen über die CVS-List Mailingliste