(FILECREATED "20-May-85 11:09:28" ("compiled on " {EROS}MAILREADER>CALLTEXT>PROSE-LAFITE-MESSAGES.;9) "20-Dec-84 12:07:22" recompiled changes: \LAFITE.GETNEWMAIL1 in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "20-May-85 11:07:41" {EROS}MAILREADER>CALLTEXT>PROSE-LAFITE-MESSAGES.;9 24878 changes to: (FNS \LAFITE.GETNEWMAIL1) previous date: " 3-Apr-85 19:06:08" {EROS}MAILREADER>CALLTEXT>PROSE-LAFITE-MESSAGES.;8) 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 F 7 LAFITEFLUSHMAILFLG) p@@``@lLYdddZdgoC o hJg A Ig [5@JBA XGA @JWlMoC KCH Hdkoo CK oC @JhlNhoC o IoC IC oC (361Q PRIN1 350Q PRIN1 341Q PRIN1 324Q SAYT 315Q PRIN1 264Q PRIN1 251Q \LAFITE.GETNEWMAIL# 243Q SAYT 240Q CONCAT 216Q \LAFITE.GETNEWMAIL# 213Q LENGTH 204Q PRIN1 153Q \LAFITE.CLOSE.FOLDER 144Q \LAFITE.RETRIEVEMESSAGES 132Q LISTGET 121Q UNSELECTALLMESSAGES 114Q PRINTLAFITESTATUS 73Q SAYT 63Q PRIN1) (127Q #OFMESSAGES 111Q NEW.MAIL 47Q EMPTY 21Q \LAFITEUSERDATA 15Q \LAFITEUSERDATA) ( 355Q ")" 335Q " (" 321Q " not responding." 311Q " not responding" 260Q " retrieval aborted" 235Q " messages. " 230Q " message. " 200Q " 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 F 7 LAFITEGETMAILTUNE) @*@g oH o 1K8gH J @kh@ @J WgW NoH i^oL LH oH L@IH ]@M JMK[(247Q LAB.APPENDMESSAGES 240Q \LAFITE.GETNEWMAIL1 230Q PRIN1 217Q PRIN1 206Q SAYT 203Q CONCAT 164Q PRIN1 145Q PLAYTUNE 132Q MACHINETYPE 122Q LAB.EXPOSEMESSAGE 114Q SELECTMESSAGE 72Q PRIN1 44Q P.CHUNK 34Q PRIN1 22Q \LAFITE.GET.USER.DATA 14Q \LAFITE.OPEN.FOLDER) (135Q DANDELION 102Q MAILFOLDER 66Q %. 11Q APPEND 3 MAILFOLDER) ( 224Q " .." 174Q "Fetching mail from " 160Q "; " 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 F 1 LAFITEDEBUGFLG) EQ@$H oH @H oH BH oH AH oH CH o D[H oH H oH DH H oH D H H oH D H Q oC h(306Q HELP 272Q PRIN1 257Q PRIN1 246Q TERPRI 241Q PRIN1 226Q PRIN1 215Q TERPRI 210Q PRIN1 175Q PRIN1 164Q TERPRI 157Q PRIN1 146Q TERPRI 136Q P.CHUNK 126Q PRIN1 120Q PRIN1 107Q PRIN2 101Q PRIN1 70Q PRIN2 62Q PRIN1 51Q PRIN1 36Q PRIN1 25Q CLEARW) (264Q LAFITEMSG 233Q LAFITEMSG 202Q LAFITEMSG 43Q MAILFOLDER 14Q MAILFOLDER) ( 302Q "Mail file parsing error" 253Q "Subject: " 222Q "From: " 171Q "Date: " 153Q "Last message was:" 133Q "Cannot parse file. Please have someone scavenge your mail file. " 114Q " because: " 75Q ", byte " 56Q " near message " 32Q "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) d 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(533Q VERIFYFAILED 502Q VERIFYFAILED 261Q LA.READCOUNT 230Q LA.READCOUNT 214Q LA.READSTAMP 165Q NTHMESSAGE 144Q SETFILEPTR 104Q HELP 71Q RETFROM 62Q P.CHUNK 36Q GETEOFPTR 32Q \LAFITE.OPEN.FOLDER 13Q OBTAIN.MONITORLOCK) (465Q LAFITEMSG 452Q LAFITEMSG 422Q LAFITEMSG 415Q ? 353Q LAFITEMSG 346Q ? 314Q LAFITEMSG 273Q LAFITEMSG 240Q LAFITEMSG 172Q LAFITEMSG 123Q MAILFOLDER 114Q MAILFOLDER 44Q MAILFOLDER 27Q OLD 24Q INPUT 4 MAILFOLDER) ( 530Q "Last message too short" 477Q "Disagreement in mark byte" 437Q "Disagreement in seen mark" 370Q "Disagreement in delete mark" 305Q "Bad Message Length" 252Q "Bad Message Length" 221Q "Bad Stamp" 205Q "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 F 17Q UNSEENMARK) @*oH CjooH gH oCjoo @kkjhDCBJAJ A A ^A _ON@JIoOE A dlUhlDi@I _A dlUhdlSilNi@I _A _`dIdJdNOWO_dOdOkj dOkjdO_d@ JNغLMh\Ikع3M&JBjL@oOoOOJB_Oo OOkkjkjOK(540Q LAB.PROMPTPRINT 420Q 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) (600Q LAFITEMSG 553Q LAFITEMSG 546Q LAFITEMSG 513Q LAFITEMSG 506Q LAFITEMSG 473Q LAFITEMSG 312Q LAFITEMSGTYPE# 106Q MAILFOLDER 46Q ... 3 MAILFOLDER) ( 534Q " bytes. " 501Q " to " 466Q "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 7 MESSAGES P 6 I P 1 CONTENTSFILE P 0 MAILFILE I 0 MAILFOLDER) @AH Y @I @ ^o @*oJ @@ k@NMON jN iNk^hkj[0Kjh@@*oL h(210Q PRIN1 123Q NTHMESSAGE 63Q PRIN1 44Q SAYT 33Q PARSEMAILFOLDER 26Q READTOCFILE 20Q INFILEP 14Q TOCFILENAME) (175Q MAILFOLDER 126Q LAFITEMSG 103Q MAILFOLDER 74Q MAILFOLDER 70Q MAILFOLDER 50Q MAILFOLDER 3 MAILFOLDER) ( 204Q "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) (RECORDS LAFITEUSERDATA MAILSERVER MAILSERVEROPS OPENEDMAILBOX WORD) (CONSTANTS (DELETEDFLAG (CHARCODE D)) (UNDELETEDFLAG (CHARCODE U)) (SEENFLAG (CHARCODE S)) (UNSEENFLAG (CHARCODE U))) (MACROS WORDIN \WIN) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS ( ADDVARS (NLAMA) (NLAML) (LAMA LAB.PROMPTPRINT))) (DECLARE: EVAL@COMPILE (P (LOADCOMP (QUOTE {ERIS}LIBRARY>LAFITE)))))) (RECORD LAFITEUSERDATA (FULLUSERNAME UNPACKEDUSERNAME ENCRYPTEDPASSWORD SHORTUSERNAME . MAILSERVERS)) (RECORD MAILSERVER (MAILSERVEROPS MAILPORT MAILSERVERNAME CONTINUANCE . MAILSTATE)) (RECORD MAILSERVEROPS (POLLNEWMAIL OPENMAILBOX NEXTMESSAGE RETRIEVEMESSAGE CLOSEMAILBOX SERVERPORTFROMNAME)) (RECORD OPENEDMAILBOX (MAILBOX . PROPERTIES) (PROPRECORD PROPERTIES (#OFMESSAGES))) (ACCESSFNS WORD ((HIBYTE (LRSH DATUM 8)) (LOBYTE (LOGAND DATUM 255))) (CREATE (IPLUS (LLSH HIBYTE 8) LOBYTE))) (RPAQ DELETEDFLAG (CHARCODE D)) (RPAQ UNDELETEDFLAG (CHARCODE U)) (RPAQ SEENFLAG (CHARCODE S)) (RPAQ UNSEENFLAG (CHARCODE U)) (CONSTANTS (DELETEDFLAG (CHARCODE D)) (UNDELETEDFLAG (CHARCODE U)) (SEENFLAG (CHARCODE S)) (UNSEENFLAG (CHARCODE U))) (PUTPROPS WORDIN DMACRO (= . \WIN)) (PUTPROPS WORDIN MACRO (= . \WIN)) (PUTPROPS \WIN MACRO (OPENLAMBDA (STREAM) (CREATE WORD HIBYTE_ (\BIN STREAM) LOBYTE_ (\BIN STREAM)))) (LOADCOMP (QUOTE {ERIS}LIBRARY>LAFITE)) (PUTPROPS PROSE-LAFITE-MESSAGES COPYRIGHT ("Xerox Corporation" 1985)) NIL