(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("17-Jan-85 18:14:12" . {ERIS}<SPEECH>MAILREADER>PROSE-LAFITE-MESSAGES.;4)
FNS (LAB.PROMPTPRINT \LAFITE.GETNEWMAIL1 BADMAILFILE.FLAGBYTE \LAFITE.GETNEWMAIL BADMAILFILE 
VERIFYFAILED READTOCFILE VERIFYMAILFOLDER \LAFITE.VERIFYMSG PARSEMAILFOLDER1 LOADMAILFOLDER)
(READATABASE)
(
CALL LAB.PROMPTPRINT (\DTEST ARG IPLUS) \LAFITE.GETNEWMAIL1 (APPLY* CONCAT \LAFITE.RETRIEVEMESSAGES 
LENGTH) BADMAILFILE.FLAGBYTE (CONCAT) \LAFITE.GETNEWMAIL (\LAFITE.OPEN.FOLDER \LAFITE.GET.USER.DATA 
CONCAT \LAFITE.GETNEWMAIL1 MACHINETYPE) BADMAILFILE NIL VERIFYFAILED (CONCAT HELP) READTOCFILE (
RESETLST PRIN1 SAYT OPENSTREAM \LAFITE.OPEN.FOLDER LIST FUNCTION WORDIN \WIN BADTOCFILE FIXPIN 
\MAKENUMBER GETEOFPTR IQUOTIENT IDIFFERENCE IPLUS \LAFITE.MAKE.MSGARRAY GETFILEPTR BIN LA.READSTRING 
LA.READSHORTSTRING IMINUS PARSEMAILFOLDER1 ADD1 \LAFITE.ADDMESSAGES.TO.ARRAY) VERIFYMAILFOLDER (\DTEST
 WINDOWPROP \LAFITE.GETMAILFOLDER WITH.MONITOR RESETLST OBTAIN.MONITORLOCK \LAFITE.OPEN.FOLDER IEQP 
GETEOFPTR P.CHUNK RETFROM LIST VERIFYFAILED NTHMESSAGE LA.READCOUNT SELECTC BIN IPLUS) 
\LAFITE.VERIFYMSG (LA.READSTAMP P.CHUNK CONCAT TOCFILENAME RETFROM) PARSEMAILFOLDER1 (CONCAT 
LA.READCOUNT IGEQ BADMAILFILE SELECTC BIN BADMAILFILE.FLAGBYTE IPLUS LIST IDIFFERENCE CONS) 
LOADMAILFOLDER (TOCFILENAME NTHMESSAGE IPLUS) NIL
BIND LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL (WINDOW) 
BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE NIL VERIFYMAILFOLDER NIL \LAFITE.VERIFYMSG NIL 
PARSEMAILFOLDER1 (STARTFLG) LOADMAILFOLDER NIL NIL
NLAMBDA LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL NIL 
BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE NIL VERIFYMAILFOLDER NIL \LAFITE.VERIFYMSG NIL 
PARSEMAILFOLDER1 (CHARCODE) LOADMAILFOLDER NIL NIL
NOBIND LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL NIL 
BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE NIL VERIFYMAILFOLDER NIL \LAFITE.VERIFYMSG NIL 
PARSEMAILFOLDER1 NIL LOADMAILFOLDER NIL NIL
RECORD LAB.PROMPTPRINT (MAILFOLDER) \LAFITE.GETNEWMAIL1 (MAILSERVER LAFITEUSERDATA OPENEDMAILBOX) 
BADMAILFILE.FLAGBYTE (MAILFOLDER) \LAFITE.GETNEWMAIL (MAILFOLDER LAFITEUSERDATA MAILSERVER) 
BADMAILFILE (MAILFOLDER LAFITEMSG) VERIFYFAILED NIL READTOCFILE (MAILFOLDER LAFITEMSG) 
VERIFYMAILFOLDER (MAILFOLDER LAFITEMSG) \LAFITE.VERIFYMSG (MAILFOLDER LAFITEMSG) PARSEMAILFOLDER1 (
MAILFOLDER LAFITEMSG) LOADMAILFOLDER (MAILFOLDER LAFITEMSG) NIL
CREATE LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL NIL 
BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE (LAFITEMSG) VERIFYMAILFOLDER NIL \LAFITE.VERIFYMSG NIL 
PARSEMAILFOLDER1 (LAFITEMSG) LOADMAILFOLDER NIL NIL
FETCH LAB.PROMPTPRINT (BROWSERPROMPTWINDOW) \LAFITE.GETNEWMAIL1 (OPENMAILBOX MAILPORT FULLUSERNAME 
ENCRYPTEDPASSWORD #OFMESSAGES CLOSEMAILBOX PROPERTIES) BADMAILFILE.FLAGBYTE (BROWSERPROMPTWINDOW) 
\LAFITE.GETNEWMAIL (BROWSERPROMPTWINDOW MAILSERVERS MAILSERVERNAME) BADMAILFILE (BROWSERWINDOW 
FULLFOLDERNAME DATE FROM SUBJECT) VERIFYFAILED NIL READTOCFILE (BROWSERPROMPTWINDOW) VERIFYMAILFOLDER 
(FOLDERLOCK FOLDEREOFPTR MESSAGEDESCRIPTORS #OFMESSAGES BEGIN MESSAGELENGTH STAMPLENGTH MARKSCHANGED? 
DELETED? SEEN? MARKCHAR) \LAFITE.VERIFYMSG (FOLDERSTREAM BEGIN # FULLFOLDERNAME) PARSEMAILFOLDER1 (
BROWSERPROMPTWINDOW MESSAGELENGTH #) LOADMAILFOLDER (FULLFOLDERNAME BROWSERPROMPTWINDOW #OFMESSAGES 
MESSAGEDESCRIPTORS DELETED?) NIL
REPLACE LAB.PROMPTPRINT (BROWSERPROMPTDIRTY) \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL 
\LAFITE.GETNEWMAIL (BROWSERPROMPTDIRTY) BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE (
BROWSERPROMPTDIRTY # BEGIN MESSAGELENGTH STAMPLENGTH PARSED&DELETED&SEENBITS MSGFLAGBITS MARKCHAR DATE
 SUBJECT FROM TO TOCLENGTH TOCLASTMESSAGE# MESSAGEDESCRIPTORS #OFMESSAGES FOLDEREOFPTR BROWSERREADY) 
VERIFYMAILFOLDER NIL \LAFITE.VERIFYMSG NIL PARSEMAILFOLDER1 (BROWSERPROMPTDIRTY # BEGIN MESSAGELENGTH 
MARKCHAR SEEN? DELETED? STAMPLENGTH MESSAGELENGTHCHANGED? MARKSCHANGED?) LOADMAILFOLDER (
FOLDERNEEDSEXPUNGE) NIL
REFFREE LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 (\LAFITEUSERDATA LAFITEFLUSHMAILFLG) 
BADMAILFILE.FLAGBYTE (.P2) \LAFITE.GETNEWMAIL NIL BADMAILFILE NIL VERIFYFAILED (MSG#) READTOCFILE (
LAFITETOCPASSWORD LAFITEVERSION#) VERIFYMAILFOLDER (P.CONTROLLER UNDELETEDFLAG DELETEDFLAG UNSEENFLAG 
SEENFLAG) \LAFITE.VERIFYMSG NIL PARSEMAILFOLDER1 (UNDELETEDFLAG DELETEDFLAG UNSEENFLAG SEENFLAG 
UNSEENMARK) LOADMAILFOLDER NIL NIL
REF LAB.PROMPTPRINT (FOLDER&ARGS) \LAFITE.GETNEWMAIL1 (MAILSERVER REPORTWINDOW MAILFOLDER OUTSTREAM) 
BADMAILFILE.FLAGBYTE ($$OUTPUT MSG# MAILFOLDER) \LAFITE.GETNEWMAIL (REPORTWINDOW OUTSTREAM) 
BADMAILFILE (MAILFOLDER BROWSERWINDOW MSG# HERE ERRSTR) VERIFYFAILED (ERRMSG) READTOCFILE ($$OUTPUT 
TOCFILE TOCSTREAM FOLDERSTREAM) VERIFYMAILFOLDER (LASTMSG# MESSAGES) \LAFITE.VERIFYMSG (MAILFOLDER 
STREAM MSG) PARSEMAILFOLDER1 ($$OUTPUT START FIRSTMSG# EOFPTR STREAM NOERROR) LOADMAILFOLDER (MAILFILE
 $$OUTPUT MESSAGES) NIL
SETFREE LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL NIL 
BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE NIL VERIFYMAILFOLDER NIL \LAFITE.VERIFYMSG NIL 
PARSEMAILFOLDER1 NIL LOADMAILFOLDER NIL NIL
SET LAB.PROMPTPRINT (WINDOW I) \LAFITE.GETNEWMAIL1 (OPENRESULT MAILBOX #OFMESSAGES MESSAGELIST) 
BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL (MAILSERVER NTHTIME MESSAGELIST FIRSTMESSAGE) BADMAILFILE 
NIL VERIFYFAILED NIL READTOCFILE (TOCVERSION OLDTOCFORMAT END FOLDEREOFPTR READMORE MSGCOUNTGUESS 
LASTMSG# MESSAGES LENGTH MSG MESSAGESTART START I EXTRAMESSAGES) VERIFYMAILFOLDER (MAILFOLDER STREAM 
END MSG CHCOUNT STAMPCOUNT MARK HERE MSG#) \LAFITE.VERIFYMSG NIL PARSEMAILFOLDER1 (CHCOUNT STAMPCOUNT 
DELETED SEEN MARK LASTMSG HERE MSG#) LOADMAILFOLDER (CONTENTSFILE I) NIL
SMASHFREE LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL NIL 
BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE NIL VERIFYMAILFOLDER NIL \LAFITE.VERIFYMSG NIL 
PARSEMAILFOLDER1 NIL LOADMAILFOLDER NIL NIL
SMASH LAB.PROMPTPRINT (MAILFOLDER) \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL
 (MAILFOLDER) BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE (MAILFOLDER MSG) VERIFYMAILFOLDER NIL 
\LAFITE.VERIFYMSG NIL PARSEMAILFOLDER1 (MAILFOLDER LASTMSG) LOADMAILFOLDER (MAILFOLDER) NIL
PROP LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL NIL 
BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE NIL VERIFYMAILFOLDER (MAILFOLDER) \LAFITE.VERIFYMSG NIL 
PARSEMAILFOLDER1 NIL LOADMAILFOLDER NIL NIL
TEST LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 (MAILBOX #OFMESSAGES) BADMAILFILE.FLAGBYTE NIL 
\LAFITE.GETNEWMAIL (NTHTIME FIRSTMESSAGE) BADMAILFILE (NOERROR LASTMSG) VERIFYFAILED NIL READTOCFILE (
OLDTOCFORMAT READMORE) VERIFYMAILFOLDER NIL \LAFITE.VERIFYMSG NIL PARSEMAILFOLDER1 (SEEN) 
LOADMAILFOLDER NIL NIL
TESTFREE LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL (
LAFITEGETMAILTUNE) BADMAILFILE (LAFITEDEBUGFLG) VERIFYFAILED NIL READTOCFILE NIL VERIFYMAILFOLDER NIL 
\LAFITE.VERIFYMSG NIL PARSEMAILFOLDER1 NIL LOADMAILFOLDER NIL NIL
PREDICATE LAB.PROMPTPRINT (IGREATERP) \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL 
\LAFITE.GETNEWMAIL NIL BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE (IEQP LA.READSTAMP IGREATERP ZEROP
) VERIFYMAILFOLDER (WINDOWP LITATOM IGEQ IGREATERP LA.READSTAMP) \LAFITE.VERIFYMSG NIL 
PARSEMAILFOLDER1 (ZEROP LA.READSTAMP IEQP) LOADMAILFOLDER (INFILEP READTOCFILE PARSEMAILFOLDER 
IGREATERP) NIL
EFFECT LAB.PROMPTPRINT (CLEARW PRIN3 SAYT) \LAFITE.GETNEWMAIL1 (SELECTQ PRIN1 SAYT PRINTLAFITESTATUS 
UNSELECTALLMESSAGES \LAFITE.GETNEWMAIL# \LAFITE.CLOSE.FOLDER) BADMAILFILE.FLAGBYTE (DECLARE PRIN1 
PRIN2 SAYT) \LAFITE.GETNEWMAIL (PRIN1 P.CHUNK SAYT LAB.APPENDMESSAGES SELECTMESSAGE LAB.EXPOSEMESSAGE 
PLAYTUNE) BADMAILFILE (CLEARW PRIN1 PRIN2 P.CHUNK TERPRI HELP) VERIFYFAILED (DECLARE P.CHUNK RETFROM) 
READTOCFILE (DECLARE RESETSAVE WHENCLOSE SETFILEPTR SETA) VERIFYMAILFOLDER (DECLARE HELP SETFILEPTR) 
\LAFITE.VERIFYMSG (SETFILEPTR HELP) PARSEMAILFOLDER1 (DECLARE PRIN1 SAYT SETFILEPTR 
LAFITE.PARSE.MSG.FOR.TOC FRPLACD LAB.PROMPTPRINT) LOADMAILFOLDER (SAYT DECLARE PRIN1) NIL
CLISP LAB.PROMPTPRINT (for from to do) \LAFITE.GETNEWMAIL1 (printout) BADMAILFILE.FLAGBYTE (printout) 
\LAFITE.GETNEWMAIL (for in bind when do printout) BADMAILFILE (printout) VERIFYFAILED NIL READTOCFILE 
(printout for from to bind do) VERIFYMAILFOLDER (type? bind for from while do finally) 
\LAFITE.VERIFYMSG NIL PARSEMAILFOLDER1 (printout bind for from while collect finally) LOADMAILFOLDER (
printout for from to bind thereis) NIL
SPECVARS LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL NIL 
BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE (MAILFOLDER TOCSTREAM) VERIFYMAILFOLDER (MSG# MSG HERE 
CHCOUNT) \LAFITE.VERIFYMSG NIL PARSEMAILFOLDER1 NIL LOADMAILFOLDER NIL NIL
LOCALVARS LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE ($$OUTPUT) 
\LAFITE.GETNEWMAIL NIL BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE ($$OUTPUT) VERIFYMAILFOLDER NIL 
\LAFITE.VERIFYMSG NIL PARSEMAILFOLDER1 ($$OUTPUT) LOADMAILFOLDER ($$OUTPUT) NIL
APPLY LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL NIL 
BADMAILFILE NIL VERIFYFAILED (P.CONTROLLER) READTOCFILE (CLOSEF?) VERIFYMAILFOLDER NIL 
\LAFITE.VERIFYMSG (P.CONTROLLER) PARSEMAILFOLDER1 NIL LOADMAILFOLDER NIL NIL
ERROR LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 (apply) BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL NIL 
BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE NIL VERIFYMAILFOLDER (stackfn) \LAFITE.VERIFYMSG NIL 
PARSEMAILFOLDER1 NIL LOADMAILFOLDER NIL NIL
LOCALFREEVARS LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL 
NIL BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE NIL VERIFYMAILFOLDER NIL \LAFITE.VERIFYMSG NIL 
PARSEMAILFOLDER1 NIL LOADMAILFOLDER NIL NIL
ARGS LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL NIL 
BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE NIL VERIFYMAILFOLDER NIL \LAFITE.VERIFYMSG NIL 
PARSEMAILFOLDER1 NIL LOADMAILFOLDER NIL NIL
USERTEMPLATES OP# (CALL) WINDOWPROP (CALL EVAL PROP EVAL . PPE) SHAZAM (CALL .. NIL) perform (MACRO 
ARGS (PERFORMTRAN ARGS T)) PERFORM (MACRO ARGS (PERFORMTRAN ARGS T)) WINDOWDELPROP (CALL EVAL PROP 
EVAL . PPE) WINDOWADDPROP (CALL EVAL PROP EVAL EVAL . PPE) UNINTERRUPTABLY (CALL .. EVAL) NIL
0 LAB.PROMPTPRINT NIL \LAFITE.GETNEWMAIL1 NIL BADMAILFILE.FLAGBYTE NIL \LAFITE.GETNEWMAIL NIL 
BADMAILFILE NIL VERIFYFAILED NIL READTOCFILE NIL VERIFYMAILFOLDER NIL \LAFITE.VERIFYMSG NIL 
PARSEMAILFOLDER1 NIL LOADMAILFOLDER NIL NIL

)