FreeXP

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