(FILECREATED "21-Feb-85 17:50:30" ("compiled on " {ERIS}LIBRARY>MAILSCAVENGE.;3) "15-Feb-85 23:19:27" recompiled exprs: MAILSCAVENGE \MAILSCAVENGE.INTERNAL \PARSENMSGS1 \MSGERROR in "INTERLISP-D 15-Feb-85 ..." dated "15-Feb-85 23:30:50") (FILECREATED "21-Feb-85 17:49:29" {ERIS}LIBRARY>MAILSCAVENGE.;3 11979 changes to: (FNS MAILSCAVENGE \MAILSCAVENGE.INTERNAL \PARSENMSGS1 \MSGERROR MAILSCAVENGE.IN.PLACE) (VARS MAILSCAVENGECOMS) previous date: "21-Feb-85 14:59:04" {ERIS}LIBRARY>MAILSCAVENGE.;1) MAILSCAVENGE D1 (L (2 TEMPDIR 1 ERRORMSGSTREAM 0 FILENAME) P 2 \INTERRUPTABLE F 3 LAFITEMAIL.EXT) @S H Hl XB"g gghgggH gBgghgggH YHI YdAH I HldgoHo gH IH I(213Q RENAMEFILE 206Q DELFILE 172Q ASKUSER 167Q CONCAT 144Q DELFILE 137Q \MAILSCAVENGE.INTERNAL 130Q COPYFILE 122Q PACKFILENAME 65Q PACKFILENAME 35Q \GETDEVICEFROMHOSTNAME 23Q \LISPERROR 13Q INFILEP 4 LA.LONGFILENAME) (175Q Y 153Q N 115Q BODY 112Q SCAVENGE$ 107Q EXTENSION 103Q VERSION 100Q {DSK} 72Q DIRECTORY 60Q BODY 55Q SCAVENGE$ 52Q EXTENSION 46Q VERSION 40Q PSEUDO-DSK 32Q DSK) ( 164Q " with the newly-scavenged version? " 157Q "Do you want to replace the mail file ") MAILSCAVENGE.IN.PLACE D1 (L (1 ERRORMSGSTREAM 0 FILE) F 0 LAFITEMAIL.EXT) @P A (10Q \MAILSCAVENGE.INTERNAL 4 LA.LONGFILENAME) NIL () \MAILSCAVENGE.INTERNALA0001 D1 (NAME ERRORSET L (0 NIL) P 4 FOLDERSTRM P 1 NOERRORFLG F 13Q ERRORMSGSTREAM F 14Q REALNAME F 15Q RESETVARSLST F 16Q FILE F 17Q RESETY)  kijdt oWggho \hWcWL cL ]loW 0Jji j'ldgWo gLj L MKJk [ddHkԸKZ_Jl_ki [oLO Kd NMJL h_i_Odo+W oW HW lL oL noOo_ZO?N