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"
------------------------------------------------------------------------ FreeXP CVS-Mailingliste CVS-List@freexp.de http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list