AddingNewMessageFormstoLafiteSometimesyouwouldlikemakemessageformsotherthanbyedittingsometextinaLafitemessagesendingwindowandthenstoringitawayonafileusingthe'SaveForm'menuitem--e.g.computeitontheflylikethe'LispSupport'selectiondoes.Toaddyourownitemstothe'MessageForms'menuyouaddastandardthree-elementmenuitemtothevariableLAFITEFORMSMENUITEMSandthensetthevariableLAFITEFORMSMENUtoNIL(thisiswherethemenuiscached).ThetricktothisworkingisthespecialinterpretationmadeonwhatgetsreturnedfromthecalltoMENU.ItshouldbeaLITATOMandtheinterpretationisthatiftheatom1.hasafunctiondefinitionitisAPPLYedwithnoargumentsandthereturnedvalueisused2.hasavalue,itsvalueisused3.otherwise,acopyofthefilebythatnameisused.Note:incases1and2,thevalueshouldbesomethingTEditable--e.g.astringorstream.Forexample,ifTEditwantedtoaddamessageformthatcontainedthedatetheTEditwasmade(similiartoLafite'sbugreportform)itcouldadd("TEditSupport"(QUOTEMAKETEDITFORM)"MakeaformtoreportaproblemwithTEdit")toLAFITEFORMSMENUITEMSandMAKETEDITFORMcouldbedefinedtobe[LAMBDANIL(PROG(OUTSTREAM)(SETQOUTSTREAM(OPENTEXTSTREAM""))(printoutOUTSTREAM"Subject:TEdit:>>Subject<<"T)(printoutOUTSTREAM"To:"TEDITSUPPORTT)(printoutOUTSTREAM"cc:"(USERNAME)T)(printoutOUTSTREAM"TEdit-System-Date:"TEDITSYSTEMDATETT)(printoutOUTSTREAM">>Message<<"T)(RETURNOUTSTREAM]whereTEDITSUPPORTandTEDITSYSTEMDATEarevariablessetbyTEdit.p c/a q a_ _] )O"$)][ [Y r"(H,04q6Z  E"%/'Y*~.0C3>Z< <: j7!]h !')08D9<=B0DIJJ:8 87   !$&,L0)3N:=A@CIGJJ75E 2k8$)*z.115E3t 3t2 s'$ 0020 e<!'d)/390. r .-"  -"s-"ZZ-"r-" -"s-"! ,-"r-"-'1{39^;+<-"+Q +Q) s P)( oFP ('C oFyPZ .01'C% oFyP$,2c =N?%$ oFyP$(O) 46$#; oFyP$(O) 3:4#;! oFyP$46DEGh! oFyP$ /1 3 oFyP "t3  r2s rsm++r.p57e9>? ?n n ? s ?N q?["~GACHA  TIMESROMAN  TIMESROMAN~GACHA 6j/ o#{PHYLUM}LAFITE-FORMS.TEDIT;4YONKE29-SEP-83 16:36:52