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