(FILECREATED "15-Nov-84 14:05:09" ("compiled on " {ERIS}LAFITE.;105) "23-Oct-84 17:59:44" recompiled exprs: RELEASE.LAFITE in "INTERLISP-D 23-Oct-84 ..." dated "23-Oct-84 18:17:36") (FILECREATED "15-Nov-84 14:03:31" {ERIS}LAFITE.;105 64452 changes to: (VARS LAFITECOMS LAFITEGLOBALS LAFITECOMMANDMENUITEMS LAFITESUBQUITMENUITEMS LAFITEPROFILEVARS) (RECORDS MAILSERVER) ( FNS \LAFITEDEFAULTHOST&DIR \LAFITE.MODE.TITLE MAKELAFITECOMMANDWINDOW LAFITEMODE \LAFITE.AFTERLOGIN \LAFITE.QUIT.PROC \LAFITE.QUIT \LAFITE.READ.PROFILE \LAFITE.SUBQUIT \LAFITE.RESTART PROMPTFORFILENAME DOMAINLAFITECOMMAND \LAFITE.START.PROC \LAFITE.GLOBAL.INIT \LAFITE.SHOW.MODE LAFITE LA.LONGFILENAME) previous date: "24-Sep-84 15:19:52" {ERIS}LAFITE.;92) LAFITE D1 (P 0 X) ekHg@dgdg`` g`o` o ggHk`AIddidd gIhHl2JdI3KIddidd gIhhg gaL Mh\JkZM&dgdg*`ggg g` ` @l (405Q \LISPERROR 373Q \LAFITE.QUIT.PROC 365Q ASSOC 353Q DEL.PROCESS 260Q \LAFITE.PROCESS 105Q PRINTLAFITESTATUS 75Q MAKELAFITECOMMANDWINDOW 71Q WINDOWP 46Q TOTOPW) (370Q LAFITEMAINMENU 362Q LAFITECOMMANDMENUITEMS 357Q Quit 350Q LAFITE 343Q INIT 337Q OFF 332Q \LAFITE.ACTIVE 323Q off 315Q OFF 263Q ON 255Q LAFITE 241Q QUOTE 162Q QUOTE 125Q DEFAULTMAILFOLDERNAME 116Q \LAFITE.START.PROC 113Q \LAFITE.ACTIVE 110Q INIT 66Q LAFITESTATUSWINDOW 55Q \RUNNING.PROCESS 51Q ON 43Q LAFITESTATUSWINDOW 37Q \LAFITE.ACTIVE 26Q on 20Q ON 12Q ON) ( 102Q "Initializing" 62Q "No Processes!") \LAFITE.START.PROCA0001 D1 (NAME ERRORSET F 0 RESETY) `hi ci(13Q \LAFITE.GET.USER.DATA 7 OBTAIN.MONITORLOCK) (2 \LAFITE.MAILSERVERLOCK) () \LAFITE.START.PROC D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 OPTIONS I 0 MAILFILE F 3 RESETVARSLST F 4 LISPXHIST) ghhhSc`` o o o o `hdo ```o ig`g`g`g`iT!Sog hgZ Jogggg @AgA)gA"`bg` `h@A `gg(370Q \LAFITE.BROWSE 356Q ASSOC 305Q ADD.PROCESS 257Q ERROR! 251Q RESETRESTORE 237Q \LAFITE.START.PROCA0001 136Q LA.CREATE.UPDATE.MENUS 116Q LA.CREATE.UPDATE.MENUS 102Q \LAFITE.READ.PROFILE 74Q CREATE.MONITORLOCK 62Q CREATE.MONITORLOCK 50Q CREATE.MONITORLOCK 36Q CREATE.MONITORLOCK 27Q \LAFITEDEFAULTHOST&DIR) (404Q DOMAINLAFITECOMMAND 377Q DOMAINLAFITECOMMAND 374Q LAFITEMAINMENU 361Q LAFITEMAINMENU 351Q MENU 346Q LAFITEMAINMENU 343Q Browse 334Q DEFAULTMAILFOLDERNAME 325Q SHRINK 314Q SHRINK 301Q SUSPEND 276Q AFTEREXIT 273Q HARDRESET 270Q RESTARTABLE 245Q ERROR 234Q INTERNAL 220Q \LAFITE.ACTIVE 213Q AROUNDEXITFNS 207Q AROUNDEXITFNS 204Q LAFITE.AROUNDEXIT 177Q AROUNDEXITFNS 174Q LAFITE.AROUNDEXIT 170Q \AFTERLOGINFNS 164Q \AFTERLOGINFNS 161Q \LAFITE.AFTERLOGIN 154Q \AFTERLOGINFNS 151Q \LAFITE.AFTERLOGIN 146Q \LAFITE.READY 142Q LAFITEUPDATEMENUS 127Q LAFITECLOSEITEM 124Q LAFITECLOSELABELS 121Q LAFITEUPDATEMENUITEMS 105Q LAFITEUPDATEMENUITEMS 77Q \LAFITE.HARDCOPYLOCK 65Q \LAFITE.PROFILELOCK 53Q \LAFITE.MAINLOCK 41Q \LAFITE.BROWSELOCK 24Q LOGINHOST/DIR 17Q LAFITEDEFAULTHOST&DIR 2 \LAFITE.START.ABORT) ( 265Q (LAFITEMAILWATCH) 231Q (\LAFITE.START.PROCA0001) 133Q "Close/Shrink Options" 113Q "Update Options" 71Q "Lafite hardcopy" 57Q "Lafite Profile" 45Q "Lafite Main" 33Q "Lafite Browser Control") LA.CREATE.UPDATE.MENUS D1 (P 0 OTHERMENUS I 3 TITLE I 2 LASTITEM I 1 LASTLABELS I 0 MENUITEMS) 1@`hbB@ABh ABC @C H(54Q \LAFITE.CREATE.MENU 44Q LA.CREATE.UPDATE.MENUS 33Q \APPEND2) (10Q LAFITEUPDATETOCITEM) () \LAFITE.PROCESS D1 (I 3 RESTARTABLE I 2 ALLOWLOGOUT I 1 NAME I 0 FORM) @gAgCggBhg (33Q ADD.PROCESS) (27Q DON'T 20Q BEFOREEXIT 15Q NO 7 RESTARTABLE 3 NAME) () \LAFITE.START.ABORT D1 (F 0 RESETSTATE) P`i` hh(16Q CLOSEW) (25Q LAFITESTATUSWINDOW 22Q \LAFITE.ACTIVE 13Q LAFITESTATUSWINDOW 5 \LAFITE.ACTIVE) () \LAFITE.QUIT D1 (I 2 BUTTON I 1 MENU I 0 ITEM) SBg@A g@ddidd g@hAddidd gAhhg (120Q \LAFITE.PROCESS 12Q \LAFITE.SUBQUIT) (115Q LAFITEQUIT 102Q QUOTE 46Q QUOTE 16Q \LAFITE.QUIT.PROC 3 MIDDLE) () \LAFITE.RESTART D1 (I 1 MENU I 0 ITEM) @A gh (15Q LAFITE 4 \LAFITE.QUIT.PROC) (11Q ON) () \LAFITE.SUBQUIT D1 (P 7 COMMAND P 6 MODES P 4 MODE I 1 MENU I 0 ITEM) `QHI`N ShP\d;o Lh]ddidd gMhohJ KhZYHXK&Z``N o  _d HGO@ddidd g@hAddidd gAhhg h(325Q \LAFITE.PROCESS 215Q LAFITEMODE 204Q MENU 176Q \LAFITE.CREATE.MENU 167Q \APPEND2 57Q CONCAT 30Q EQUAL) (322Q LAFITEQUIT 307Q QUOTE 253Q QUOTE 201Q LAFITESUBQUITMENU 163Q LAFITESUBQUITMENUITEMS 156Q LAFITESUBQUITMENU 113Q QUOTE 36Q LAFITESUBQUITMENU 25Q \LAFITE.MODE.CHOICES 21Q \LAFITE.MODE.CHOICES 2 LAFITEMODELST) ( 173Q "Mode Change" 123Q "Change to this mode of mail sending/retrieving" 54Q " Mode") \LAFITE.QUIT.PROCA0001 D1 (NAME ERRORSET P 10Q FILE P 7 WINDOW P 6 BROWSERWINDOW P 5 FOLDER P 1 MENUREG P 0 HOW? F 11Q MENU F 12Q ITEM F 13Q RESETY)  WW `hi `hi l``!J{`H X#g` !Lh`o o W HIIkH IH i d([d$B>k2Kd jl"0jlK K ll\HLXJZ6]$^Mi MglHL\4dO O Og _ O h`` `g` `dO O hg ` ` hici(645Q CLOSEW 635Q OPENWP 626Q LAFITECLEARCACHE 622Q DEL.PROCESS 577Q DELFILE 571Q CLOSEF? 546Q REMOVE 534Q \LAFITE.WRITE.PROFILE 524Q CLOSEW 476Q CLOSEW 470Q WINDOWP 463Q GETWINDOWUSERPROP 452Q OPENWP 443Q WINDOWP 410Q \LAFITE.CLOSE.FOLDER 242Q MENU 227Q CHECK/MENU/IMAGE 212Q CHECK/MENU/IMAGE 171Q \INSUREWINDOW 166Q WFROMMENU 160Q \LAFITE.CREATE.MENU 151Q \APPEND2 106Q \APPEND2 70Q NTH 30Q OBTAIN.MONITORLOCK 17Q OBTAIN.MONITORLOCK 6 LA.RESETSHADE) (713Q LAFITESUBQUITMENU 710Q \LAFITE.MODE.CHOICES 705Q LAFITEFORMATMENU 702Q LAFITEFOLDERSMENU 677Q LAFITEFORMSMENU 674Q LAFITEFORMFILES 671Q \LAFITE.LAST.STATUS 666Q LAFITEPRIMARYDISPLAYWINDOW 663Q \LAFITEDEFAULTHOST&DIR 660Q LAFITEUPDATEMENUS 655Q LAFITEMAINMENU 652Q LAFITESTATUSWINDOW 642Q LAFITESTATUSWINDOW 632Q LAFITESTATUSWINDOW 617Q LAFITEMAILWATCH 613Q \LAFITE.ACTIVE 610Q \LAFITE.TEMPFILES 555Q \LAFITE.TEMPFILES 551Q AROUNDEXITFNS 543Q AROUNDEXITFNS 540Q LAFITE.AROUNDEXIT 530Q \LAFITEPROFILECHANGED 520Q \LAFITE.OUTBOX 514Q \LAFITE.OUTBOX 510Q LAFITEEDITORWINDOWS 460Q ICONWINDOW 415Q CLOSE 376Q MAILFOLDER 342Q MAILFOLDER 334Q MAILFOLDER 316Q MAILFOLDER 300Q MAILFOLDER 265Q MAILFOLDER 256Q MAILFOLDER 232Q BITMAP 215Q BITMAP 140Q MENU 132Q LAFITEEDITORWINDOWS 126Q \ACTIVELAFITEFOLDERS 103Q \ACTIVELAFITEFOLDERS 77Q \LAFITE.FINISH.UPDATE 63Q LAFITEUPDATEMENUS 50Q \ACTIVELAFITEFOLDERS 41Q \LAFITE.ACTIVE 23Q \LAFITE.MAINLOCK 12Q \LAFITE.BROWSELOCK) ( 155Q "How should browsers be closed?" 146Q (("Don't Quit" NIL "Abort the Quit command"))) \LAFITE.QUIT.PROC D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 MENU I 0 ITEM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LAFITE.QUIT.PROCA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LAFITE.QUIT.PROCA0001)) \LAFITEDEFAULTHOST&DIR D1 (P 2 UNPACKEDFIELDS P 1 HOST P 0 OLDHOST&DIR I 0 HOST&DIR) Z`!@ H X@@@ Zdg Y *@ $J lIJg @hhHo@ (127Q ERROR 76Q LISTGET 61Q LENGTH 53Q DIRECTORYNAMEP 45Q HOSTNAMEP 41Q LISTGET 31Q UNPACKFILENAME 17Q U-CASE) (115Q LAFITEFOLDERSMENU 112Q LAFITEFORMSMENU 106Q \LAFITEDEFAULTHOST&DIR 73Q DIRECTORY 36Q HOST 2 \LAFITEDEFAULTHOST&DIR) ( 123Q "Invalid HOST/DIRECTORY") LAFITEDEFAULTHOST&DIR D1 (L (0 HOST&DIR)) @NIL (3 LAFITEDEFAULTHOST&DIR) () MAKELAFITECOMMANDWINDOWA0013 D1 (I 0 WINDOW) `ljhh(17Q \LAFITE.WAKE.WATCHER) (14Q \LAFITE.LAST.STATUS 2 LASTMOUSEBUTTONS) () MAKELAFITECOMMANDWINDOW D1 (P 5 WIDTH P 4 HEIGHT P 3 POSITION P 2 MENUWREGION P 1 MENUW P 0 STATUSWINDOW) `d`dgdi odNd`d`$dg dgjdndh_dO  Yd Zd``]`oj \`MLJhddo [dKJMLh X`H IHg Hgg HgjL HgnL H H(350Q OPENW 344Q PUTWINDOWPROP 330Q PUTWINDOWPROP 316Q PUTWINDOWPROP 304Q ATTACHWINDOW 274Q DSPFONT 264Q CREATEW 237Q GETBOXPOSITION 206Q HEIGHTIFWINDOW 143Q \INSUREWINDOW 136Q MENUWINDOW 34Q \LAFITE.MODE.TITLE) (354Q LAFITESTATUSWINDOW 334Q MAINWINDOWMAXSIZE 322Q MAINWINDOWMINSIZE 313Q MAKELAFITECOMMANDWINDOWA0013 310Q BUTTONEVENTFN 301Q BOTTOM 270Q LAFITEMENUFONT 212Q LAFITESTATUSWINDOWPOSITION 172Q FONTDESCRIPTOR 167Q LAFITEMENUFONT 163Q LAFITESTATUSWINDOWMINWIDTH 155Q LAFITESTATUSWINDOWMINWIDTH 133Q LAFITEMAINMENU 101Q DEFAULTMENUHELDFN 72Q CLRPROMPT 63Q LAFITETITLEFONT 54Q LAFITEMENUFONT 21Q NILL 12Q LAFITECOMMANDMENUITEMS 5 MENUTYPE#) ( 233Q "Specify position of the Lafite Command Menu." 200Q 1.5 42Q "L a f i t e") EXTRACTMENUCOMMAND D1 (I 0 ITEM) @d@ @(15Q EVAL) NIL () DOMAINLAFITECOMMAND D1 (I 2 BUTTON I 1 MENU I 0 ITEM) @ @ABlH(3 EXTRACTMENUCOMMAND) NIL () LAFITEMODEA0001 D1 (NAME ERRORSET F 0 RESETY) `hi ho ci(30Q \LAFITE.WAKE.WATCHER 24Q PRINTLAFITESTATUS 7 OBTAIN.MONITORLOCK) (14Q \LAFITEUSERDATA 2 \LAFITE.MAILSERVERLOCK) ( 21Q "Reinitializing") LAFITEMODE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 MODE F 3 LISPXHIST F 4 RESETVARSLST) W`@P@` @ bdl%`@,S!Tog hbgZ J(122Q ERROR! 114Q RESETRESTORE 75Q LAFITEMODEA0001 55Q \LAFITE.SHOW.MODE 23Q \ILLEGAL.ARG 15Q ASSOC) (110Q ERROR 72Q INTERNAL 46Q \LAFITEMODE 41Q \LAFITEMODE 12Q LAFITEMODELST 2 \LAFITEMODE) ( 67Q (LAFITEMODEA0001)) \LAFITE.SHOW.MODE D1 (P 1 MENU P 0 TITLE) `HIHI I h(34Q REDISPLAYW 31Q WFROMMENU 24Q UPDATE/MENU/IMAGE 2 \LAFITE.MODE.TITLE) (5 LAFITEMAINMENU) () \LAFITE.MODE.TITLE D1 NIL N`/`dgih`1HIo`o dJ KhZYHXK&Z(61Q CONCAT) (51Q \LAFITEMODE 26Q LAFITEMODELST 13Q ALWAYS 7 LAFITESHOWMODEFLG 2 \LAFITEMODE) ( 56Q ")" 46Q "L a f i t e (") LA.RESETSHADE D1 (I 2 OLDSHADE I 1 MENU I 0 ITEM F 0 RESETVARSLST) g@ABjh@A` hPc(25Q SHADEITEM) (22Q LAFITEITEMBUSYSHADE 2 SHADEITEM) () LA.REMOVEDUPLICATES D1 (P 4 GOOD P 2 RESULT P 1 X I 0 LST) A@!H Jd JKhIJHXIL` gLiK[(57Q ALPHORDER 16Q REVERSE) (62Q EQUAL 54Q UPPERCASEARRAY) () COLLECTOLDFILES D1 (P 3 FILE I 1 EXT I 0 FILES) 40@"dKdA KhXI HZYJ YH(55Q LAST 24Q INFILEP 21Q LA.LONGFILENAME) NIL () LA.SETDIFFERENCE D1 (P 5 ELT P 4 OTHER I 1 Y I 0 X) A`@7dAh[h)dI HhZML` gLiKH&J(50Q ALPHORDER) (53Q EQUAL 45Q UPPERCASEARRAY) () NTHMESSAGE D1 (L (1 N 0 MESSAGES)) @A(NIL NIL () \LAFITE.MAKE.MSGARRAY D1 (I 2 OLDSIZE I 1 OLDARRAY I 0 SIZE) :@l @l?mHdIIg !ABkJIHJAJ(*JkZH(33Q ARRAY) (30Q POINTER) () \LAFITE.ADDMESSAGES.TO.ARRAY D1 (I 3 LASTMSG# I 2 FIRSTMSG# I 1 MESSAGELIST I 0 MSGARRAY) ;@C@ C@Bk bABABH@@IJ*HIkع(35Q SHOULDNT 20Q \LAFITE.MAKE.MSGARRAY 6 ARRAYSIZE) NIL () LAFITE.AROUNDEXITA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 FOLDER F 2 RESETY) &`HhciY id Ii HX(36Q \LAFITE.CLOSE.FOLDER 30Q OBTAIN.MONITORLOCK) (2 \ACTIVELAFITEFOLDERS) () LAFITE.AROUNDEXIT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 EVENT F 3 LISPXHIST F 4 RESETVARSLST) `@dg(hS!Tog hgZ JIg@g@g@g`io g (135Q CHECKLAFITEMAILFOLDERS 132Q RESTART.PROCESS 124Q PRINTLAFITESTATUS 52Q ERROR! 45Q RESETRESTORE 33Q LAFITE.AROUNDEXITA0001) (127Q LAFITEMAILWATCH 111Q \LAFITE.ACTIVE 103Q AFTERMAKESYS 75Q AFTERSYSOUT 67Q AFTERSAVEVM 60Q AFTERLOGOUT 41Q ERROR 30Q INTERNAL 14Q \LAFITEUSERDATA 4 BEFORELOGOUT) ( 121Q "Reinitializing" 25Q (DUMMY.FOR.ERRORSET)) CHECKLAFITEMAILFOLDERSA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 7 BROWSERWINDOW P 6 FULLNAME P 5 NEWESTNAME P 4 FOLDER F 10Q RESETY) +`hi ``qHIic\$_L ]L^hNg L0jiO 4O gLddidd gLhhg io` N` o` RMMg Ng ` o` N` "` M` o` ` hho` OL Li iLJ KhZHXK&(421Q \LAFITE.CLOSE.FOLDER 413Q CLOSEW 410Q LAB.FLUSHWINDOW 401Q PRIN1 361Q TERPRI 352Q PRIN1 337Q PRIN1 327Q TERPRI 317Q PRIN1 307Q PRIN1 274Q TERPRI 262Q FILENAMEFIELD 253Q FILENAMEFIELD 237Q PRIN1 224Q PRIN1 214Q TERPRI 202Q \LAFITE.PROCESS 131Q CLEARW 122Q OPENWP 102Q GETFILEINFO 63Q INFILEP 7 OBTAIN.MONITORLOCK) (376Q PROMPTWINDOW 356Q PROMPTWINDOW 347Q PROMPTWINDOW 334Q PROMPTWINDOW 324Q PROMPTWINDOW 314Q PROMPTWINDOW 304Q PROMPTWINDOW 271Q PROMPTWINDOW 257Q VERSION 250Q VERSION 234Q PROMPTWINDOW 221Q PROMPTWINDOW 211Q PROMPTWINDOW 177Q LAFITEBROWSE 165Q QUOTE 135Q \LAFITE.REBROWSEFOLDER 77Q LENGTH 40Q \LAFITE.READY 33Q \ACTIVELAFITEFOLDERS 17Q \ACTIVELAFITEFOLDERS 13Q \LAFITE.READY 2 \LAFITE.BROWSELOCK) ( 373Q " - closing its browser window." 344Q " is a newer version than is currently being browsed." 301Q "Couldn't find file " 231Q " has changed") CHECKLAFITEMAILFOLDERS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) .`)`#S!Tog hgZ JIh(47Q ERROR! 42Q RESETRESTORE 30Q CHECKLAFITEMAILFOLDERSA0001) (36Q ERROR 25Q INTERNAL 7 \LAFITE.READY 2 \ACTIVELAFITEFOLDERS) ( 22Q (DUMMY.FOR.ERRORSET)) \LAFITE.REBROWSEFOLDERA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 MAILFOLDER F 1 RESETY) .P hi Po P$ P Pkkjhci(34Q LAB.LOADFOLDER 27Q CLEARW 20Q LAB.PROMPTPRINT 7 OBTAIN.MONITORLOCK) NIL ( 15Q "Folder has changed--rebrowsing...") \LAFITE.REBROWSEFOLDER D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 MAILFOLDER F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LAFITE.REBROWSEFOLDERA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \LAFITE.AFTERLOGIN D1 (I 1 USER I 0 HOST) @h(7 \LAFITE.WAKE.WATCHER 4 LAFITECLEARCACHE) NIL () \LAFITE.WRITE.PROFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 PROFILEFILE F 1 RESETY) 8`hi Pgg c`P oP `P P ci(62Q CLOSEF 55Q PRIN2 45Q PRIN1 34Q PRIN2 22Q OPENFILE 7 OBTAIN.MONITORLOCK) (51Q LAFITEFORMFILES 30Q LAFITEMAILFOLDERS 17Q NEW 14Q OUTPUT 2 \LAFITE.PROFILELOCK) ( 41Q " ") \LAFITE.WRITE.PROFILE D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 PROFILEFILE F 4 LISPXHIST F 5 RESETVARSLST) -T!Uog hg[ Kh(44Q ERROR! 36Q RESETRESTORE 24Q \LAFITE.WRITE.PROFILEA0001 2 PROFILEFILENAME) (52Q \LAFITEPROFILECHANGED 32Q ERROR 21Q INTERNAL) ( 16Q (DUMMY.FOR.ERRORSET)) \LAFITE.READ.PROFILEA0001 D1 (NAME ERRORSET F 0 PROFILEFILE F 1 RESETY) *`hi Pg P P P ci(44Q CLOSEF 34Q READ 24Q READ 17Q OPENFILE 7 OBTAIN.MONITORLOCK) (37Q LAFITEFORMFILES 27Q LAFITEMAILFOLDERS 14Q INPUT 2 \LAFITE.PROFILELOCK) () \LAFITE.READ.PROFILE D1 (P 10Q FILE P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 NEWFILES P 0 PROFILEFILE F 11Q LISPXHIST F 12Q RESETVARSLST) hH iW!Wog hg\ L``G`@`d_` NMh_M&Oi`hh(127Q LA.SHORTFILENAME 60Q ERROR! 52Q RESETRESTORE 40Q \LAFITE.READ.PROFILEA0001 15Q INFILEP 2 PROFILEFILENAME) (204Q LAFITEMAILFOLDERS 200Q LAFITEFORMFILES 171Q \LAFITEDEFAULTHOST&DIR 164Q \LAFITEPROFILECHANGED 157Q LAFITEMAILFOLDERS 124Q LAFITEMAIL.EXT 113Q LAFITEMAILFOLDERS 102Q \LAFITEDEFAULTHOST&DIR 71Q \LAFITEDEFAULTHOST&DIR 65Q LAFITEMAILFOLDERS 46Q ERROR 35Q INTERNAL 11Q \LAFITEPROFILECHANGED) ( 32Q (\LAFITE.READ.PROFILEA0001)) DELETEMAILFOLDER D1 (P 0 FILE I 0 MAILFOLDER) 8@@` @X H H Xd H h(64Q DELFILE 60Q CLOSEF? 53Q TOCFILENAME 47Q DELFILE 43Q CLOSEF? 31Q FORGETMAILFILE 26Q LA.SHORTFILENAME) (35Q MAILFOLDER 23Q LAFITEMAIL.EXT 16Q MAILFOLDER 6 MAILFOLDER) () FORGETMAILFILE D1 (I 0 FILENAME) @` ih(6 DREMOVE) (21Q LAFITEFOLDERSMENU 15Q \LAFITEPROFILECHANGED 11Q LAFITEMAILFOLDERS 3 LAFITEMAILFOLDERS) () \LAFITE.UNCACHE.FOLDER D1 (P 0 FOLDER I 1 MENU I 0 ITEM) 2` Hd ` H` o` h(56Q PRIN1 43Q PRIN1 33Q TERPRI 24Q FORGETMAILFILE 12Q MENU 7 MAKELAFITEMAILFOLDERSMENU) (53Q PROMPTWINDOW 40Q PROMPTWINDOW 30Q PROMPTWINDOW 2 LAFITEFOLDERSMENU) ( 50Q " forgotten.") \LAFITE.OPEN.FOLDER D1 (P 2 FILE P 1 DESIREDACCESS P 0 STREAM I 2 RECOG I 1 ACCESS I 0 FOLDER) Q@AgAgHHI HHH H @h@IB@$ ZIgnJ @JJ(110Q LINELENGTH 72Q \LAFITE.OPENSTREAM 50Q CLOSEF 42Q OPENP 30Q OPENP) (77Q BOTH 15Q BOTH 6 INPUT) () \LAFITE.OPENSTREAM D1 (I 3 BIGBUFS I 2 RECOG I 1 ACCESS I 0 FILE) *@ABhoC g`hh bdgg @(46Q WHENCLOSE 32Q OPENSTREAM) (43Q NO 40Q CLOSEALL 20Q LAFITEBUFFERSIZE 15Q BUFFERS) ( 7 (ENDOFSTREAMOP \LAFITE.EOF)) \LAFITE.CREATE.MENU D1 (I 1 TITLE I 0 ITEMS) >`d@d`dAdi dg dgjdndhHdI NIL (44Q DEFAULTMENUHELDFN 35Q CLRPROMPT 14Q LAFITEMENUFONT 2 MENUTYPE#) () \LAFITE.EOF D1 (L (0 STREAM)) l NIL NIL () \LAFITE.CLOSE.FOLDER D1 (P 0 STREAM I 1 REALLYP I 0 MAILFOLDER) /@HhAH H @hHg Hi @(51Q FORCEOUTPUT 42Q OPENP 25Q CLOSEF 17Q OPENP) (37Q OUTPUT) () PROMPTFORFILENAMEA0001 D1 (NAME ERRORSET P 2 HEIGHT P 1 WIDTH P 0 FONT F 5 PROMPT F 6 RESETVARSLST F 7 WINDOW F 10Q RESETY F 11Q DEFAULT) Uoc g` hhVc WgWg AUH lAH l2 H ``IٻdKK``JټdLLIJh cgWhhhVc UWhW ci(217Q PROMPTFORWORD 161Q CREATEW 110Q HEIGHTIFWINDOW 76Q WIDTHIFWINDOW 67Q CHARWIDTH 61Q STRINGWIDTH 51Q DEFAULTFONT 21Q TTY.PROCESS) (170Q CLOSEW 136Q SCREENHEIGHT 133Q LASTMOUSEY 117Q SCREENWIDTH 114Q LASTMOUSEX 103Q FONTDESCRIPTOR 46Q DISPLAY 41Q CLEARW 16Q \RUNNING.PROCESS 13Q TTY.PROCESS) ( 5 "Filename (CR to abort): ") PROMPTFORFILENAME D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 PROMPT I 1 DEFAULT I 0 WINDOW F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q PROMPTFORFILENAMEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (PROMPTFORFILENAMEA0001)) \LAFITE.PROMPTFORFOLDER D1 (P 0 FILE I 0 WINDOW) ` Hdhg@ H(33Q PROMPTFORFILENAME 12Q MENU 7 MAKELAFITEMAILFOLDERSMENU) (25Q ##ANOTHERFILE## 2 LAFITEFOLDERSMENU) () MAKELAFITEMAILFOLDERSMENU D1 NIL d`` `h HdIo` HdIdi dg dgjdndhHdI (54Q CONCAT 51Q L-CASE 22Q \APPEND2 12Q SORT) (141Q LAFITEFOLDERSMENU 106Q DEFAULTMENUHELDFN 77Q CLRPROMPT 43Q \LAFITEDEFAULTHOST&DIR 15Q ANOTHERFOLDERMENUITEM 6 LAFITEMAILFOLDERS 2 MENUTYPE#) ( 40Q "Folders on ") MAILFOLDERBUSYA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 MACROY) ` ci(5 BLOCK) (2 LAFITEBUSYWAITTIME) () MAILFOLDERBUSY D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 MAILFOLDER F 4 RESETVARSLST) =` 1gHhhTcYog gIcgI KJ(70Q ERROR! 63Q APPLY 40Q MAILFOLDERBUSYA0001 5 CURSOR) (54Q CURSOR 44Q ERROR 35Q INTERNAL 13Q CURSOR 2 LA.CROSSCURSOR) ( 32Q (DUMMY.FOR.ERRORSET)) LA.LONGFILENAME D1 (P 2 GIVENDIR P 1 GIVENHOST P 0 FILEFIELDS I 1 EXT I 0 FILENAME) T0@dM Xdg YHg ZIdIHg` JHg` Hg HgA H (121Q PACKFILENAME 114Q LISTPUT 103Q LISTGET 73Q LISTPUT 54Q LISTPUT 31Q LISTGET 21Q LISTGET 11Q UNPACKFILENAME.STRING) (110Q EXTENSION 100Q EXTENSION 66Q \LAFITEDEFAULTHOST&DIR 63Q DIRECTORY 50Q \LAFITEDEFAULTHOST&DIR 45Q HOST 26Q DIRECTORY 16Q HOST) () PROFILEFILENAME D1 NIL %g`g`g`g`gk (42Q PACKFILENAME) (35Q VERSION 32Q LAFITEPROFILE.EXT 27Q EXTENSION 24Q LAFITEPROFILE.NAME 21Q NAME 14Q \LAFITEDEFAULTHOST&DIR 11Q DIRECTORY 5 \LAFITEDEFAULTHOST&DIR 2 HOST) () TOCFILENAME D1 (I 0 MAILFILE) @g@g ` g@ (31Q PACKFILENAME 22Q CONCAT 14Q FILENAMEFIELD) (25Q BODY 17Q LAFITETOC.EXT 11Q EXTENSION 5 EXTENSION) () LA.SHORTFILENAME D1 (P 0 FILEFIELDS I 2 KEEPVERSIONFLG I 1 EXT I 0 FILE) ^@dZd Hg `Hg Hg `Hg AHg Hg BHg H (133Q PACKFILENAME 126Q LISTPUT 114Q LISTPUT 103Q LISTGET 72Q LISTPUT 54Q LISTGET 44Q LISTPUT 27Q LISTGET 15Q UNPACKFILENAME 11Q \APPEND2) (123Q VERSION 111Q EXTENSION 100Q EXTENSION 67Q DIRECTORY 57Q \LAFITEDEFAULTHOST&DIR 51Q DIRECTORY 41Q HOST 32Q \LAFITEDEFAULTHOST&DIR 24Q HOST) () COPY7BITFILEA0001A0002 D1 (I 0 STREAM F 0 RESETSTATE) @ bPd (14Q DELFILE 3 CLOSEF) NIL () COPY7BITFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 CH P 1 OUTSTREAM P 0 INSTREAM F 3 RESETVARSLST F 4 SRCFIL F 5 DSTFIL F 6 RESETY) y0gTghdo XhhhScgUghgH gghogHg hh YhhhScH ZIJl I c i(162Q FULLNAME 154Q BOUT 123Q OPENSTREAM 111Q GETFILEINFO 64Q PACKFILENAME 61Q FULLNAME 23Q OPENSTREAM) (106Q LENGTH 102Q LENGTH 72Q NEW 67Q OUTPUT 55Q BODY 51Q VERSION 43Q COPY7BITFILEA0001A0002 11Q INPUT 5 CLOSEF) ( 77Q (SEQUENTIAL T) 17Q ((SEQUENTIAL T) (ENDOFSTREAMOP NILL))) COPY7BITFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 DSTFIL I 0 SRCFIL F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q COPY7BITFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) FIXLAURELFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 MAILFILE F 1 RESETY) `hi P ci(14Q \LAFITE.GETMAILFOLDER 7 OBTAIN.MONITORLOCK) (2 \LAFITE.BROWSELOCK) () FIXLAURELFILE D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 FOLDER I 0 MAILFILE F 4 LISPXHIST F 5 RESETVARSLST) .T!Uog hg[ KJXd h(52Q \LAFITE.FIX.LAUREL.FOLDER 41Q ERROR! 33Q RESETRESTORE 21Q FIXLAURELFILEA0001) (27Q ERROR 16Q INTERNAL) ( 13Q (DUMMY.FOR.ERRORSET)) \LAFITE.BROWSE.LAURELFILE D1 (I 2 FILE I 1 MENU I 0 ITEM) @ABg (10Q \LAFITE.BROWSE) (5 LAUREL) () \LAFITE.FIX.LAUREL.FOLDERA0001 D1 (NAME ERRORSET P 2 BROWSERPROMPTWINDOW P 1 CH P 0 STREAM F 3 MAILFOLDER F 4 RESETVARSLST F 5 RESETY) h0S hi S*ZoJ Sg gSihhhTcHgg H Y H c ilH HIl (144Q BOUT 133Q \BACKFILEPTR 115Q FULLNAME 103Q SETFILEINFO 46Q \LAFITE.OPEN.FOLDER 36Q PRIN1 15Q OBTAIN.MONITORLOCK) (100Q NILL 75Q ENDOFSTREAMOP 52Q \LAFITE.CLOSE.FOLDER 43Q BOTH 22Q MAILFOLDER 6 MAILFOLDER) ( 32Q "Laurel scan... ") \LAFITE.FIX.LAUREL.FOLDER D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 MAILFOLDER F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LAFITE.FIX.LAUREL.FOLDERA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\LAFITE.FIX.LAUREL.FOLDERA0001)) \LAFITE.GLOBAL.INIT D1 NIL \g` C`gghHddidd gHhohh ho h(125Q CREATE.MONITORLOCK 116Q LAFITE.INIT.PARSETABLES 102Q \APPEND2 10Q ASSOC) (130Q \LAFITE.MAILSERVERLOCK 112Q BackgroundMenu 105Q BackgroundMenuCommands 60Q QUOTE 23Q \LAFITE.MESSAGEFORM 20Q SendMail 15Q BackgroundMenuCommands 5 BackgroundMenuCommands 2 SendMail) ( 122Q "Lafite Mail Servers" 71Q "Bring up a message sending form.") (PRETTYCOMPRINT LAFITECOMS) (RPAQQ LAFITECOMS ((COMS (E (SETQ LAFITESYSTEMDATE (DATE))) (VARS LAFITEVERSION# LAFITESYSTEMDATE)) ( COMS (FNS LAFITE \LAFITE.START.PROC LA.CREATE.UPDATE.MENUS \LAFITE.PROCESS \LAFITE.START.ABORT \LAFITE.QUIT \LAFITE.RESTART \LAFITE.SUBQUIT \LAFITE.QUIT.PROC \LAFITEDEFAULTHOST&DIR LAFITEDEFAULTHOST&DIR MAKELAFITECOMMANDWINDOW EXTRACTMENUCOMMAND DOMAINLAFITECOMMAND) (PROP ARGNAMES LAFITE) (FNS LAFITEMODE \LAFITE.SHOW.MODE \LAFITE.MODE.TITLE) (PROP VARTYPE LAFITEMODELST) (INITVARS ( \LAFITEMODE) (\LAFITE.AUTHENTICATION.FAILURE))) (INITVARS * LAFITEPROFILEVARS) (INITVARS * LAFITERANDOMGLOBALS) (VARS * LAFITEMARKS) (VARS LAFITECOMMANDMENUITEMS LAFITEUPDATEMENUITEMS LAFITECLOSEITEM LAFITEUPDATETOCITEM LAFITECLOSELABELS ANOTHERFOLDERMENUITEM LAFITESUBQUITMENUITEMS) ( INITVARS (LAFITESTATUSWINDOW) (\ACTIVELAFITEFOLDERS) (\LAFITEPROFILECHANGED) (\LAFITE.TEMPFILES) ( LAFITEPRIMARYDISPLAYWINDOW) (LAFITEMAILFOLDERS) (LAFITEFOLDERSMENU) (LAFITEUPDATEMENUS) ( \LAFITE.MODE.CHOICES) (LAFITESUBQUITMENU)) (FNS LA.RESETSHADE LA.REMOVEDUPLICATES COLLECTOLDFILES LA.SETDIFFERENCE NTHMESSAGE \LAFITE.MAKE.MSGARRAY \LAFITE.ADDMESSAGES.TO.ARRAY) (COMS (* Display aids) (CURSORS LA.CROSSCURSOR)) (COMS (INITVARS (\LAFITE.ACTIVE) (\LAFITE.READY) (\LAFITEDEFAULTHOST&DIR) ( \LAFITEUSERDATA)) (ADDVARS (\SYSTEMCACHEVARS \LAFITE.READY \LAFITEUSERDATA)) (FNS LAFITE.AROUNDEXIT CHECKLAFITEMAILFOLDERS \LAFITE.REBROWSEFOLDER \LAFITE.AFTERLOGIN)) (COMS (* Low level file functions) (FNS \LAFITE.WRITE.PROFILE \LAFITE.READ.PROFILE DELETEMAILFOLDER FORGETMAILFILE \LAFITE.UNCACHE.FOLDER \LAFITE.OPEN.FOLDER \LAFITE.OPENSTREAM \LAFITE.CREATE.MENU \LAFITE.EOF \LAFITE.CLOSE.FOLDER PROMPTFORFILENAME \LAFITE.PROMPTFORFOLDER MAKELAFITEMAILFOLDERSMENU MAILFOLDERBUSY LA.LONGFILENAME PROFILEFILENAME TOCFILENAME LA.SHORTFILENAME) (FNS COPY7BITFILE FIXLAURELFILE \LAFITE.BROWSE.LAURELFILE \LAFITE.FIX.LAUREL.FOLDER)) (COMS (FNS \LAFITE.GLOBAL.INIT) (DECLARE: DONTEVAL@LOAD DOCOPY (FILES LAFITEBROWSE LAFITESEND LAFITEMAIL TEDIT ATTACHEDWINDOW) (P ( \LAFITE.GLOBAL.INIT)))) (DECLARE: DOEVAL@COMPILE DONTCOPY (COMS * LAFITECOMPILETIME)) (INITRECORDS MAILFOLDER LAFITEMSG) (SYSRECORDS MAILFOLDER LAFITEMSG) (DECLARE: DOEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA LAFITE))))) (RPAQQ LAFITEVERSION# 9) (RPAQQ LAFITESYSTEMDATE "15-Nov-84 14:03:34") (PUTPROPS LAFITE ARGNAMES (NIL (ON/OFF MAILFILE . OPTIONS) . U)) (PUTPROPS LAFITEMODELST VARTYPE ALIST) (RPAQ? \LAFITEMODE) (RPAQ? \LAFITE.AUTHENTICATION.FAILURE) (RPAQQ LAFITEPROFILEVARS ((LAFITEDEFAULTHOST&DIR) (LAFITEBUFFERSIZE 20) (LAFITEIFFROMMETHENSEENFLG T) (LAFITEMENUFONT (FONTCREATE (QUOTE (HELVETICA 10 BOLD)))) (LAFITETITLEFONT (FONTCREATE (QUOTE ( HELVETICA 12 BOLD)))) (LAFITEDISPLAYFONT (FONTCREATE (QUOTE (TIMESROMAN 12)))) (LAFITEHARDCOPYFONT LAFITEDISPLAYFONT) (LAFITEBROWSERFONT (FONTCREATE (QUOTE (GACHA 10)))) (LAFITEPROFILE.NAME (QUOTE LAFITE)) (LAFITEPROFILE.EXT (QUOTE PROFILE)) (DEFAULTMAILFOLDERNAME (QUOTE ACTIVE.MAIL)) ( LAFITEMAIL.EXT (QUOTE MAIL)) (LAFITESTATUSWINDOWMINWIDTH 200) (LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ 735 YCOORD _ 650)) (LAFITEDEBUGFLG) (LAFITEMODEDEFAULT) (LAFITESHOWMODEFLG T))) (RPAQ? LAFITEDEFAULTHOST&DIR) (RPAQ? LAFITEBUFFERSIZE 20) (RPAQ? LAFITEIFFROMMETHENSEENFLG T) (RPAQ? LAFITEMENUFONT (FONTCREATE (QUOTE (HELVETICA 10 BOLD)))) (RPAQ? LAFITETITLEFONT (FONTCREATE (QUOTE (HELVETICA 12 BOLD)))) (RPAQ? LAFITEDISPLAYFONT (FONTCREATE (QUOTE (TIMESROMAN 12)))) (RPAQ? LAFITEHARDCOPYFONT LAFITEDISPLAYFONT) (RPAQ? LAFITEBROWSERFONT (FONTCREATE (QUOTE (GACHA 10)))) (RPAQ? LAFITEPROFILE.NAME (QUOTE LAFITE)) (RPAQ? LAFITEPROFILE.EXT (QUOTE PROFILE)) (RPAQ? DEFAULTMAILFOLDERNAME (QUOTE ACTIVE.MAIL)) (RPAQ? LAFITEMAIL.EXT (QUOTE MAIL)) (RPAQ? LAFITESTATUSWINDOWMINWIDTH 200) (RPAQ? LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ 735 YCOORD _ 650)) (RPAQ? LAFITEDEBUGFLG) (RPAQ? LAFITEMODEDEFAULT) (RPAQ? LAFITESHOWMODEFLG T) (RPAQQ LAFITERANDOMGLOBALS ((UNSUPPLIEDFIELDSTR "---") (LAFITEBUSYWAITTIME 1000) (LAFITEITEMBUSYSHADE 43605) (LAFITEEOL " "))) (RPAQ? UNSUPPLIEDFIELDSTR "---") (RPAQ? LAFITEBUSYWAITTIME 1000) (RPAQ? LAFITEITEMBUSYSHADE 43605) (RPAQ? LAFITEEOL " ") (RPAQQ LAFITEMARKS ((SEENMARK (CHARCODE SP)) (UNSEENMARK (CHARCODE ?)) (MOVETOMARK (CHARCODE m)) ( FORWARDMARK (CHARCODE f)) (ANSWERMARK (CHARCODE a)) (HARDCOPYBATCHMARK (CHARCODE H)) (HARDCOPYMARK ( CHARCODE h)))) (RPAQ SEENMARK (CHARCODE SP)) (RPAQ UNSEENMARK (CHARCODE ?)) (RPAQ MOVETOMARK (CHARCODE m)) (RPAQ FORWARDMARK (CHARCODE f)) (RPAQ ANSWERMARK (CHARCODE a)) (RPAQ HARDCOPYBATCHMARK (CHARCODE H)) (RPAQ HARDCOPYMARK (CHARCODE h)) (RPAQQ LAFITECOMMANDMENUITEMS ((Browse (QUOTE \LAFITE.BROWSE) "Browse a mail file; MIDDLE for subcommands") ("Send Mail" (QUOTE \LAFITE.MESSAGEFORM) "Open a message composition window; MIDDLE for choice of forms") (Quit (QUOTE \LAFITE.QUIT) "Update and close all mail files and stop Lafite"))) (RPAQQ LAFITEUPDATEMENUITEMS (("Do Hardcopy Only" (QUOTE \LAFITE.HARDCOPYONLY.PROC) "Will print batched hardcopy but not update file") ("Write out changes only" (QUOTE \LAFITE.UPDATE.PROC) "Will update physical file to reflect new marks and deletions") ( "Expunge deleted messages" (QUOTE \LAFITE.EXPUNGE.PROC) "Will rewrite mail file, expunging all deleted messages"))) (RPAQQ LAFITECLOSEITEM ("Don't update file" (QUOTE ##CLOSE##) "Just close/shrink the window - don't update it.")) (RPAQQ LAFITEUPDATETOCITEM ("Update table of contents" (FUNCTION \LAFITE.UPDATE.PROC) "Write table of contents file to speed next browse of this folder")) (RPAQQ LAFITECLOSELABELS ("Don't Update or Hardcopy" "Don't update file" "Don't expunge file" "Just close")) (RPAQQ ANOTHERFOLDERMENUITEM ("** Other Folder **" (QUOTE ##ANOTHERFILE##) "You will be asked to specify another mail filename")) (RPAQQ LAFITESUBQUITMENUITEMS ((Quit (QUOTE \LAFITE.QUIT) "Turn Lafite off") (Restart (QUOTE \LAFITE.RESTART) "Turn Lafite off then back on"))) (RPAQ? LAFITESTATUSWINDOW) (RPAQ? \ACTIVELAFITEFOLDERS) (RPAQ? \LAFITEPROFILECHANGED) (RPAQ? \LAFITE.TEMPFILES) (RPAQ? LAFITEPRIMARYDISPLAYWINDOW) (RPAQ? LAFITEMAILFOLDERS) (RPAQ? LAFITEFOLDERSMENU) (RPAQ? LAFITEUPDATEMENUS) (RPAQ? \LAFITE.MODE.CHOICES) (RPAQ? LAFITESUBQUITMENU) (RPAQ LA.CROSSCURSOR (CURSORCREATE (READBITMAP) 8 8)) (16 16 "L@@C" "N@@G" "G@@N" "CHAL" "ALCH" "@NG@" "@GN@" "@CL@" "@CL@" "@GN@" "@NG@" "ALCH" "CHAL" "G@@N" "N@@G" "L@@C") (RPAQ? \LAFITE.ACTIVE) (RPAQ? \LAFITE.READY) (RPAQ? \LAFITEDEFAULTHOST&DIR) (RPAQ? \LAFITEUSERDATA) (ADDTOVAR \SYSTEMCACHEVARS \LAFITE.READY \LAFITEUSERDATA) (FILESLOAD LAFITEBROWSE LAFITESEND LAFITEMAIL TEDIT ATTACHEDWINDOW) (\LAFITE.GLOBAL.INIT) (/DECLAREDATATYPE (QUOTE MAILFOLDER) (QUOTE (FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER))) (/DECLAREDATATYPE (QUOTE LAFITEMSG) (QUOTE (FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER BYTE POINTER WORD WORD WORD WORD FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER POINTER POINTER POINTER))) (ADDTOVAR SYSTEMRECLST (DATATYPE MAILFOLDER ((BROWSERPROMPTDIRTY FLAG) (BROWSERREADY FLAG) ( FOLDERNEEDSUPDATE FLAG) (FOLDERNEEDSEXPUNGE FLAG) (FOLDERBEINGUPDATED FLAG) (HARDCOPYPENDING FLAG) ( NIL FLAG) (FULLFOLDERNAME POINTER) (VERSIONLESSFOLDERNAME POINTER) (SHORTFOLDERNAME POINTER) ( FOLDERSTREAM POINTER) (MESSAGEDESCRIPTORS POINTER) (FOLDERLOCK POINTER) (#OFMESSAGES WORD) ( TOCLASTMESSAGE# WORD) (BROWSERFONTHEIGHT WORD) (BROWSERFONTASCENT WORD) (BROWSERFONTDESCENT WORD) ( BROWSERMAXXPOS WORD) (ORDINALXPOS WORD) (DATEXPOS WORD) (FROMXPOS WORD) (FROMMAXXPOS WORD) ( SUBJECTXPOS WORD) (BROWSERDIGITWIDTH WORD) (FIRSTSELECTEDMESSAGE WORD) (LASTSELECTEDMESSAGE WORD) ( FIRSTCHANGEDMESSAGE WORD) (CURRENTEOMLENGTH WORD) (CURRENTDISPLAYEDSTREAM POINTER) (BROWSEREXTENT POINTER) (BROWSERORIGIN POINTER) (BROWSERSELECTIONREGION POINTER) (BROWSERWINDOW POINTER) (BROWSERMENU POINTER) (BROWSERMENUWINDOW POINTER) (BROWSERPROMPTWINDOW POINTER) (ORIGINALBROWSERTITLE POINTER) ( FOLDERDISPLAYWINDOWS POINTER) (FOLDEREOFPTR POINTER) (DEFAULTMOVETOFILE POINTER) ( CURRENTDISPLAYEDMESSAGE POINTER) (BROWSERUPDATEFROMHERE POINTER) (EXTRAFIELD POINTER) ( FOLDERCREATIONDATE POINTER) (HARDCOPYMESSAGES POINTER) (HARDCOPYSTREAM POINTER))) (DATATYPE LAFITEMSG ((PARSED? FLAG) (DELETED? FLAG) (SEEN? FLAG) (FORMATTED? FLAG) (NIL FLAG) (NIL FLAG) (NIL FLAG) (NIL FLAG) (BEGIN POINTER) (MARKCHAR BYTE) (MESSAGELENGTH POINTER) (# WORD) (STAMPLENGTH WORD) (TOCLENGTH WORD) (NIL WORD) (MESSAGELENGTHCHANGED? FLAG) (MARKSCHANGED? FLAG) (SELECTED? FLAG) (MSGFROMMECHECKED? FLAG) (MSGFROMMETRUTH FLAG) (NIL FLAG) (NIL FLAG) (NIL FLAG) (DATE POINTER) (FROM POINTER) (SUBJECT POINTER) (TO POINTER)))) (PUTPROPS LAFITE COPYRIGHT ("Xerox Corporation and Bolt Beranek and Newman Inc." 1982 1983 1984)) NIL