(FILECREATED "15-Nov-84 15:39:49" ("compiled on " {ERIS}LAFITEMAIL.;16) "23-Oct-84 17:59:44" recompiled exprs: \LAFITE.GET.USER.DATA in "INTERLISP-D 23-Oct-84 ..." dated "23-Oct-84 18:17:36") (FILECREATED "15-Nov-84 15:38:39" {ERIS}LAFITEMAIL.;16 56807 changes to: (FNS \LAFITE.GET.USER.DATA POLLNEWMAIL1 LAFITEMAILWATCH \LAFITE.GETNEWMAIL1 \LAFITE.RETRIEVEMESSAGES LAFITE.PARSE.HEADER \LAFITE.GETNEWMAIL LAFITE.READ.NAME.FIELD LAFITE.READ.TO.EOL LA.SKIP.TO.EOL \LAFITE.HANDLE.BIG.MESSAGE LAFITE.PARSE.MSG.FOR.TOC LAFITE.GRAB.DATE LAFITE.READ.FORMAT LAFITE.INIT.PARSETABLES \LAFITE.GETMAIL.PROC \LAFITE.WAKE.WATCHER \LAFITE.FIND.BREAKPOINT PRINTLAFITESTATUS) (VARS LAFITEMAILCOMS LA.FULLPARSEFIELDS LA.TOCFIELDS LA.TOFIELDONLY) previous date: "31-Jul-84 23:10:38" {ERIS}LAFITEMAIL.;5) \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 1K7gH J @kh@ @J `g` NoH i^LH oH L@IH ]@M JMK[(214Q LAB.APPENDMESSAGES 205Q \LAFITE.GETNEWMAIL1 175Q PRIN1 164Q PRIN1 150Q PRIN1 131Q PLAYTUNE 115Q MACHINETYPE 104Q LAB.EXPOSEMESSAGE 76Q SELECTMESSAGE 57Q PRIN1 31Q PRIN1 17Q \LAFITE.GET.USER.DATA 11Q \LAFITE.OPEN.FOLDER) (126Q LAFITEGETMAILTUNE 120Q DANDELION 110Q LAFITEGETMAILTUNE 53Q %. 6 APPEND) ( 171Q " .." 144Q "; " 25Q "No mailboxes known") \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 hnJkg A Ig [CK @JBA X,A @J`lMoC KCH HoC @JhlNhoC IoC IC oC (307Q PRIN1 276Q PRIN1 267Q PRIN1 252Q PRIN1 221Q PRIN1 207Q \LAFITE.GETNEWMAIL# 204Q LENGTH 175Q PRIN1 143Q \LAFITE.CLOSE.FOLDER 134Q \LAFITE.RETRIEVEMESSAGES 124Q \LAFITE.GETNEWMAIL# 115Q LISTGET 104Q UNSELECTALLMESSAGES 77Q PRINTLAFITESTATUS 62Q PRIN1) (157Q LAFITEFLUSHMAILFLG 112Q #OFMESSAGES 74Q NEW.MAIL 47Q EMPTY 21Q \LAFITEUSERDATA 15Q \LAFITEUSERDATA) ( 303Q ")" 263Q " (" 246Q " not responding" 215Q " retrieval aborted" 171Q " 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 0Cj]@ @ _o@ @l @j n@ O AdOdgdgdgÿO@ o@ O@ @ o@ @ @ @ _M_C^O_oHIoO ^O_@O O@ @O H@IN `d`dMdOdlMOؽINعCNb_OQOh__dgdgdgMO$dO@ o@ O @ @ ܱ O&_O(635Q TERPRI 630Q PRIN1 621Q PRIN1 610Q PRIN1 442Q COPYBYTES 432Q SETFILEPTR 423Q LA.PRINTCOUNT 414Q SETFILEPTR 377Q \LAFITE.FIND.BREAKPOINT 336Q GETFILEPTR 331Q TERPRI 324Q TERPRI 317Q PRIN1 301Q TERPRI 274Q PRIN1 263Q PRIN1 252Q PRIN1 203Q REVERSE 175Q LINELENGTH 165Q POSITION 157Q BOUT 150Q PRIN3 135Q GETFILEPTR 130Q LA.PRINTSTAMP 112Q SETFILEPTR 101Q COPYBYTES 56Q \LAFITE.FIND.BREAKPOINT 41Q LAFITE.PARSE.HEADER 10Q OPENSTREAM) (562Q Reply-to 554Q cc 546Q To 453Q UNSEENMARK 446Q LAFITEMSGTYPE# 235Q From 227Q Sender 221Q Date 20Q \LAPARSE.FULL 5 BOTH 2 {NODIRCORE}) ( 615Q ": " 371Q 303237Q 360Q 303237Q 313Q "Subject: (continuation of previous message)" 257Q ": " 144Q "00000 00024 UU " 53Q 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 n`i`7``` `1H+IHdhH/`jHdJ KhZYHXK&Zo(72Q \LAFITE.SHOW.MODE 26Q ASSOC) (153Q \LAFITE.AUTHENTICATION.FAILURE 76Q \LAFITEMODE 65Q \LAFITEMODE 33Q LAFITEMODELST 23Q LAFITEMODELST 20Q LAFITEMODEDEFAULT 14Q LAFITEMODEDEFAULT 7 \LAFITEMODE 2 \LAFITEUSERDATA) ( 150Q "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 Hghhig h (35Q WAKE.PROCESS 30Q \LAFITE.PROCESS 5 FIND.PROCESS) (25Q HARDRESET 16Q LAFITEMAILWATCH 2 LAFITEMAILWATCH) () POLLNEWMAIL D1 NIL #g`dg (40Q PRINTLAFITESTATUS 35Q POLLNEWMAIL1 2 \LAFITE.GET.USER.DATA) (25Q NO.MAILBOX 13Q \LAFITEUSERDATA 6 NO.MAILSERVER) () 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 1 STR P 0 WINDOW I 0 STATUS) ` H@dgdgdgM`@dg&`g` o` Jgo?o` 3go@dgogo@oo YhH IhH @h(256Q CENTERPRINTINREGION 250Q CLEARW 237Q CONCAT 234Q DATE 154Q CONCAT 125Q CONCAT 106Q PLAYTUNE 73Q MACHINETYPE 5 WINDOWP) (262Q \LAFITE.LAST.STATUS 244Q \LAFITE.LAST.STATUS 211Q NONE.UP 176Q SOME.UP 161Q NO.MAIL 151Q \LAFITE.AUTHENTICATION.FAILURE 132Q NO.MAILBOX 116Q \LAFITEUSERDATA 103Q LAFITENEWMAILTUNE 76Q DANDELION 67Q LAFITENEWMAILTUNE 60Q NEW.MAIL 46Q \LAFITE.LAST.STATUS 40Q NO.MAILSERVER 32Q NO.MAILBOX 24Q NEW.MAIL 2 LAFITESTATUSWINDOW) ( 231Q (DATEFORMAT NO.DATE NO.SECONDS CIVILIAN.TIME) 225Q " at " 217Q "No Mail Servers Responding" 205Q "Some Servers Unavailable" 167Q "No New Mail" 146Q "Not Logged In: " 140Q "No Accessible Mail Boxes" 113Q "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)) (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)))) (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) ("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.LAST.STATUS) (ADDTOVAR \SYSTEMCACHEVARS \LAFITE.LAST.STATUS) (PUTPROPS LAFITEMAIL COPYRIGHT ("Xerox Corporation" 1984)) NIL