Index: client/src/Updater.m3
===================================================================
RCS file: /home/cvsupcvs/cvsup/client/src/Updater.m3,v
retrieving revision 1.91
diff -u -r1.91 Updater.m3
--- client/src/Updater.m3	1999/08/13 19:51:29	1.91
+++ client/src/Updater.m3	2001/05/26 23:11:39
@@ -712,7 +712,7 @@
       IF SupFileRec.Option.KeepBadFiles IN sfr.options THEN
 	Warn(self, "Bad version saved in " & tempPath);
       ELSE
-	DeleteFile(tempPath);
+	DeleteFile(self, tempPath);
       END;
     END;
   END UpdateFile;
@@ -1188,7 +1188,7 @@
       IF NOT SupFileRec.Option.CheckoutMode IN sfr.options THEN
 	(* Try the attic. *)
 	WITH atticName = SupMisc.AtticName(destPath) DO
-	  DeleteFile(atticName);
+	  DeleteFile(self, atticName);
 	  (* We always delete the Attic directory when it becomes empty.
 	     FIXME - Is that the right thing to do?. *)
 	  TRY
@@ -1196,7 +1196,7 @@
 	  EXCEPT OSError.E => (* Ignore. *) END;
 	END;
       END;
-      DeleteFile(destPath);
+      DeleteFile(self, destPath);
       IF SupFileRec.Option.CheckoutMode IN sfr.options
       OR NOT self.proto.v.dirsAreExplicit THEN
 	(* Delete the directory automatically if it is now empty. *)
@@ -1231,14 +1231,13 @@
     END;
   END MakeDirectories;
 
-PROCEDURE DeleteFile(path: Pathname.T)
-  RAISES {Error} =
+PROCEDURE DeleteFile(self: T; path: Pathname.T) =
   BEGIN
     TRY
       FileAttr.Delete(path);
     EXCEPT OSError.E(l) =>
       IF l.head # EnoentAtom THEN
-	RAISE Error("Cannot delete \"" & path & "\": " &
+	Warn(self, "Cannot delete \"" & path & "\": " &
 	  ErrMsg.StrError(l));
       END;
     END;
