CVS daily diff
FreeXP CVS-Server
cvs-list at freexp.de
Fre Jun 3 00:00:20 CEST 2005
Index: freexp/xp6.pas
===================================================================
RCS file: /server/cvs/freexp/xp6.pas,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -r1.48 -r1.49
--- freexp/xp6.pas 27 May 2005 06:40:52 -0000 1.48
+++ freexp/xp6.pas 2 Jun 2005 10:06:58 -0000 1.49
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp6.pas,v 1.48 2005/05/27 06:40:52 mw Exp $ }
+{ $Id: xp6.pas,v 1.49 2005/06/02 10:06:58 mw Exp $ }
{ MH: PGP-Sig auch in RFC, Zurück Button f. alle Netztypen }
@@ -2504,10 +2504,6 @@
useclip:=true;
if readfilename(getres(iif(binary,613,614)),fn,true,useclip) { 'Binärdatei' / 'Textdatei' versenden }
then
- if (3=4) then
- fehler('Logikfehler!!!')
- {Versandgaengelung ausgebaut}
- else begin
if not multipos('\:',fn) then fn:=sendpath+fn else
fn:=FExpand(fn);
if not exist(fn) then rfehler(616) { 'Datei nicht vorhanden' }
@@ -2530,8 +2526,7 @@
if DoSend(pm,fn,empf,betr,false,binary,true,true,false,sData,hf,hf,0) then;
dispose(sData);
end;
- if useclip then _era(fn);
- end;
+ if useclip then _era(fn);
end;
@@ -2564,6 +2559,10 @@
end.
{
$Log: xp6.pas,v $
+ Revision 1.49 2005/06/02 10:06:58 mw
+ MW: - Versandgängelung komplett entsorgt
+ (Unmögliche Bedingung ist jetzt nicht mehr notwendig)
+
Revision 1.48 2005/05/27 06:40:52 mw
MW: - Bugfix "Versandgängelung"
Mehr Informationen über die CVS-List Mailingliste