(FILECREATED "17-Aug-84 01:35:51" ("compiled on " {ERIS}MAILOPS.;7) "14-Aug-84 21:44:11" recompiled changes: \MSGPOKE.INIT \PARSENMSGS1 \MSGERROR MAILSCAVENGE MAILSCAVENGE.IN.PLACE in "INTERLISP-D 15-Aug-84 ..." dated "15-Aug-84 20:42:17") (FILECREATED "17-Aug-84 01:34:29" {ERIS}MAILOPS.;7 11978 changes to: (FNS MAILSCAVENGE MAILSCAVENGE.IN.PLACE \MSGPOKE.INIT \PARSENMSGS1 \MSGERROR) previous date: "15-Aug-84 01:24:36" {ERIS}MAILOPS.;2) SEEMSG D1 (L (3 OUTFILE 2 SCANFLG) I 1 FOLDERFILEPTR I 0 FOLDER) CB @AlØ @ d¡µ o @ d¡µ o @CAIØAHØh(77Q COPYBYTES 61Q SHOULDNT 42Q RATOM 36Q SHOULDNT 17Q RATOM 13Q SETFILEPTR 3 \MSGPOKE.INIT) NIL ( 56Q "Can't parse msgheader length" 33Q "Can't parse msg length") \MSGPOKE.INIT D1 (L (0 SCANFORIT) F 2 FOLDER F 3 FOLDERFILEPTR) [Rg cSd¡µd `RHdY˜IdHÙjð³,¿@²`RHR lÙµ`RjHµSo hc°ü(123Q ERROR 111Q BFILEPOS 76Q FFILEPOS 70Q GETEOFPTR 41Q FILEPOS 25Q GETFILEPTR 6 GETSTREAM) (103Q *START*PAT 62Q *START*PAT 33Q *START*PAT 3 INPUT) ( 120Q " - INDEX IS NOT AT BEGINNING OF A MSG") PARSENMSGS D1 (L (3 SCANFLG 2 N) I 4 NOERRORFLG I 1 FOLDERFILEPTR I 0 FOLDER) Bd¡£kb¿CµDµAhð ABC(35Q \PARSENMSGS1 27Q \MSGPOKE.INIT) NIL () \PARSENMSGS1A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FOLDER) P h(3 RATOM) NIL () \PARSENMSGS1A0003 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FOLDER) P h(3 RATOM) NIL () \PARSENMSGS1 D1 (L (2 SCANFLG 1 N) I 0 FOLDERFILEPTR F 7 FOLDER) Adjð²¿`W@d”@AjAñW lÙmÿHñ¡Hmÿ@o%¿Hjð’±ÛI²#Kjð“L±À`WjKlÙ[’±²o±§B²`W@lØJ[’±–L±ŽWK^lØ ¿o d¡]²3lWNlØ ¿o d¡ð²gWNlØ ¿W ð¥o°:@MØ[dJýñ²!¿`WKd²`WNlØKlÙ«KJñŸKW ñ—o ¿HI‘kmÿØ¸±ÿ K(415Q \MSGERROR 404Q GETEOFPTR 371Q FFILEPOS 347Q FILEPOS 312Q READC 304Q SETFILEPTR 256Q \PARSENMSGS1A0003 246Q SETFILEPTR 221Q \PARSENMSGS1A0002 211Q SETFILEPTR 166Q FFILEPOS 132Q BFILEPOS 72Q BLOCK 37Q GETEOFPTR 24Q BLOCK 20Q FILEPOS) (354Q *START*PAT 340Q *START*PAT 273Q % 154Q *START*PAT 120Q *START*PAT 11Q *START*PAT) ( 412Q "Msg length in header is incorrect" 320Q "Can't parse msg header" 253Q (DUMMY.FOR.ERRORSET) 216Q (DUMMY.FOR.ERRORSET) 143Q "No *start* at beginning of folder?" 64Q "No more messages") \MSGERROR D1 (L (0 X) F 0 NOERRORFLG F 1 FOLDER) @¤@ ¿P—g@ @Q (32Q ERROR 27Q FULLNAME 21Q RETFROM 7 \ILLEGAL.ARG) (15Q \PARSENMSGS1) () MAILSCAVENGEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 7 \INTERRUPTABLE F 10Q TEMPHOST F 11Q RESETVARSLST F 12Q FOLDER F 13Q RESETY F 14Q ERRORMSGSTREAM) BgWgg aHµ Wo ¿H ˜Ho ¿Wµ/Hg µgºgJgoJkhdd` dkð²/¿h°< “W°ÙWg ªWo °ÂWg °¸lð›Jk gðhð€i´ Hg ggghgH ½oMg \hWc¿L ½oHg [hWc¿KL ¿K ¿L ¿MW ¹ghgH¾ldgoHogðžH ¿MN …MN ¿M ¿Ici(471Q DELFILE 464Q COPYFILE 455Q COPYFILE 447Q DELFILE 433Q ASKUSER 430Q CONCAT 406Q PACKFILENAME 372Q MAILSCAVENGE.IN.PLACE 363Q CLOSEF? 356Q CLOSEF? 351Q COPYBYTES 332Q OPENSTREAM 316Q FULLNAME 300Q OPENSTREAM 264Q PACKFILENAME 242Q FILENAMEFIELD 221Q NTHCHAR 206Q FILENAMEFIELD 174Q ERROR 162Q HOSTNAMEP 157Q FILENAMEFIELD 142Q HOSTNAMEP 126Q STRPOS 71Q FILENAMEFIELD 55Q ERROR 44Q OPENP 37Q ERROR 20Q FINDFILE 15Q PACKFILENAME) (436Q Y 414Q N 402Q BODY 376Q VERSION 327Q INPUT 275Q OUTPUT 257Q BODY 253Q VERSION 250Q SCAVENGE$ 245Q EXTENSION 237Q DIRECTORY 224Q { 203Q HOST 154Q HOST 122Q UPPERCASEARRAY 106Q DIRECTORY 102Q HOST 76Q DSK 66Q HOST 12Q MAIL 7 EXTENSION 2 BODY) ( 425Q " with the newly-scavenged version? " 420Q "Do you want to replace the mail file " 323Q (PROGN (CLOSEF? OLDVALUE)) 271Q (PROGN (CLOSEF? OLDVALUE) (DELFILE (FULLNAME OLDVALUE))) 171Q "Non-existent host" 112Q "DSK" 52Q "File is already open" 34Q "FILE NOT FOUND") MAILSCAVENGE D1 (P 1 RESETY P 0 LISPXHIST I 2 TEMPHOST I 1 ERRORMSGSTREAM I 0 FOLDER F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q MAILSCAVENGEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) MAILSCAVENGE.IN.PLACEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 NOERRORFLG F 11Q FOLDER F 12Q ERRORMSGSTREAM F 13Q RESETVARSLST F 14Q RESETY) p ijdkgWgg ELµ Wo ¿L ˜Lo ¿oLg chWc¿W ]lñ©Lo °4jdijð³+ldgLo gð£¿Wj ¿`W ¿MJñ¢±ÊIk Zdd¡˜¿KkØ»JY°ã_¿IlØ^kiºWN ¿oJdd¡¬o ‘M‚IÙW¿i_¿Odo ²¿W ¿oW ¿KW °Fo ²:W ¿oW ¿KW ¿l W ¿olW¿oW ‚¿Jd¡’±ÿ5O•W ¿gci(545Q TERPRI 521Q SHOULDNT 515Q PRIN3 503Q PRINTNUM 467Q PRIN3 462Q CHARACTER 454Q PRIN1 445Q PRIN1 433Q TERPRI 424Q EQUAL 413Q PRIN1 404Q PRIN1 372Q TERPRI 362Q EQUAL 343Q PRINTNUM 334Q SHOULDNT 326Q EQUAL 301Q SETFILEPTR 272Q \PARSENMSGS1 233Q \PARSENMSGS1 216Q PRIN3 205Q SETFILEPTR 176Q HELP 166Q ASKUSER 163Q CONCAT 142Q \PARSENMSGS1 132Q ERROR 115Q GETEOFPTR 75Q OPENSTREAM 61Q ERROR 50Q OPENP 43Q ERROR 24Q FINDFILE 21Q PACKFILENAME) (552Q OK 211Q *START*PAT 171Q Y 153Q N 72Q BOTH 16Q MAIL 13Q EXTENSION 6 BODY) ( 510Q " UU " 474Q (FIX 5 12Q T) 440Q "Rebuilding header for message number " 421Q "Can't parse msg header" 377Q "Patching length field of header in message number " 357Q "Msg length in header is incorrect" 323Q "No more messages" 306Q (FIX 5 12Q T) 160Q " -- Alleged mail folder doesn't begin with a correct mail header -- are you sure you want to go on? " 127Q "File too small to be a mail folder" 66Q (PROGN (CLOSEF? OLDVALUE)) 56Q "File is already open" 40Q "FILE NOT FOUND") MAILSCAVENGE.IN.PLACE D1 (P 1 RESETY P 0 LISPXHIST I 1 ERRORMSGSTREAM I 0 FOLDER F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q MAILSCAVENGE.IN.PLACEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) (PRETTYCOMPRINT MAILOPSCOMS) (RPAQQ MAILOPSCOMS ((FNS SEEMSG \MSGPOKE.INIT PARSENMSGS \PARSENMSGS1 \MSGERROR MAILSCAVENGE MAILSCAVENGE.IN.PLACE) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS *MSGLENGTH*FIELDWIDTH *MSGHEADER*LENGTH)) (VARS (*START*PAT "*start* ")) (GLOBALVARS *START*PAT) (LOCALVARS . T) (FILES (SYSLOAD FROM LISPUSERS) BSEARCH))) (RPAQ *START*PAT "*start* ") (FILESLOAD (SYSLOAD FROM LISPUSERS) BSEARCH) (PUTPROPS MAILOPS COPYRIGHT ("Xerox Corporation" 1984)) NIL