(FILECREATED "31-Jul-84 23:11:31" ("compiled on " {ERIS}LAFITEMAIL.;5) "30-Jul-84 02:52:09" recompiled exprs: \LAFITE.GETNEWMAIL \LAFITE.GETNEWMAIL1 \LAFITE.GET.USER.DATA GV.INIT.MAIL.USER POLLNEWMAIL PRINTLAFITESTATUS \LAFITE.VERIFYMSG in "INTERLISP-D 30-Jul-84 ..." dated "30-Jul-84 03:04:50") (FILECREATED "31-Jul-84 23:10:38" {ERIS}LAFITEMAIL.;5 51645 changes to: (FNS GV.INIT.MAIL.USER PRINTLAFITESTATUS \LAFITE.GETNEWMAIL1 \LAFITE.VERIFYMSG POLLNEWMAIL \LAFITE.GETNEWMAIL \LAFITE.GET.USER.DATA RETRIEVEMESSAGES GETNEWMAIL PARSEMAILFOLDER VERIFYMAILFOLDER READTOCFILE LAFITE.PARSE.MSG.FOR.TOC LAFITE.FETCH.TO.FIELD GETNEWMAIL1 \LAFITE.GETMAIL.PROC \LAFITE.GETNEWMAIL# \LAFITE.RETRIEVEMESSAGES) (VARS LAFITEMAILCOMS) previous date: "23-Jul-84 17:00:31" {ERIS}LAFITEMAIL.;3) \LAFITE.GETMAIL D1 (I 3 MENU I 2 ITEM I 1 MAILFILEDATA I 0 WINDOW) g@d²dið³d¥d¡µ g@hAd²dið³d¥d¡µ gAhBd²dið³d¥d¡µ gBhCd²dið³d¥d¡µ gChhg (176Q \LAFITE.PROCESS) (173Q LAFITEGETMAIL 156Q QUOTE 122Q QUOTE 66Q QUOTE 32Q QUOTE 2 \LAFITE.GETMAIL.PROC) () \LAFITE.GETMAIL.PROCA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 MAILFOLDER F 1 ITEM F 2 MENU F 3 RESETY F 4 WINDOW) .QR ¿PÉ hi¿P ¿`hi¿PT ¿g ci(50Q WAKE.PROCESS 41Q \LAFITE.GETNEWMAIL 33Q OBTAIN.MONITORLOCK 22Q \LAFITE.MAYBE.CLEAR.PROMPT 15Q OBTAIN.MONITORLOCK 4 LA.RESETSHADE) (45Q LAFITEMAILWATCH 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 ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q \LAFITE.GETMAIL.PROCA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \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 1KµBgH Jµg @kÏ¿kjðhðh@ ¿@J ¿`²ßgð²Ö` ¿°Í¼N˜oH i^¿LH ¿oH ¿L@IH]š@M ¿J¢MºK[°ƒ(213Q LAB.APPENDMESSAGES 204Q \LAFITE.GETNEWMAIL1 174Q PRIN1 163Q PRIN1 146Q PRIN1 127Q PLAYTUNE 113Q MACHINETYPE 102Q LAB.EXPOSEMESSAGE 74Q SELECTMESSAGE 53Q WAKE.PROCESS 42Q PRIN1 17Q \LAFITE.GET.USER.DATA 11Q \LAFITE.OPEN.FOLDER) (124Q LAFITEGETMAILTUNE 116Q DANDELION 106Q LAFITEGETMAILTUNE 50Q LAFITEMAILWATCH 36Q %. 6 APPEND) ( 170Q " .." 142Q "; ") \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) ë€@¼`@lLdið¢±ª¿g ¿A ¿@½@``@lMYµ+oC ¿@h¿I¢±‘oC ¿oC ¿°{Z²ÕIg [•CK ¿@JBAX²BA ¿@¾J`lN¿@h¿oC ¿K³4CH ¿°)³…oC hoC ¿@_¿JhlOH(324Q PRIN1 312Q PRIN1 275Q \LAFITE.GETNEWMAIL# 272Q LENGTH 261Q PRIN1 220Q \LAFITE.CLOSE.FOLDER 211Q \LAFITE.RETRIEVEMESSAGES 201Q \LAFITE.GETNEWMAIL# 172Q LISTGET 153Q PRIN1 141Q PRIN1 115Q PRIN1 45Q UNSELECTALLMESSAGES 40Q PRINTLAFITESTATUS) (235Q LAFITEFLUSHMAILFLG 167Q #OFMESSAGES 65Q \LAFITEUSERDATA 61Q \LAFITEUSERDATA 35Q NEW.MAIL 11Q \LAFITEUSERDATA) ( 320Q " retrieval aborted" 306Q " empty" 255Q " done" 146Q ")" 135Q " (" 111Q " not responding") \LAFITE.GETNEWMAIL# D1 (I 1 #OFMESSAGES I 0 REPORTWINDOW) (o@ A@ Akð”oƒo@ o@ (45Q PRIN1 35Q PRIN1 14Q PRIN1 7 PRIN1) NIL ( 41Q ")" 31Q " msgs" 24Q " msg" 3 " (") \LAFITE.RETRIEVEMESSAGESA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 6 NEXTMESSAGERESULT P 5 MSGLENGTH P 4 LENGTHPOS P 3 STARTPOS P 2 ENDPOS P 1 RETRIEVEFN P 0 NEXTMESSAGEFN F 7 OUTSTREAM F 10Q MAILSERVER F 11Q MAILBOX F 12Q MESSAGELIST F 13Q ORIGEOF) ¤WWWCWkH^µig ³ïWJ[ ¿KW Ùjð§o ¿W ¿W ¼oW ¿Wl ¿WWlI¿W ZKÙ½WL ¿MW ¿`d`Ï¿dK¿dM¿dlÍ¿Wc¿±ÿr(174Q LA.PRINTCOUNT 165Q SETFILEPTR 153Q GETFILEPTR 133Q BOUT 123Q PRIN3 111Q GETFILEPTR 103Q LA.PRINTSTAMP 75Q HELP 62Q GETEOFPTR 53Q SETFILEPTR 42Q LISTGET) (205Q UNSEENMARK 200Q LAFITEMSGTYPE# 37Q DELETEDFLG) ( 116Q "00000 00024 UU " 72Q "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 BgJCi Cg JHð²ßh(57Q \LAFITE.OPEN.FOLDER 50Q \LAFITE.CLOSE.FOLDER 43Q SETFILEINFO 33Q SETFILEPTR 25Q REVERSE 20Q \LAFITE.RETRIEVEMESSAGESA0001 3 GETEOFPTR) (54Q APPEND 37Q LENGTH) ( 14Q (DUMMY.FOR.ERRORSET)) \LAFITE.GET.USER.DATA D1 NIL `µ`jHNIL (7 \LAFITEMODE 2 \LAFITEUSERDATA) () GV.INIT.MAIL.USER D1 (P 15Q SERVERDEF P 14Q SERVERPORT P 13Q SERVEROPS P 12Q MAILSERVER P 4 AUTHENTICATED? P 3 MAILSERVERS P 2 PASS P 1 FULLNAME P 0 GVUSERNAME) ``µ‚±”i XdoHYH Z \ið³8` ¿o` ¿I` ¿o` ¿L` ¿o°H [³` ¿o` ¿I` hIHJIKq Nµ O_ _µi°@½OkM_³` ¿o` ¿O` ¿iOOhOh_hð³O_¿OµOh__¿N^°O&_¿°õ(325Q PRIN1 314Q PRIN1 301Q TERPRI 243Q GETMAILSERVEROPS 204Q PRIN1 174Q PRIN1 161Q TERPRI 147Q GV.EXPAND 134Q PRIN1 121Q PRIN1 106Q PRIN1 76Q PRIN1 63Q TERPRI 50Q GV.AUTHENTICATE 44Q GV.MAKEKEY 40Q \INTERNAL/GETPASSWORD 33Q CONCAT 17Q FULLUSERNAME) (322Q PROMPTWINDOW 311Q PROMPTWINDOW 276Q PROMPTWINDOW 234Q \LAFITEUSERDATA 201Q PROMPTWINDOW 171Q PROMPTWINDOW 156Q PROMPTWINDOW 131Q PROMPTWINDOW 126Q \LAFITE.AUTHENTICATION.FAILURE 116Q PROMPTWINDOW 103Q PROMPTWINDOW 73Q PROMPTWINDOW 60Q PROMPTWINDOW 5 \LAFITEUSERDATA) ( 306Q "Can't find address of " 166Q "There are no mail servers for user " 141Q "." 113Q " because: " 70Q "Cannot authenticate user " 26Q ".") LAFITECLEARCACHE D1 NIL hNIL (3 \LAFITEUSERDATA) () MAILSERVERTYPE D1 (I 0 MAILSERVERNAME) /@mý o`gð“g@o`gð´g(43Q ALPHORDER 17Q ALPHORDER 5 SUBSTRING) (54Q MTP 46Q EQUAL 40Q UPPERCASEARRAY 27Q GV 22Q EQUAL 14Q UPPERCASEARRAY) ( 35Q "MAXC" 11Q ".MS") GETMAILSERVEROPS D1 (P 1 OPS P 0 SERVERTYPE I 0 MAILSERVER) J@ H²$H` µHgð´o ¿H` Yµ` ¿o` ¿@` h(104Q PRIN1 74Q PRIN1 61Q TERPRI 50Q ASSOC 40Q FILESLOAD 20Q ASSOC 3 MAILSERVERTYPE) (101Q PROMPTWINDOW 71Q PROMPTWINDOW 56Q PROMPTWINDOW 45Q MAILSERVERTYPES 26Q MTP 15Q MAILSERVERTYPES) ( 66Q "Lafite cannot retrieve mail from " 35Q ((SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) MTP)) FULLUSERNAME D1 (P 3 SIMPLENAME P 2 REGISTRY P 1 USER P 0 DOT I 0 UNPACKEDFLG) e`œ@•``@hdiYoI X¦I»`°@¡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 ".") GETREGISTRY D1 (P 1 NXTLOC P 0 LOC I 0 NAME) )o@ H¢h¸o@HkØYµó@HkØmÿ(46Q SUBSTRING 32Q STRPOS 7 STRPOS) NIL ( 23Q "." 3 ".") LAFITEMAILWATCHA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) 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 4 LISPXHIST F 5 RESETVARSLST) 3`nê`ÚT!Uog ‘h‚g[ ¿K“¿H ¿°Ú(56Q BLOCK 50Q ERROR! 42Q RESETRESTORE 30Q LAFITEMAILWATCHA0001) (36Q ERROR 25Q INTERNAL 2 MAILWATCHWAITTIME) ( 22Q (DUMMY.FOR.ERRORSET)) POLLNEWMAIL D1 NIL #¤g°`d¤¿g† (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) s@aHµ K²QgY¾I``lNZdið™¿i»IJ°¨i¼IJ°Jgð—i½Ih‚¿HX°LžM£gL–M´gM´g(123Q SHOULDNT 26Q FULLUSERNAME) (160Q NONE.UP 151Q SOME.UP 140Q NO.MAIL 106Q ? 41Q \LAFITEUSERDATA 34Q \LAFITEUSERDATA 15Q NEW.MAIL) () PRINTLAFITESTATUS D1 (P 1 STR P 0 WINDOW I 0 STATUS) ´ @dgð¬dgð¦dgð²M`ð’±•@dgð²&¿`žgð–` ¿o` °Jgð•o°?o` °3gð•o°@dgð•¿oŠgð”o€@oo Yh` µ`X IhH@h(254Q CENTERPRINTINREGION 246Q CLEARW 235Q WINDOWP 222Q CONCAT 217Q DATE 137Q CONCAT 110Q CONCAT 71Q PLAYTUNE 56Q MACHINETYPE) (260Q \LAFITE.LAST.STATUS 242Q PROMPTWINDOW 232Q LAFITESTATUSWINDOW 227Q \LAFITE.LAST.STATUS 174Q NONE.UP 161Q SOME.UP 144Q NO.MAIL 134Q \LAFITE.AUTHENTICATION.FAILURE 115Q NO.MAILBOX 101Q \LAFITEUSERDATA 66Q LAFITENEWMAILTUNE 61Q DANDELION 52Q LAFITENEWMAILTUNE 43Q NEW.MAIL 31Q \LAFITE.LAST.STATUS 23Q NO.MAILSERVER 15Q NO.MAILBOX 7 NEW.MAIL) ( 214Q (DATEFORMAT NO.DATE NO.SECONDS CIVILIAN.TIME) 210Q " at " 202Q "No Mail Servers Responding" 170Q "Some Servers Unavailable" 152Q "No New Mail" 131Q "Not Logged In: " 123Q "No Accessible Mail Boxes" 76Q "New Mail for ") PARSEMAILFOLDER D1 (P 2 END P 1 MESSAGES P 0 STREAM I 0 MAILFOLDER) X@gg!H Zdjð«@HJjk Y²0@Iµ)jÍ@I´hIkI@J0@jÍ @kÏ¿kjðhð@°Ù@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 ¿Cjð”oƒoH ¿gH @kÏ¿kjðhðDCÂBJñ¢±ÒAJ ¿A ²A ^›A _”ONñž@JIoOE A dlUð’¿hŠlDð‘i„@I _¿A dlUð“¿h°dlSð’¿iŠlNð‘i„@I _¿A _¿`dIÍ¿dJ¿dN¿O¤`µO_¿dOÏ¿dO‘k€jÏ ¿dO‘k€jÏ¿dOÍ¿_d@ ¿JNØº½LµMh\»IkØ¹±ÿ2M&¼°öJBÙjð³;@oOÉoOdÉJBÙÙ_¿Oo ¿OdkÏ¿kjð¡k€jÏ¿OÈK(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 ¿D²RH ¿oH ¿H ¿oH ¿DÉH ¿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¿ WggX YWÉ0ÙjðªoIh ¿kjWÉWÈD IKñ¢±×HK ¿JMñ–o±ÐLJ(_ÉKÙjð¦o±¤H ¦o±˜H ^˜NOÉÙjð¦o±‚H _™OOÈÙjð¥o°jOÊjð²eH dlUð’¿hˆlDð‘i‚gOÊjðhðð¥o°=H dlUð’¿hˆlSð‘i‚gOÊ jðhðð¥o°H _OÊð¯OÊ jð§o ¿KNØ»JkØº±ÿ(KIÙjð§o ¿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ð´@ b¿S!Tog ‘h‚gZ J“I(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&kÏ¿W*ggho W&g j“gIhhhW(c(¿Igg¿Ij ¿I áI Øn²*ðI áI Ø_`ð³Olð²EW&É*_¿oO ¿i_¿I áI ØI áI Øõ\J ]Ùjð³/JL ¿J ³o ±3o ±)i_¿MLÙnôÛ[€KI áI Ø_Ø[ ¾OkI j$OOñ’±¦I _$djð—¿I áI Ø†I áI Øõ_$¿`dOÍ¿dO ¿dO$¿_"¿O O$Ø_ ¿O"I Í¿O—O"I Ï†O"I Ï¿O"I Ï¿O"Il ¿O"I ¿O"I ¿O"I ¿O"jOI _ÙÙÍ¿NOO"*¿OkØ_±ÿYW&O`ð’O€jÍ ¿O²%W&JMLOkØi _²3NOOkØO_¾W&N¿W&OÍ¿W&M0¿W&kÏ¿ic,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 ‘h‚gZ J“I(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É*A”H ¿@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) - @ Xdl9ñ³¿l0Hñ³Hl0ÙIµjØ¹°æl Ú°ùHl ð´INIL NIL () LA.PRINTCOUNT D1 (I 1 STREAM I 0 COUNT) o@AAl (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) 3AÉH@É 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``gð³H`ƒH`gð‘k€jYÏ@¿Ijðhð@kÏ0¿(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) @ Hjðhð´@H (20Q LA.READSTRING) NIL () LA.PRINTSHORTSTRING D1 (P 0 NBYTES I 1 STRING I 0 STREAM) 1Aµ @j k HlÿñœAklÿb¿lÿ¸@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 !AkÙjHÉHÈLKñMLNØ@ Ç¿LkØ\°ñH(3 ALLOCSTRING) NIL () LAFITE.PARSE.MSG.FOR.TOCA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 FOLDERSTREAM F 2 MSGDESCRIPTOR F 3 MAILFOLDER F 4 RESETY) ÅSÉ hi¿Sg H`RÉRÈØRÉRÉØ°PdYdgð˜¿RI °;dgð˜¿RI°,dgð˜¿RI°gð²Idgð¥dgð•¿RkÏ0¿µ±RkÏ¿RÊ0jð¨RÊ@jðhðƒR ´*RS ¿`´RÊ jð´RkÏ ¿R`Ï¿RkÏ¿hci(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 ‘h‚gZ J“I(45Q ERROR! 40Q RESETRESTORE 26Q LAFITE.PARSE.MSG.FOR.TOCA0001) (34Q ERROR 23Q INTERNAL) ( 20Q (DUMMY.FOR.ERRORSET)) 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 `RÉRÈØRÉRÉØi µ`HI¿Ici(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 ‘h‚gZ J“I(42Q ERROR! 35Q RESETRESTORE 23Q LAFITE.FETCH.TO.FIELDA0001) (31Q ERROR 20Q INTERNAL) ( 15Q (DUMMY.FOR.ERRORSET)) LAFITE.PARSE.HEADER D1 (P 3 CHOICE P 2 CH P 1 TABLE P 0 PARSERESULT I 4 ONCEONLY I 3 END I 2 START I 1 PARSETABLE I 0 STREAM) «€B•@B ¿AYdgð²3¿@ ¼laLñ©Ldlzñ¤l_å€LºI]µ h²^K°×[Jð•Kµöi°ðM°çdgð²¿I¹@ ¿I¾@IlN¿D²¨Hgð³ú@ _¿laOñªOdlzñ¥l_åOZIð”I±ÿ€C˜@ Cýñ²ÍJl ð’±ÿl@ Z±ÿc(245Q LA.SKIP.TO.EOL 224Q GETFILEPTR 124Q LAFITE.SKIP.WHITE.SPACE 11Q SETFILEPTR) (151Q STOP 111Q RESULT 21Q CHOICE) () LAFITE.GRAB.DATE D1 (P 2 I P 1 CH P 0 DATESTR I 0 STREAM F 3 PARSERESULT) Ug@ kHJ)Yµ°l,ð²*HJkØZ)l ð³÷HJhH¸HklHµHhScIl9ñ¥l0Iñ²âJkØº°¼(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 lÿñ˜HklÿH¸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 6 PAIR P 2 LINE P 1 LINELIST P 0 FIELD I 1 ARGS I 0 STREAM F 7 PARSERESULT) ‡A!0@` Z@ ¿½LµMh\[¿Jmÿ)dl ð¤dl ð›¿J °ìM&\°çl,ð²!J ¿@ dl ð¤dl ð—¿@ ¿i¿h³KYWMµHIWch^dHð¥¿M]°èI °í(203Q \NCONC2 125Q LAFITE.SKIP.WHITE.SPACE 106Q \PEEKBIN 101Q GLC 61Q GLC 23Q READC 16Q RSTRING) (13Q LINEPARSERRDTBL) () 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 (I 0 STREAM) @` @ ¿(12Q READC 6 RSTRING) (3 LINEPARSERRDTBL) () LA.SKIP.TO.EOL D1 (P 0 CH I 0 STREAM) @ l ð²ûHNIL 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 TOFIELDONLY 21Q \LAPARSE.TOCFIELDS 13Q TOCFIELDS 10Q \LAPARSE.FULL 2 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]J’±—MXA)\µ Ho ¿L@ M°d_A)Lð²d¾OµNh_N&_¿µáOYµ?AkØ1 HO)\µOgH °5_¿OµOh__¿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)) (COMS (* Mail polling and registration) (FNS \LAFITE.GET.USER.DATA GV.INIT.MAIL.USER LAFITECLEARCACHE MAILSERVERTYPE GETMAILSERVEROPS FULLUSERNAME GETREGISTRY LAFITEMAILWATCH POLLNEWMAIL POLLNEWMAIL1 PRINTLAFITESTATUS) (ADDVARS (MAILSERVERTYPES))) (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 FULLPARSEFIELDS TOCFIELDS 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 FULLPARSEFIELDS TOCFIELDS TOFIELDONLY ADDRESSPARSERRDTBL DEFAULTREGISTRY LAFITEDEBUGFLG LAFITEFLUSHMAILFLG LAFITEGETMAILTUNE LAFITEIFFROMMETHENSEENFLG LAFITENEWMAILTUNE LINEPARSERRDTBL MAILSERVERTYPES MAILWATCHWAITTIME \LAFITE.AUTHENTICATION.FAILURE \LAPARSE.FULL \LAPARSE.TOCFIELDS \LAPARSE.TOFIELD)))) (ADDTOVAR MAILSERVERTYPES) (RPAQQ 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 TOCFIELDS (("DATE:" LAFITE.GRAB.DATE) ("FROM:" LAFITE.READ.LINE.FOR.TOC FROM) ("SUBJECT:" LAFITE.READ.LINE.FOR.TOC SUBJECT) ("FORMAT:" LAFITE.READ.FORMAT))) (RPAQQ 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