(FILECREATED "17-Jan-85 18:15:07" ("compiled on " {ERIS}MAILREADER>PROSE-LAFITE-MESSAGES.;4) "20-Dec-84 12:07:22" recompiled changes: \LAFITE.GETNEWMAIL1 in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "17-Jan-85 18:14:12" {ERIS}MAILREADER>PROSE-LAFITE-MESSAGES.;4 23252 changes to: (FNS \LAFITE.GETNEWMAIL1) previous date: "15-Jan-85 13:47:07" {ERIS}MAILREADER>PROSE-LAFITE-MESSAGES.;3) LAB.PROMPTPRINT D1 (P 6 I P 4 I P 2 WINDOW P 1 MAILFOLDER P 0 FOLDER&ARGS) Re@I*Zd HlLdKHlNdMIkkjhhaJ Lk\a Nk^(111Q SAYT 76Q PRIN3 22Q CLEARW) (7 MAILFOLDER) () \LAFITE.GETNEWMAIL1 D1 (P 3 #OFMESSAGES P 2 MAILBOX P 1 OPENRESULT P 0 MESSAGELIST I 3 REPORTWINDOW I 2 OUTSTREAM I 1 MAILFOLDER I 0 MAILSERVER) p@@``@lLYdddZdgoC o hJg A Ig [6@JBA XHA @J`lMoC KCH Hdkoo CK oC @JhlNhoC IoC IC oC (353Q PRIN1 342Q PRIN1 333Q PRIN1 316Q PRIN1 265Q PRIN1 252Q \LAFITE.GETNEWMAIL# 244Q SAYT 241Q CONCAT 217Q \LAFITE.GETNEWMAIL# 214Q LENGTH 205Q PRIN1 153Q \LAFITE.CLOSE.FOLDER 144Q \LAFITE.RETRIEVEMESSAGES 132Q LISTGET 121Q UNSELECTALLMESSAGES 114Q PRINTLAFITESTATUS 73Q SAYT 63Q PRIN1) (167Q LAFITEFLUSHMAILFLG 127Q #OFMESSAGES 111Q NEW.MAIL 47Q EMPTY 21Q \LAFITEUSERDATA 15Q \LAFITEUSERDATA) ( 347Q ")" 327Q " (" 312Q " not responding" 261Q " retrieval aborted" 236Q " messages. " 231Q " message. " 201Q " done" 70Q " empty. " 57Q " empty") BADMAILFILE.FLAGBYTE D1 (I 1 MSG# I 0 MAILFOLDER F 1 .P2) ;@*oH AH oH @*oQAo  h(67Q SAYT 64Q CONCAT 37Q PRIN1 26Q PRIN2 20Q PRIN1) (44Q MAILFOLDER 3 MAILFOLDER) ( 60Q ": bad flag byte. " 52Q " at msg " 33Q ": bad flag byte] " 14Q " [at msg ") \LAFITE.GETNEWMAIL D1 (P 6 NTHTIME P 5 MESSAGELIST P 4 MAILSERVER P 2 FIRSTMESSAGE P 1 OUTSTREAM P 0 REPORTWINDOW I 1 WINDOW I 0 MAILFOLDER) @*@g oH o 1K:gH J @kh@ @J `g` NoH i^oL LH oH L@IH ]@M JMK[}(251Q LAB.APPENDMESSAGES 242Q \LAFITE.GETNEWMAIL1 232Q PRIN1 221Q PRIN1 210Q SAYT 205Q CONCAT 166Q PRIN1 147Q PLAYTUNE 133Q MACHINETYPE 122Q LAB.EXPOSEMESSAGE 114Q SELECTMESSAGE 72Q PRIN1 44Q P.CHUNK 34Q PRIN1 22Q \LAFITE.GET.USER.DATA 14Q \LAFITE.OPEN.FOLDER) (144Q LAFITEGETMAILTUNE 136Q DANDELION 126Q LAFITEGETMAILTUNE 102Q MAILFOLDER 66Q %. 11Q APPEND 3 MAILFOLDER) ( 226Q " .." 176Q "Fetching mail from " 162Q "; " 41Q "No mailboxes known" 30Q "No mailboxes known") BADMAILFILE D1 (P 0 BROWSERWINDOW I 5 NOERROR I 4 LASTMSG I 3 ERRSTR I 2 MSG# I 1 HERE I 0 MAILFOLDER) E`@$H oH @H oH BH oH AH oH CH o D[H oH H oH DH H oH D H H oH D H ` oC h(312Q HELP 274Q PRIN1 261Q PRIN1 250Q TERPRI 243Q PRIN1 230Q PRIN1 217Q TERPRI 212Q PRIN1 177Q PRIN1 166Q TERPRI 161Q PRIN1 150Q TERPRI 140Q P.CHUNK 130Q PRIN1 122Q PRIN1 111Q PRIN2 103Q PRIN1 72Q PRIN2 64Q PRIN1 53Q PRIN1 40Q PRIN1 27Q CLEARW) (300Q LAFITEDEBUGFLG 266Q LAFITEMSG 235Q LAFITEMSG 204Q LAFITEMSG 45Q MAILFOLDER 16Q MAILFOLDER 4 LAFITEDEBUGFLG) ( 306Q "Mail file parsing error" 255Q "Subject: " 224Q "From: " 173Q "Date: " 155Q "Last message was:" 135Q "Cannot parse file. Please have someone scavenge your mail file. " 116Q " because: " 77Q ", byte " 60Q " near message " 34Q "Cannot parse file ") VERIFYFAILED D1 (I 0 ERRMSG F 0 MSG#) 'oPo g oPo @ (44Q HELP 40Q CONCAT 24Q RETFROM 16Q P.CHUNK 13Q CONCAT) (21Q P.CONTROLLER) ( 35Q ": " 30Q "Error in message " 10Q ": " 3 "Error in message ") READTOCFILEA0001 D1 (NAME ERRORSET L (0 NIL) P 22Q LENGTH P 21Q MSG P 20Q MESSAGESTART P 17Q START P 16Q I P 13Q OLDTOCFORMAT P 12Q TOCVERSION P 11Q READMORE P 10Q LASTMSG# P 7 EXTRAMESSAGES P 6 MESSAGES P 5 FOLDEREOFPTR P 4 END P 3 MSGCOUNTGUESS P 2 FOLDERSTREAM P 1 TOCSTREAM F 23Q MAILFOLDER F 24Q RESETVARSLST F 25Q TOCFILE F 26Q RESETY) .W&*oH o W&kW*ggho W&g j gIhhhW(c(Igg Ij I I n*I I _`!OlHW&*_oO i_I I I I \J ]j/JL J o Wo Mi_MLn[KI I _[ OkI j$OOI _$djI I ؆I I _$`dOdO dO$_"O O$_ O"I OO"I O"I O"I O"Il O"I  O"I  O"I O"jOI _NOO"*Ok_DW&O`Oj O%W&JMLOki _?NOOkO_ W&NW&O W&M0W&kic,ioi (1052Q BADTOCFILE 765Q \LAFITE.ADDMESSAGES.TO.ARRAY 741Q PARSEMAILFOLDER1 644Q GETFILEPTR 625Q LA.READSHORTSTRING 611Q LA.READSHORTSTRING 575Q LA.READSHORTSTRING 561Q LA.READSTRING 366Q GETFILEPTR 356Q \LAFITE.MAKE.MSGARRAY 320Q BADTOCFILE 306Q BADTOCFILE 275Q LA.READSTAMP 270Q SETFILEPTR 255Q GETEOFPTR 226Q PRIN1 142Q SETFILEPTR 134Q WHENCLOSE 75Q \LAFITE.OPEN.FOLDER 65Q OPENSTREAM 31Q SAYT 21Q PRIN1) (1027Q MAILFOLDER 1016Q MAILFOLDER 1004Q MAILFOLDER 773Q MAILFOLDER 706Q LAFITEVERSION# 701Q MAILFOLDER 635Q LAFITEMSG 621Q LAFITEMSG 605Q LAFITEMSG 571Q LAFITEMSG 553Q LAFITEMSG 540Q LAFITEMSG 503Q LAFITEMSG 440Q LAFITEMSGTYPE# 210Q MAILFOLDER 171Q LAFITEVERSION# 131Q NO 126Q CLOSEALL 104Q CLOSEF? 72Q INPUT 54Q OLD 51Q INPUT 37Q MAILFOLDER 4 MAILFOLDER) ( 1046Q "Couldn't parse new messages, trying from scratch..." 315Q "Format obsolete, discarding..." 303Q "It does not agree with mail folder..." 221Q "(older format)" 61Q ((ENDOFSTREAMOP \LAFITE.TOCEOF)) 26Q "Reading table of contents. " 15Q "Reading table of contents...") READTOCFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 TOCFILE I 0 MAILFOLDER F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q READTOCFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (READTOCFILEA0001)) VERIFYMAILFOLDERA0001 D1 (NAME ERRORSET P 11Q MSG P 10Q MARK P 7 STAMPCOUNT P 6 CHCOUNT P 5 LASTMSG# P 4 MESSAGES P 3 HERE P 2 MSG# P 1 END P 0 STREAM F 12Q MAILFOLDER F 13Q P.CONTROLLER F 14Q RESETY) b W hi  Wgg X YW0jo W oIh kjWW D IKHK JMoLJ(_KjoH oH ^NOjoH _OOjozOjrH dlUhlDigOjhoGH dlUhlSigO jho H _OO jo KNػJkغKIjo ic(531Q VERIFYFAILED 500Q VERIFYFAILED 257Q LA.READCOUNT 226Q LA.READCOUNT 212Q LA.READSTAMP 144Q SETFILEPTR 104Q HELP 71Q RETFROM 62Q P.CHUNK 36Q GETEOFPTR 32Q \LAFITE.OPEN.FOLDER 13Q OBTAIN.MONITORLOCK) (463Q LAFITEMSG 450Q LAFITEMSG 420Q LAFITEMSG 413Q ? 351Q LAFITEMSG 344Q ? 312Q LAFITEMSG 271Q LAFITEMSG 236Q LAFITEMSG 170Q LAFITEMSG 123Q MAILFOLDER 114Q MAILFOLDER 44Q MAILFOLDER 27Q OLD 24Q INPUT 4 MAILFOLDER) ( 526Q "Last message too short" 475Q "Disagreement in mark byte" 435Q "Disagreement in seen mark" 366Q "Disagreement in delete mark" 303Q "Bad Message Length" 250Q "Bad Message Length" 217Q "Bad Stamp" 203Q "Message beginning pointer wrong" 155Q "More messages in file than in core" 76Q "Length of file does not match Folder's idea of length" 57Q "Length of file does not match Folder's idea of length") VERIFYMAILFOLDER D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 MAILFOLDER F 3 LISPXHIST F 4 RESETVARSLST) H@` @ @g @l@ bS!Tog hgZ JI(103Q ERROR! 76Q RESETRESTORE 64Q VERIFYMAILFOLDERA0001 37Q \LAFITE.GETMAILFOLDER 23Q GETWINDOWUSERPROP 13Q WINDOWP) (72Q ERROR 61Q INTERNAL 42Q MAILFOLDER 20Q MAILFOLDER 4 MAILFOLDERTYPE#) ( 56Q (VERIFYMAILFOLDERA0001)) \LAFITE.VERIFYMSG D1 (P 0 STREAM I 1 MAILFOLDER I 0 MSG) AH@ H lo@o@oA o A o  -g %o@oA o @ h(202Q HELP 176Q CONCAT 166Q TOCFILENAME 135Q RETFROM 125Q P.CHUNK 122Q CONCAT 112Q TOCFILENAME 101Q CONCAT 71Q TOCFILENAME 26Q LA.READSTAMP 22Q SETFILEPTR) (161Q MAILFOLDER 147Q LAFITEMSG 132Q P.CONTROLLER 105Q MAILFOLDER 64Q MAILFOLDER 52Q LAFITEMSG 40Q LAFITEMSG 15Q LAFITEMSG 3 MAILFOLDER) ( 172Q ", then browse this folder again to reparse." 155Q ". Lafite's parse of the file is incorrect at this point. Recommendation: close browser with option Don't Update, delete " 143Q "Inconsistency in table of contents at message number " 116Q ", then browse this folder again to reparse." 75Q ", then browse this folder again to reparse." 60Q ". Lafite's parse of the file is incorrect at this point. Recommendation: close browser with option Don't Update, delete " 46Q "Inconsistency in table of contents at message number " 34Q "Inconsistency in table of contents at message number ") PARSEMAILFOLDER1 D1 (P 14Q LASTMSG P 13Q DELETED P 12Q STARTFLG P 11Q SEEN P 10Q MARK P 7 STAMPCOUNT P 6 CHCOUNT P 2 HERE P 1 MSG# I 5 NOERROR I 4 FIRSTMSG# I 3 START I 2 EOFPTR I 1 STREAM I 0 MAILFOLDER) @*oH CjooH gH oCjoo @kkjhDCBJAJ A A ^A _ON@JIoOE A dlUhlDi@I _A dlUhdlSilNi@I _A _`dIdJdNO`O_dOdOkj dOkjdO_d@ JNغLMh\Ikع2M&JBjL@oOoOOJB_Oo OOkkjkjOK(541Q LAB.PROMPTPRINT 421Q LAFITE.PARSE.MSG.FOR.TOC 277Q BADMAILFILE.FLAGBYTE 236Q BADMAILFILE.FLAGBYTE 210Q BADMAILFILE 162Q LA.READCOUNT 154Q LA.READCOUNT 146Q LA.READSTAMP 141Q SETFILEPTR 102Q SAYT 77Q CONCAT 52Q PRIN1 42Q PRIN1 20Q PRIN1) (601Q LAFITEMSG 554Q LAFITEMSG 547Q LAFITEMSG 514Q LAFITEMSG 507Q LAFITEMSG 474Q LAFITEMSG 340Q UNSEENMARK 312Q LAFITEMSGTYPE# 106Q MAILFOLDER 46Q ... 3 MAILFOLDER) ( 535Q " bytes. " 502Q " to " 467Q "Warning: last message truncated from " 201Q "Bad header or previous message length is incorrect" 74Q "additional msgs. " 67Q "folder" 57Q "Parsing " 36Q "additional msgs" 31Q "folder" 14Q "Parsing ") LOADMAILFOLDER D1 (P 1 CONTENTSFILE P 0 MAILFILE I 0 MAILFOLDER) @AH Y @I @ \o @*oJ @@ k@NMON(jN iNk^hkj[0Kjh@@*oL h(206Q PRIN1 63Q PRIN1 44Q SAYT 33Q PARSEMAILFOLDER 26Q READTOCFILE 20Q INFILEP 14Q TOCFILENAME) (173Q MAILFOLDER 124Q LAFITEMSG 103Q MAILFOLDER 74Q MAILFOLDER 70Q MAILFOLDER 50Q MAILFOLDER 3 MAILFOLDER) ( 202Q "Failed." 57Q " done." 41Q " done.") (PRETTYCOMPRINT PROSE-LAFITE-MESSAGESCOMS) (RPAQQ PROSE-LAFITE-MESSAGESCOMS ((FNS LAB.PROMPTPRINT \LAFITE.GETNEWMAIL1 BADMAILFILE.FLAGBYTE \LAFITE.GETNEWMAIL BADMAILFILE VERIFYFAILED READTOCFILE VERIFYMAILFOLDER \LAFITE.VERIFYMSG PARSEMAILFOLDER1 LOADMAILFOLDER) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA LAB.PROMPTPRINT))))) (PUTPROPS PROSE-LAFITE-MESSAGES COPYRIGHT ("Xerox Corporation" 1985)) NIL