(FILECREATED "12-Mar-85 00:57:43" ("compiled on " {ERIS}LAFITEMAIL.;20) " 7-Mar-85 12:37:06" recompiled exprs: \LAFITE.HANDLE.BIG.MESSAGE \LAFITE.GET.USER.DATA \LAFITE.WAKE.WATCHER POLLNEWMAIL PRINTLAFITESTATUS in "INTERLISP-D 7-Mar-85 ..." dated " 7-Mar-85 13:57:43") (FILECREATED "12-Mar-85 00:52:27" {ERIS}LAFITEMAIL.;20 57280 changes to: (FNS \LAFITE.GET.USER.DATA \LAFITE.HANDLE.BIG.MESSAGE \LAFITE.WAKE.WATCHER POLLNEWMAIL PRINTLAFITESTATUS) previous date: "24-Feb-85 22:49:29" {ERIS}LAFITEMAIL.;18) \LAFITE.GETMAIL D1 (I 3 MENU I 2 ITEM I 1 MAILFILEDATA I 0 WINDOW) g@ddidd g@hAddidd gAhBddidd gBhCddidd gChhg (176Q \LAFITE.PROCESS) (173Q LAFITEGETMAIL 156Q QUOTE 122Q QUOTE 66Q QUOTE 32Q QUOTE 2 \LAFITE.GETMAIL.PROC) () \LAFITE.GETMAIL.PROCA0001 D1 (NAME ERRORSET F 0 MAILFOLDER F 1 ITEM F 2 MENU F 3 RESETY F 4 WINDOW) 'QR P hi P `hi PT ci(41Q \LAFITE.GETNEWMAIL 33Q OBTAIN.MONITORLOCK 22Q \LAFITE.MAYBE.CLEAR.PROMPT 15Q OBTAIN.MONITORLOCK 4 LA.RESETSHADE) (26Q \LAFITE.MAILSERVERLOCK) () \LAFITE.GETMAIL.PROC D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 MENU I 2 ITEM I 1 MAILFOLDER I 0 WINDOW F 3 LISPXHIST F 4 RESETVARSLST) &S!Tog hgZ J(43Q \LAFITE.WAKE.WATCHER 36Q ERROR! 30Q RESETRESTORE 16Q \LAFITE.GETMAIL.PROCA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LAFITE.GETMAIL.PROCA0001)) \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 11K.gH J@J `g` @khNoH i^LH oH L@IHJ ]!@M JMZ@ `@Ml`K[(223Q SELECTMESSAGE 210Q LAB.APPENDMESSAGES 200Q \LAFITE.GETNEWMAIL1 166Q PRIN1 155Q PRIN1 141Q PRIN1 115Q PLAYTUNE 102Q MACHINETYPE 72Q LAB.EXPOSEMESSAGE 61Q PRIN1 34Q PRIN1 22Q \LAFITE.GET.USER.DATA 14Q \LAFITE.OPEN.FOLDER) (237Q LAFITE.AFTER.GETMAIL.FN 227Q LAFITE.AFTER.GETMAIL.FN 112Q LAFITEGETMAILTUNE 105Q DANDELION 76Q LAFITEGETMAILTUNE 55Q %. 11Q APPEND 3 MAILFOLDER) ( 162Q " .." 135Q "; " 30Q "No mailboxes known") \LAFITE.GETNEWMAIL1 D1 (P 3 #OFMESSAGES P 2 MAILBOX P 1 OPENRESULT P 0 MESSAGELIST I 4 NTHTIME I 3 REPORTWINDOW I 2 OUTSTREAM I 1 MAILFOLDER I 0 MAILSERVER) p@@``@lLYdddZdgoC hpJmDg A Ig [CK @JBA X,A @J`lMoC KCH HoC @JhlNhoC IoC IC oC (311Q PRIN1 300Q PRIN1 271Q PRIN1 254Q PRIN1 223Q PRIN1 211Q \LAFITE.GETNEWMAIL# 206Q LENGTH 177Q PRIN1 145Q \LAFITE.CLOSE.FOLDER 136Q \LAFITE.RETRIEVEMESSAGES 126Q \LAFITE.GETNEWMAIL# 117Q LISTGET 106Q UNSELECTALLMESSAGES 101Q PRINTLAFITESTATUS 62Q PRIN1) (161Q LAFITEFLUSHMAILFLG 114Q #OFMESSAGES 76Q NEW.MAIL 47Q EMPTY 21Q \LAFITEUSERDATA 15Q \LAFITEUSERDATA) ( 305Q ")" 265Q " (" 250Q " not responding" 217Q " retrieval aborted" 173Q " done" 56Q " empty") \LAFITE.GETNEWMAIL# D1 (I 1 #OFMESSAGES I 0 REPORTWINDOW) (o@ A@ Akoo@ o@ (45Q PRIN1 35Q PRIN1 14Q PRIN1 7 PRIN1) NIL ( 41Q ")" 31Q " msgs" 24Q " msg" 3 " (") \LAFITE.RETRIEVEMESSAGESA0001 D1 (NAME ERRORSET P 10Q EXTRAMESSAGES P 7 MSG P 6 NEXTMESSAGERESULT P 5 MSGLENGTH P 4 LENGTHPOS P 3 STARTPOS P 2 ENDPOS P 1 RETRIEVEFN P 0 NEXTMESSAGEFN F 11Q OUTSTREAM F 12Q MESSAGELIST F 13Q MAILSERVER F 14Q MAILBOX F 15Q ORIGEOF F 16Q MAILFOLDER) WWWcWkH^iNg WJ[ KW jo W W oW Wl WWlIW ZKٽ`d`dKdldM_MoWWOM _OW WL MW OWcOGOdWch_1(276Q LA.PRINTCOUNT 267Q SETFILEPTR 260Q GETEOFPTR 243Q \LAFITE.HANDLE.BIG.MESSAGE 156Q GETFILEPTR 136Q BOUT 126Q PRIN3 114Q GETFILEPTR 106Q LA.PRINTSTAMP 100Q HELP 65Q GETEOFPTR 56Q SETFILEPTR 45Q LISTGET) (172Q UNSEENMARK 165Q LAFITEMSGTYPE# 42Q DELETED) ( 226Q 303237Q 121Q "00000 00024 UU " 75Q "Confusion in new mail fileptr") \LAFITE.RETRIEVEMESSAGES D1 (P 2 GOODEOFPTR P 1 MESSAGELIST P 0 ORIGEOF I 3 MAILFOLDER I 2 OUTSTREAM I 1 MAILBOX I 0 MAILSERVER) 8B !HZoi I BJ BgJ Ci Cg JHh(57Q \LAFITE.OPEN.FOLDER 50Q \LAFITE.CLOSE.FOLDER 43Q SETFILEINFO 33Q SETFILEPTR 25Q REVERSE 20Q \LAFITE.RETRIEVEMESSAGESA0001 3 GETEOFPTR) (54Q APPEND 37Q LENGTH) ( 14Q (\LAFITE.RETRIEVEMESSAGESA0001)) \LAFITE.HANDLE.BIG.MESSAGE D1 (P 20Q X P 17Q PAIR P 13Q MSGFIELDS P 12Q HEADERLENGTH P 11Q LENGTHPOS P 10Q NEXTLENGTH P 7 HERE P 6 RESTLENGTH P 5 OUTSTREAMSTART P 4 SPACEPOS P 3 CRPOS P 2 MSGLENGTH P 1 TEMPSTART P 0 TEMPFILE I 3 TOTALLENGTH I 2 MSG I 1 MAILFOLDER I 0 OUTSTREAM) gg j @`BBBB _@Bo Z@HBJ]dCJb BJ@M 0Cjb@ @ _o@ @l @j n@ O AdOdgdgdgȿO@ o@ O@ @ o@ @ @ @ _M_C^O_oHIoO ^O_@O O@ @O HI H@N `d`dMdOdlMOؽINعCNb_OQOh__dgdgdgHO$dO@ o@ O @ @ ܱO&_O(664Q TERPRI 657Q PRIN1 650Q PRIN1 637Q PRIN1 471Q COPYBYTES 462Q SETFILEPTR 454Q SETFILEPTR 445Q LA.PRINTCOUNT 436Q SETFILEPTR 421Q \LAFITE.FIND.BREAKPOINT 360Q GETFILEPTR 353Q TERPRI 346Q TERPRI 341Q PRIN1 323Q TERPRI 316Q PRIN1 305Q PRIN1 274Q PRIN1 225Q REVERSE 217Q LINELENGTH 207Q POSITION 201Q BOUT 172Q PRIN3 157Q GETFILEPTR 152Q LA.PRINTSTAMP 134Q SETFILEPTR 123Q COPYBYTES 75Q \LAFITE.FIND.BREAKPOINT 55Q LAFITE.PARSE.HEADER 10Q OPENSTREAM) (611Q Reply-to 603Q cc 575Q To 502Q UNSEENMARK 475Q LAFITEMSGTYPE# 257Q From 251Q Sender 243Q Date 104Q LAFITEMSG 64Q LAFITEMSG 47Q LAFITEMSG 41Q LAFITEMSG 32Q LAFITEMSG 24Q LAFITEMSG 20Q \LAPARSE.FULL 5 BOTH 2 {NODIRCORE}) ( 644Q ": " 413Q 303237Q 402Q 303237Q 335Q "Subject: (continuation of previous message)" 301Q ": " 166Q "00000 00024 UU " 72Q 303237Q) \LAFITE.FIND.BREAKPOINT D1 (P 3 SPACEPOS P 2 CRPOS P 1 I I 2 LENGTH I 1 START I 0 STREAM) <@ABl kl"HI@ dl dl I[l IIkٹBJKj(11Q SETFILEPTR) NIL () \LAFITE.GET.USER.DATA D1 NIL (`#` `jHoh(14Q \LAFITE.INFER.MODE) (44Q \LAFITE.AUTHENTICATION.FAILURE 20Q \LAFITEMODE 7 \LAFITEMODE 2 \LAFITEUSERDATA) ( 41Q "No Mode") LAFITECLEARCACHE D1 NIL hNIL (3 \LAFITEUSERDATA) () FULLUSERNAME D1 (P 3 SIMPLENAME P 2 REGISTRY P 1 USER P 0 DOT I 0 UNPACKEDFLG) e`@``@hdi YoI XI`@IIkHk IHk K Ki J Z@KJKoJ (142Q CONCAT 122Q L-CASE 115Q L-CASE 107Q U-CASEP 102Q SUBATOM 72Q SUBSTRING 45Q STRPOS 34Q USERNAME 26Q \INTERNAL/GETPASSWORD) (54Q DEFAULTREGISTRY 16Q \LAFITEUSERDATA 10Q \LAFITEUSERDATA 2 \LAFITEUSERDATA) ( 136Q "." 41Q ".") LAFITEMAILWATCHA0001 D1 (NAME ERRORSET F 0 RESETY) `hi ci(13Q POLLNEWMAIL 7 OBTAIN.MONITORLOCK) (2 \LAFITE.MAILSERVERLOCK) () LAFITEMAILWATCH D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 INTERVAL F 7 LISPXHIST F 10Q RESETVARSLST) W`n`W!Wog hg[ K`HL M ^MNNL\(100Q BLOCK 52Q ERROR! 44Q RESETRESTORE 32Q LAFITEMAILWATCHA0001) (57Q \LAFITEUSERDATA 40Q ERROR 27Q INTERNAL 2 MAILWATCHWAITTIME) ( 24Q (LAFITEMAILWATCHA0001)) \LAFITE.WAKE.WATCHER D1 (P 0 P) &g H`ghhig h(42Q WAKE.PROCESS 35Q \LAFITE.PROCESS 5 FIND.PROCESS) (32Q HARDRESET 23Q LAFITEMAILWATCH 16Q \LAFITE.ACTIVE 2 LAFITEMAILWATCH) () POLLNEWMAIL D1 NIL 6`g%`gg`dg (63Q PRINTLAFITESTATUS 60Q POLLNEWMAIL1 2 \LAFITE.GET.USER.DATA) (50Q NO.MAILBOX 36Q \LAFITEUSERDATA 31Q NO.MODE 24Q MODE.NOT.SET 20Q LAFITEMODELST 13Q NO.MAILSERVER 7 \LAFITEMODE) () POLLNEWMAIL1 D1 (P 5 NOTUPFLG P 4 NOMAILFLG P 3 NEWMAILFLG P 2 POLLNEWMAILVAL P 1 MAILSERVER I 0 MAILSERVERS) _@aH K=gYI``IlNZdii[i\Jgi]HXLMgLM gMg(77Q SHOULDNT) (134Q NONE.UP 125Q SOME.UP 114Q NO.MAIL 67Q ? 35Q \LAFITEUSERDATA 31Q \LAFITEUSERDATA 15Q NEW.MAIL) () PRINTLAFITESTATUS D1 (P 3 REG P 2 X P 1 STR P 0 WINDOW I 0 STATUS) ` 1H @dgdgdgdgdgf`@dg&`g` o` cgoX@dgoJgo?o` 3go@dgogo@oo YhH jHg IH Z!H [KjJK HK jZJkHg H IH @h(424Q PRIN3 417Q MOVETO 413Q GETWINDOWUSERPROP 374Q RESHAPEALLWINDOWS 366Q MAKEWITHINREGION 345Q WINDOWREGION 334Q STRINGWIDTH 327Q GETWINDOWPROP 317Q CLEARW 306Q CONCAT 303Q DATE 223Q CONCAT 143Q CONCAT 124Q PLAYTUNE 111Q MACHINETYPE 5 WINDOWP) (430Q \LAFITE.LAST.STATUS 410Q YPOS 324Q WIDTH 313Q \LAFITE.LAST.STATUS 260Q NONE.UP 245Q SOME.UP 230Q NO.MAIL 220Q \LAFITE.AUTHENTICATION.FAILURE 201Q MODE.NOT.SET 165Q NO.MODE 150Q NO.MAILBOX 134Q \LAFITEUSERDATA 121Q LAFITENEWMAILTUNE 114Q DANDELION 105Q LAFITENEWMAILTUNE 76Q NEW.MAIL 64Q \LAFITE.LAST.STATUS 56Q MODE.NOT.SET 50Q NO.MODE 42Q NO.MAILSERVER 33Q NO.MAILBOX 24Q NEW.MAIL 2 LAFITESTATUSWINDOW) ( 300Q (DATEFORMAT NO.DATE NO.SECONDS CIVILIAN.TIME) 274Q " at " 266Q "No Mail Servers Responding" 254Q "Some Servers Unavailable" 236Q "No New Mail" 215Q "Not Logged In: " 207Q "Mode Not Set" 174Q "No Mail Handler Loaded" 156Q "No Accessible Mail Boxes" 131Q "New Mail for ") PARSEMAILFOLDER D1 (P 2 END P 1 MESSAGES P 0 STREAM I 0 MAILFOLDER) X@gg !H Zdj@HJjk Y0@I)j @I hIkI @J0@j @kkjh@@i h(124Q \LAFITE.CLOSE.FOLDER 65Q \LAFITE.ADDMESSAGES.TO.ARRAY 36Q PARSEMAILFOLDER1 20Q GETEOFPTR 11Q \LAFITE.OPEN.FOLDER) (6 OLD 3 INPUT) () 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) W@*oH CjooH gH @kkjhDCBJAJ A A ^A _ON@JIoOE A dlUhlDi@I _A dlUhdlSilNi@I _A _`dIdJdNO`O_dOdOkj dOkjdO_d@ JNغLMh\Ikع2M&JBj;@oOoOdJB_Oo OdkkjkjOK(472Q LAB.PROMPTPRINT 364Q LAFITE.PARSE.MSG.FOR.TOC 242Q BADMAILFILE.FLAGBYTE 201Q BADMAILFILE.FLAGBYTE 153Q BADMAILFILE 125Q LA.READCOUNT 117Q LA.READCOUNT 111Q LA.READSTAMP 104Q SETFILEPTR 47Q PRIN1 37Q PRIN1 15Q PRIN1) (303Q UNSEENMARK 255Q LAFITEMSGTYPE# 43Q ...) ( 466Q " bytes. " 442Q " to " 432Q "Warning: last message truncated from " 144Q "Bad header or previous message length is incorrect" 33Q "additional msgs" 26Q "folder" 11Q "Parsing ") 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 DRH oH H oH DH H oH D H H oH D H ` oC h(263Q HELP 245Q PRIN1 235Q PRIN1 224Q TERPRI 217Q PRIN1 207Q PRIN1 176Q TERPRI 171Q PRIN1 161Q PRIN1 150Q TERPRI 143Q PRIN1 132Q TERPRI 122Q PRIN1 114Q PRIN1 103Q PRIN2 75Q PRIN1 64Q PRIN2 56Q PRIN1 45Q PRIN1 35Q PRIN1 24Q CLEARW) (251Q LAFITEDEBUGFLG 4 LAFITEDEBUGFLG) ( 257Q "Mail file parsing error" 231Q "Subject: " 203Q "From: " 155Q "Date: " 137Q "Last message was:" 110Q " because: " 71Q ", byte " 52Q " near message " 31Q "Cannot parse file ") BADMAILFILE.FLAGBYTE D1 (I 1 MSG# I 0 MAILFOLDER) @*oH AH oH h(34Q PRIN1 23Q PRIN2 15Q PRIN1) NIL ( 30Q ": bad flag byte] " 11Q " [at msg ") VERIFYMAILFOLDERA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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 RESETY) - W hi  Wgg X YW0joIh kjWW D IKHK JMoLJ(_KjoH oH ^NOjoH _OOjojOjeH dlUhlDigOjho=H dlUhlSigO jhoH _OO jo KNػJkغ(KIjo ic(444Q VERIFYFAILED 413Q VERIFYFAILED 215Q LA.READCOUNT 167Q LA.READCOUNT 153Q LA.READSTAMP 110Q SETFILEPTR 56Q HELP 33Q GETEOFPTR 27Q \LAFITE.OPEN.FOLDER 10Q OBTAIN.MONITORLOCK) (340Q ? 274Q ? 24Q OLD 21Q INPUT) ( 441Q "Last message too short" 410Q "Disagreement in mark byte" 357Q "Disagreement in seen mark" 313Q "Disagreement in delete mark" 236Q "Bad Message Length" 206Q "Bad Message Length" 160Q "Bad Stamp" 144Q "Message beginning pointer wrong" 121Q "More messages in file than in core" 50Q "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 (DUMMY.FOR.ERRORSET)) VERIFYFAILED D1 (I 0 ERRMSG F 0 MSG#) oPo @ (17Q HELP 13Q CONCAT) NIL ( 10Q ": " 3 "Error in message ") READTOCFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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 W&kW*ggho W&g j gIhhhW(c(Igg Ij I I n*I I _`OlEW&*_oO i_I I I I \J ]j/JL J o 3o )i_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_YW&O`Oj O%W&JMLOki _3NOOkO_ W&NW&O W&M0W&kic,ioi (765Q BADTOCFILE 714Q \LAFITE.ADDMESSAGES.TO.ARRAY 670Q PARSEMAILFOLDER1 576Q GETFILEPTR 562Q LA.READSHORTSTRING 551Q LA.READSHORTSTRING 540Q LA.READSHORTSTRING 527Q LA.READSTRING 345Q GETFILEPTR 335Q \LAFITE.MAKE.MSGARRAY 277Q BADTOCFILE 265Q BADTOCFILE 254Q LA.READSTAMP 247Q SETFILEPTR 234Q GETEOFPTR 205Q PRIN1 124Q SETFILEPTR 116Q WHENCLOSE 57Q \LAFITE.OPEN.FOLDER 47Q OPENSTREAM 16Q PRIN1) (635Q LAFITEVERSION# 417Q LAFITEMSGTYPE# 153Q LAFITEVERSION# 113Q NO 110Q CLOSEALL 66Q CLOSEF? 54Q INPUT 36Q OLD 33Q INPUT) ( 761Q "Couldn't parse new messages, trying from scratch..." 274Q "Format obsolete, discarding..." 262Q "It does not agree with mail folder..." 200Q "(older format)" 43Q ((ENDOFSTREAMOP \LAFITE.TOCEOF)) 12Q "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 (DUMMY.FOR.ERRORSET)) BADTOCFILE D1 (P 0 WINDOW I 1 CLEARFLG I 0 ERRMSG F 1 MAILFOLDER F 2 TOCSTREAM) )Q*AH @H `o@ R h(45Q DELFILE 42Q CLOSEF 35Q HELP 21Q PRIN1 13Q CLEARW) (24Q LAFITEDEBUGFLG) ( 31Q "TOC file error") \LAFITE.TOCEOF D1 (I 0 STREAM) go (14Q RETFROM 11Q BADTOCFILE) (2 READTOCFILE) ( 6 "Malformed table of contents, discarding...") LA.READCOUNT D1 (P 1 VAL P 0 CH I 0 STREAM) - @ Xdl9l0HHl0Ijعl ڰHl INIL NIL () LA.PRINTCOUNT D1 (I 1 STREAM I 0 COUNT) o@A Al (16Q BOUT 10Q PRINTNUM) NIL ( 3 (FIX 5 12Q T)) LA.READSTAMP D1 (I 0 STREAM) 8@ l*1@ ls*@ lt#@ la@ lr@ lt@ l*@ l NIL NIL () \LAFITE.VERIFYMSG D1 (P 0 STREAM I 1 MAILFOLDER I 0 MSG) 3AH@ H o@oA o @ h(57Q HELP 53Q CONCAT 43Q TOCFILENAME 20Q LA.READSTAMP 14Q SETFILEPTR) NIL ( 47Q ", then browse this folder again to reparse." 35Q ". Lafite's parse of the file is incorrect at this point. Recommendation: close browser with option Don't Update, delete " 26Q "Inconsistency in table of contents at message number ") LA.MSGFROMMEP D1 (P 0 SENDER I 0 MSG) I@ @`H`` gH`H` gkjY@Ijh@k0(56Q ALPHORDER 50Q USERNAME 26Q ALPHORDER) (61Q EQUAL 53Q UPPERCASEARRAY 40Q \LAFITEUSERDATA 31Q EQUAL 23Q UPPERCASEARRAY 17Q \LAFITEUSERDATA 11Q \LAFITEUSERDATA) () LA.PRINTSTAMP D1 (I 0 STREAM) 2@l* @ls @lt @la @lr @lt @l* @l (57Q BOUT 51Q BOUT 43Q BOUT 35Q BOUT 27Q BOUT 21Q BOUT 13Q BOUT 5 BOUT) NIL () LA.READSHORTSTRING D1 (P 0 NBYTES I 0 STREAM) @ Hjh@H (20Q LA.READSTRING) NIL () LA.PRINTSHORTSTRING D1 (P 0 NBYTES I 1 STRING I 0 STREAM) 1A @j k HlAkl bl@H A@ Hk(53Q PRIN3 46Q BOUT 33Q SUBSTRING 14Q NCHARS 7 BOUT) NIL () LA.READSTRING D1 (P 6 OFFSET P 5 BASE P 4 I P 2 OFFSET P 1 BASE P 0 STR I 1 NBYTES I 0 STREAM) )A !AkjHHLKMLN@ ǿLk\H(3 ALLOCSTRING) NIL () LAFITE.PARSE.MSG.FOR.TOCA0001 D1 (NAME ERRORSET P 0 FOLDERSTREAM F 2 MSGDESCRIPTOR F 3 MAILFOLDER F 4 RESETY) S hi Sg H`RRRR PdYdgRI ;dgRI ,dgRIgIdgdgRk0RkR0jR@jhR *RS `R jRk R`Rkhci(233Q LAFITE.FETCH.TO.FIELD 224Q LA.MSGFROMMEP 47Q LAFITE.PARSE.HEADER 17Q \LAFITE.OPEN.FOLDER 7 OBTAIN.MONITORLOCK) (263Q SEENMARK 237Q LAFITEIFFROMMETHENSEENFLG 155Q MULTIMEDIA 147Q TEDIT 135Q Format 117Q Date 100Q Subject 61Q From 26Q \LAPARSE.TOCFIELDS 14Q INPUT) () LAFITE.PARSE.MSG.FOR.TOC D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 MAILFOLDER I 0 MSGDESCRIPTOR F 3 LISPXHIST F 4 RESETVARSLST) *@j"S!Tog hgZ JI(45Q ERROR! 40Q RESETRESTORE 26Q LAFITE.PARSE.MSG.FOR.TOCA0001) (34Q ERROR 23Q INTERNAL) ( 20Q (LAFITE.PARSE.MSG.FOR.TOCA0001)) LAFITE.FETCH.TO.FIELDA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 MSGDESCRIPTOR F 3 MAILFOLDER F 4 RESETY) ;S hi RSg `RRRRi `HIIci(46Q LAFITE.PARSE.HEADER 20Q \LAFITE.OPEN.FOLDER 7 OBTAIN.MONITORLOCK) (53Q UNSUPPLIEDFIELDSTR 23Q \LAPARSE.TOFIELD 15Q INPUT) () LAFITE.FETCH.TO.FIELD D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 MAILFOLDER I 0 MSGDESCRIPTOR F 3 LISPXHIST F 4 RESETVARSLST) '@"S!Tog hgZ JI(42Q ERROR! 35Q RESETRESTORE 23Q LAFITE.FETCH.TO.FIELDA0001) (31Q ERROR 20Q INTERNAL) ( 15Q (DUMMY.FOR.ERRORSET)) LAFITE.PARSE.HEADER D1 (P 4 HERE P 3 CHOICE P 2 CH P 1 TABLE P 0 PARSERESULT I 5 CHECKEOF I 4 ONCEONLY I 3 END I 2 START I 1 PARSETABLE I 0 STREAM) B@B AE@ Idg4@ laMMdlzl_MI^ hvKY[JKiNdgI@ I_@IlODHgEfJl `gLhH@ _laOOdlzl_OZIIYiE7Jl Jl Jdl gLihHil:@J h.H@ ZC@ C@J (366Q LA.SKIP.TO.EOL 354Q GETFILEPTR 331Q LA.SKIP.TO.EOL 135Q LAFITE.SKIP.WHITE.SPACE 22Q GETFILEPTR 11Q SETFILEPTR) (305Q EOF 204Q EOF 165Q STOP 122Q RESULT 31Q CHOICE) () LAFITE.GRAB.DATE D1 (P 2 I P 1 CH P 0 DATESTR I 0 STREAM F 3 PARSERESULT) Ug@ kHJ)Yl,*HJkZ)l HJhH HklH HhScIl9l0IJkغ(66Q SUBSTRING 54Q SUBSTRING 6 LAFITE.READ.TO.EOL) (2 Date) () LAFITE.READ.LINE.FOR.TOC D1 (P 0 STR I 1 ARGS I 0 STREAM F 1 PARSERESULT) %@ H lHklH AHhQch(26Q SUBSTRING 12Q NCHARS 3 LAFITE.READ.TO.EOL) NIL () LAFITE.READ.FORMAT D1 (P 0 STR I 0 STREAM F 1 PARSERESULT) *@ Hm)l H gH hQch(37Q MKATOM 34Q U-CASE 22Q GLC 3 LAFITE.READ.TO.EOL) (30Q Format) () LAFITE.READ.NAME.FIELD D1 (P 4 PAIR P 2 LINE P 1 LINELIST P 0 FIELD I 1 ARGS I 0 STREAM F 5 PARSERESULT) NA!@ ZhYJm)dl dl dl,J UK HIUc h\dHK[I (112Q \NCONC2 44Q GLC 10Q LAFITE.READ.TO.EOL) NIL () LAFITE.READ.ONE.LINE.FOR.TOC D1 (I 0 STREAM F 0 PARSERESULT) @ c(3 LAFITE.READ.TO.EOL) NIL () LAFITE.READ.TO.EOL D1 (P 1 LINE P 0 RESULT I 0 STREAM) 9 @` @ HI@ dl dl @ oI H(63Q CONCAT 50Q LAFITE.SKIP.WHITE.SPACE 30Q \PEEKBIN 16Q READC 11Q RSTRING) (6 LINEPARSERRDTBL) ( 57Q " ") LA.SKIP.TO.EOL D1 (I 1 LASTCH I 0 STREAM) &Al @ l @ dl dl hbih(17Q \PEEKBIN) NIL () LAFITE.SKIP.WHITE.SPACE D1 (I 0 STREAM) @ dl dl @ (3 \PEEKBIN) NIL () LAFITE.INIT.PARSETABLES D1 (P 0 CH) -` ` ` g  dHg` ` dHg` gg` ` l g` l g` l g` gg` gg` gg` gg` gg` gg` gg` gg` gg` gg` gg` gg` gg` (452Q SETSYNTAX 436Q SETSYNTAX 422Q SETSYNTAX 406Q SETSYNTAX 372Q SETSYNTAX 356Q SETSYNTAX 342Q SETSYNTAX 326Q SETSYNTAX 312Q SETSYNTAX 276Q SETSYNTAX 262Q SETSYNTAX 246Q SETSYNTAX 232Q SETSYNTAX 216Q SETSYNTAX 203Q SETSYNTAX 170Q SETSYNTAX 152Q COPYREADTABLE 144Q SETSYNTAX 123Q SETSYNTAX 102Q GETBRK 67Q SETSYNTAX 46Q GETSEPR 40Q COPYREADTABLE 27Q LAFITE.MAKE.PARSE.TABLE 16Q LAFITE.MAKE.PARSE.TABLE 5 LAFITE.MAKE.PARSE.TABLE) (447Q ADDRESSPARSERRDTBL 444Q BREAKCHAR 441Q %] 433Q ADDRESSPARSERRDTBL 430Q BREAKCHAR 425Q %[ 417Q ADDRESSPARSERRDTBL 414Q ORIG 411Q %" 403Q ADDRESSPARSERRDTBL 400Q ORIG 375Q %) 367Q ADDRESSPARSERRDTBL 364Q ORIG 361Q %( 353Q ADDRESSPARSERRDTBL 350Q BREAKCHAR 345Q : 337Q ADDRESSPARSERRDTBL 334Q BREAKCHAR 331Q ; 323Q ADDRESSPARSERRDTBL 320Q ESCAPE 315Q \ 307Q ADDRESSPARSERRDTBL 304Q BREAKCHAR 301Q > 273Q ADDRESSPARSERRDTBL 270Q BREAKCHAR 265Q < 257Q ADDRESSPARSERRDTBL 254Q BREAKCHAR 251Q %. 243Q ADDRESSPARSERRDTBL 240Q BREAKCHAR 235Q @ 227Q ADDRESSPARSERRDTBL 224Q BREAKCHAR 221Q , 213Q ADDRESSPARSERRDTBL 210Q SEPRCHAR 200Q ADDRESSPARSERRDTBL 175Q SEPRCHAR 165Q LINEPARSERRDTBL 162Q SEPRCHAR 155Q ADDRESSPARSERRDTBL 147Q LINEPARSERRDTBL 141Q LINEPARSERRDTBL 136Q OTHER 133Q %% 120Q LINEPARSERRDTBL 115Q OTHER 77Q LINEPARSERRDTBL 64Q LINEPARSERRDTBL 61Q OTHER 43Q LINEPARSERRDTBL 35Q ORIG 32Q \LAPARSE.TOFIELD 24Q LA.TOFIELDONLY 21Q \LAPARSE.TOCFIELDS 13Q LA.TOCFIELDS 10Q \LAPARSE.FULL 2 LA.FULLPARSEFIELDS) () LAFITE.MAKE.PARSE.TABLE D1 (P 0 PARSETABLE I 0 TABLE) @k gHo (22Q \NCONC2 4 LAFITE.MAKE.PARSE.TABLE1) (12Q CHOICE) ( 17Q ((15Q STOP) (52Q 123Q 124Q 101Q 122Q 124Q 52Q STOP))) LAFITE.MAKE.PARSE.TABLE1 D1 (P 12Q J P 11Q X P 5 TAIL P 4 CH P 3 CHOICELIST P 2 DONE P 1 OTHERENTRIES P 0 ENTRY I 1 I I 0 TABLE) `@d]JMXA)\ Ho L@ Md_A)LdONh_N&_OY?Ak1 HO)\OgH 5_OOh__Ok_O&_J gHIAk K^K(236Q LAFITE.MAKE.PARSE.TABLE1 221Q \APPEND2 152Q \NCONC2 41Q ERROR) (225Q CHOICE 144Q RESULT) ( 36Q "is an initial prefix of another entry") (PRETTYCOMPRINT LAFITEMAILCOMS) (RPAQQ LAFITEMAILCOMS ((COMS (* Retrieving mail) (FNS \LAFITE.GETMAIL \LAFITE.GETMAIL.PROC \LAFITE.GETNEWMAIL \LAFITE.GETNEWMAIL1 \LAFITE.GETNEWMAIL# \LAFITE.RETRIEVEMESSAGES \LAFITE.HANDLE.BIG.MESSAGE \LAFITE.FIND.BREAKPOINT)) (COMS (* Mail polling and registration) (FNS \LAFITE.GET.USER.DATA LAFITECLEARCACHE FULLUSERNAME LAFITEMAILWATCH \LAFITE.WAKE.WATCHER POLLNEWMAIL POLLNEWMAIL1 PRINTLAFITESTATUS)) (COMS (* Parsing mail files) (FNS PARSEMAILFOLDER PARSEMAILFOLDER1 BADMAILFILE BADMAILFILE.FLAGBYTE VERIFYMAILFOLDER VERIFYFAILED READTOCFILE BADTOCFILE \LAFITE.TOCEOF LA.READCOUNT LA.PRINTCOUNT LA.READSTAMP \LAFITE.VERIFYMSG LA.MSGFROMMEP LA.PRINTSTAMP LA.READSHORTSTRING LA.PRINTSHORTSTRING LA.READSTRING) (FNS LAFITE.PARSE.MSG.FOR.TOC LAFITE.FETCH.TO.FIELD LAFITE.PARSE.HEADER LAFITE.GRAB.DATE LAFITE.READ.LINE.FOR.TOC LAFITE.READ.FORMAT LAFITE.READ.NAME.FIELD LAFITE.READ.ONE.LINE.FOR.TOC LAFITE.READ.TO.EOL LA.SKIP.TO.EOL LAFITE.SKIP.WHITE.SPACE) (COMS (VARS LA.FULLPARSEFIELDS LA.TOCFIELDS LA.TOFIELDONLY) (FNS LAFITE.INIT.PARSETABLES LAFITE.MAKE.PARSE.TABLE LAFITE.MAKE.PARSE.TABLE1))) (COMS (INITVARS ( MAILWATCHWAITTIME 5) (LAFITEFLUSHMAILFLG T) (LAFITETOC.EXT (QUOTE -LAFITE-TOC)) (LAFITENEWMAILTUNE) ( LAFITEGETMAILTUNE) (LAFITE.AFTER.GETMAIL.FN)) (INITVARS (\LAFITE.LAST.STATUS)) (ADDVARS ( \SYSTEMCACHEVARS \LAFITE.LAST.STATUS))) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS MAILSERVEROPS) ( GLOBALVARS LA.FULLPARSEFIELDS LA.TOCFIELDS LA.TOFIELDONLY ADDRESSPARSERRDTBL DEFAULTREGISTRY LAFITEDEBUGFLG LAFITEFLUSHMAILFLG LAFITEGETMAILTUNE LAFITEIFFROMMETHENSEENFLG LAFITENEWMAILTUNE LINEPARSERRDTBL MAILWATCHWAITTIME \LAFITE.AUTHENTICATION.FAILURE \LAPARSE.FULL \LAPARSE.TOCFIELDS \LAPARSE.TOFIELD LAFITE.AFTER.GETMAIL.FN)))) (RPAQQ LA.FULLPARSEFIELDS (("DATE:" LAFITE.READ.LINE.FOR.TOC Date) ("SUBJECT:" LAFITE.READ.LINE.FOR.TOC Subject) ("SENDER:" LAFITE.READ.NAME.FIELD Sender) ("FROM:" LAFITE.READ.NAME.FIELD From) ("REPLY-TO:" LAFITE.READ.NAME.FIELD Reply-to) ("IN-REPLY-TO:" LAFITE.READ.LINE.FOR.TOC In-Reply-to) ("TO:" LAFITE.READ.NAME.FIELD To) ("CC:" LAFITE.READ.NAME.FIELD cc) ("FORMAT:" LAFITE.READ.FORMAT))) (RPAQQ LA.TOCFIELDS (("DATE:" LAFITE.GRAB.DATE) ("FROM:" LAFITE.READ.LINE.FOR.TOC From) ("SUBJECT:" LAFITE.READ.LINE.FOR.TOC Subject) ("FORMAT:" LAFITE.READ.FORMAT))) (RPAQQ LA.TOFIELDONLY (("TO:" LAFITE.READ.ONE.LINE.FOR.TOC))) (RPAQ? MAILWATCHWAITTIME 5) (RPAQ? LAFITEFLUSHMAILFLG T) (RPAQ? LAFITETOC.EXT (QUOTE -LAFITE-TOC)) (RPAQ? LAFITENEWMAILTUNE) (RPAQ? LAFITEGETMAILTUNE) (RPAQ? LAFITE.AFTER.GETMAIL.FN) (RPAQ? \LAFITE.LAST.STATUS) (ADDTOVAR \SYSTEMCACHEVARS \LAFITE.LAST.STATUS) (PUTPROPS LAFITEMAIL COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL