(FILECREATED "27-Jan-87 14:06:28" ("compiled on " {ERIS}INTERNAL>LIBRARY>MAILSCAVENGE.;1) "21-Jan-87 21:13:09" tcompl'd in "Xerox Lisp 21-Jan-87 ..." dated "21-Jan-87 21:48:22") (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 D4 (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(139 RENAMEFILE 134 DELFILE 122 ASKUSER 119 CONCAT 100 DELFILE 95 \MAILSCAVENGE.INTERNAL 88 COPYFILE 82 PACKFILENAME 53 PACKFILENAME 29 \GETDEVICEFROMHOSTNAME 19 \LISPERROR 11 INFILEP 4 LA.LONGFILENAME) (125 Y 107 N 77 BODY 74 SCAVENGE$ 71 EXTENSION 67 VERSION 64 {DSK} 58 DIRECTORY 48 BODY 45 SCAVENGE$ 42 EXTENSION 38 VERSION 32 PSEUDO-DSK 26 DSK) ( 116 " with the newly-scavenged version? " 111 "Do you want to replace the mail file ") MAILSCAVENGE.IN.PLACE D4 (L (1 ERRORMSGSTREAM 0 FILE) F 0 LAFITEMAIL.EXT) @P A (8 \MAILSCAVENGE.INTERNAL 4 LA.LONGFILENAME) NIL () \MAILSCAVENGE.INTERNALA0001 D4 (NAME SI*UNWIND-PROTECT* P 4 FOLDERSTRM P 1 NOERRORFLG I 0 SI*CLEANUP-FORMS* F 11 ERRORMSGSTREAM F 12 REALNAME F 13 SI*RESETFORMS* F 14 FILE)  kijdt oWggho \hWcWL cL ]dloW 0Jji j'ldgWo gLj L MKJk [d3 HkԸKZ_Jl_ki [oLO K3 NMJL h_i_Odo+W oW HW lL oL joOo_VO;N8Jkmi _3 HmԸLOl MOL LOZ j[W oW HW K3 M[ OW WWW oW W h(397 TERPRI 391 PRIN1 381 PRIN1 371 TERPRI 350 SHOULDNT 346 PRIN1 339 PRIN1 329 TERPRI 319 SETFILEPTR 311 LA.PRINTCOUNT 302 SETFILEPTR 287 SHOULDNT 279 \PARSENMSGS1 244 PRIN3 235 LA.PRINTCOUNT 228 PRIN1 221 PRIN1 211 TERPRI 186 LA.PRINTCOUNT 180 SHOULDNT 167 SETFILEPTR 154 \PARSENMSGS1 126 \PARSENMSGS1 113 LA.PRINTSTAMP 108 SETFILEPTR 102 HELP 94 ASKUSER 91 CONCAT 73 \PARSENMSGS1 65 ERROR 50 GETEOFPTR 43 FULLNAME 27 OPENSTREAM) (97 Y 82 N 18 OLD 15 BOTH) ( 386 " is a well-formed message file" 334 "Patching length field of header in message number " 258 "Msg and/or header is too short" 250 "Msg length in header is incorrect" 240 "UU " 216 "Rebuilding header for message number " 202 "Can't parse msg header" 159 "No more messages" 88 " -- Alleged mail folder doesn't begin with a correct mail header -- are you sure you want to go on? " 60 "File too small to be a mail folder" 23 ((ENDOFSTREAMOP \LAFITE.EOF)) 10 (PROGN (CLOSEF? OLDVALUE))) \MAILSCAVENGE.INTERNAL D4 (P 1 SI*RESETFORMS* P 0 LISPXHIST I 2 REALNAME I 1 ERRORMSGSTREAM I 0 FILE F 2 LISPXHIST) Rg  (19 CLVALUES-LIST 15 SIRESETUNWIND 12 \MVLIST 9 \MAILSCAVENGE.INTERNALA0001) (6 SIRESETUNWIND) () \PARSENMSGS1 D4 (L (2 SCANFLG 1 N 0 FOLDERFILEPTR) F 9 FOLDERSTRM F 10 HEADERLENGTH)  Aj`W@d @W og jAW @cIl_mOOm]A_jJ[lؼH*jLoj `WjKl Zoj B`WLM Z}oK WK W &W ^W cW W W W l oK NWILoK KNZdMWJ W hIoK OHkmԱ/J(267 \MSGERROR 253 LA.READSTAMP 247 SETFILEPTR 230 \MSGERROR 212 \MSGERROR 181 LA.READCOUNT 173 LA.READCOUNT 166 LA.READSTAMP 160 SETFILEPTR 153 \MSGERROR 142 FFILEPOS 128 \MSGERROR 115 BFILEPOS 101 \MSGERROR 79 BLOCK 44 GETEOFPTR 35 \MSGERROR 24 OPENP 17 BLOCK 13 FILEPOS) (135 *START*PAT 105 *START*PAT 32 CLOSED 6 *START*PAT) ( 263 "Msg length in header is incorrect" 226 "Msg and/or header is too short" 208 "Can't parse msg header" 149 "No more messages" 124 "No *start* at beginning of folder?" 97 "No more messages" 29 "No more messages") \MSGERROR D4 (L (1 N 0 X) F 0 NOERRORFLG F 1 FOLDERSTRM) $@ @ P@@gQ gAh (33 ERROR 21 FULLNAME 8 \ILLEGAL.ARG 3 STRINGP) (24 FILEPTR 17 FULLNAME) () SEEMSG D4 (L (3 OUTFILE 2 SCANFLG) I 1 FOLDERFILEPTR I 0 FILE) ;B @Al @ 3 o @ 3 o @CAIAH h(55 COPYBYTES 41 SHOULDNT 30 RATOM 26 SHOULDNT 15 RATOM 11 SETFILEPTR 3 \MSGPOKE.INIT) NIL ( 38 "Can't parse msgheader length" 23 "Can't parse msg length") \MSGPOKE.INIT D4 (L (0 SCANFORIT) F 2 FILE F 3 FOLDERFILEPTR) `Rg l Rh S3 R `RHd YIdHj,@`RHR l `RjH So hc(88 ERROR 78 BFILEPOS 67 FFILEPOS 61 GETEOFPTR 38 FILEPOS 26 GETFILEPTR 16 ERRORX 6 OPENP) (72 *START*PAT 55 *START*PAT 32 *START*PAT 3 INPUT) ( 85 " - INDEX IS NOT AT BEGINNING OF A MSG") (PRETTYCOMPRINT MAILSCAVENGECOMS) (RPAQQ MAILSCAVENGECOMS ((FNS MAILSCAVENGE MAILSCAVENGE.IN.PLACE \MAILSCAVENGE.INTERNAL \PARSENMSGS1 \MSGERROR SEEMSG \MSGPOKE.INIT) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS *MSGHEADER*LENGTH) ( GLOBALVARS *START*PAT) (LOCALVARS . T)) (VARS (*START*PAT "*start* ")) (FILES (SYSLOAD FROM LISPUSERS) BSEARCH))) (RPAQ *START*PAT "*start* ") (FILESLOAD (SYSLOAD FROM LISPUSERS) BSEARCH) (PUTPROPS MAILSCAVENGE COPYRIGHT ("Xerox Corporation" 1985)) NIL