(FILECREATED "31-Jul-84 23:13:16" ("compiled on " {ERIS}LAFITESEND.;12) "30-Jul-84 02:52:09" recompiled exprs: \GV.SENDMESSAGE in "INTERLISP-D 30-Jul-84 ..." dated "30-Jul-84 03:04:50") (FILECREATED "31-Jul-84 23:12:18" {ERIS}LAFITESEND.;12 60724 changes to: (FNS \GV.SENDMESSAGE GV.MAKEANSWERFORM MAKEANSWERFORM \SENDMESSAGE.MAKEWINDOW \LAFITE.AFTER.DELIVER \LAFITE.SENDER.ICON \LAFITE.CHOOSE.MSG.FORMAT \GV.SEND.PARSE \SENDMESSAGE.INITIATE \SENDMESSAGE.RESTARTABLE \SENDMESSAGE0 \GV.SENDMESSAGE2 \SENDMESSAGE.MENUPROMPT DOLAFITESENDINGCOMMAND MAKEFORWARDFORM) (VARS LAFITESENDCOMS) (RECORDS GVMAILPARSE) previous date: "23-Jul-84 17:02:18" {ERIS}LAFITESEND.;9) DOLAFITESENDINGCOMMAND D1 (P 1 PROC P 0 WINDOW I 2 KEY I 1 MENU I 0 ITEM) &A g H .YdgHA@h h(42Q PROCESS.APPLY 20Q \INSUREWINDOW 11Q GETWINDOWUSERPROP 3 WFROMMENU) (30Q \SENDMESSAGE.INITIATE 6 MAINWINDOW) () \SENDMESSAGE.INITIATEA0001A0002A0003 D1 (I 1 MENU I 0 ITEM F 0 RESETSTATE) P@Aj Agg(10Q SHADEITEM) (21Q DOLAFITESENDINGCOMMAND 14Q DOLAFITESENDINGCOMMAND) () \SENDMESSAGE.INITIATEA0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 PARSE P 1 TEXTSTREAM P 0 COMMAND F 4 ITEM F 5 MENU F 6 WINDOW F 7 RESETVARSLST F 10Q RESETY) T 1gTUhhhWcTU` Ug`gg Vg HgV [ oK IV ZVgg IHTUIJh hci(174Q TEDIT.QUIT 154Q WINDOWADDPROP 141Q ERROR! 134Q \SENDMESSAGE.PARSE 126Q PRIN1 115Q TERPRI 111Q GETPROMPTWINDOW 75Q GETWINDOWUSERPROP 65Q PROCESSPROP 41Q SHADEITEM 3 EXTRACTMENUCOMMAND) (151Q DON'T 146Q CLOSEFN 102Q ##SEND## 72Q TEXTSTREAM 62Q DON'T 57Q BEFOREEXIT 54Q \RUNNING.PROCESS 46Q NILL 36Q LAFITEITEMBUSYSHADE 11Q \SENDMESSAGE.INITIATEA0001A0002A0003) ( 122Q "Parsing...") \SENDMESSAGE.INITIATEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) &S!Tog hgZ JIh(36Q ERROR! 30Q RESETRESTORE 16Q \SENDMESSAGE.INITIATEA0001A0002) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \SENDMESSAGE.INITIATE D1 (I 2 ITEM I 1 MENU I 0 WINDOW) oi (7 \SENDMESSAGE.INITIATEA0001) NIL ( 3 (DUMMY.FOR.ERRORSET)) \SENDMESSAGE.PARSE D1 (I 1 EDITORWINDOW I 0 MSG) `@AlHNIL (2 \LAFITEMODE) () \LAFITE.PREPARE.SEND D1 (P 0 EOF I 1 EDITORWINDOW I 0 MSG) e@`@l AI@kjg @ @j @ l @kd @ @Hk @ l @`Hkhi @gg h(141Q SETFILEINFO 125Q TEDIT.INSERT 101Q SETFILEPTR 67Q GETEOFPTR 61Q TEDIT.DELETE 44Q SETFILEPTR 36Q TEDIT.NORMALIZECARET 31Q TEDIT.SETSEL 14Q \LISPERROR) (136Q \LAFITE.EOF 133Q ENDOFSTREAMOP 114Q LAFITEEOL 26Q LEFT 4 STREAMTYPE#) () \LAFITE.CHOOSE.MSG.FORMAT D1 (P 0 FORMATTING I 2 EDITORWINDOW I 1 HEADEREOF I 0 TEXTSTREAM) w@ HgB``o oHdgogoHgoo dgdgA@oA ggh(151Q TEDIT.INSERT 120Q \SENDMESSAGE.MENUPROMPT 115Q CONCAT 34Q \LAFITE.CREATE.MENU 3 TEDIT.FORMATTEDFILEP) (160Q ABORT 154Q TEDIT 133Q TEDIT 124Q TEXT 77Q IMAGEOBJ 64Q PARALOOKS 50Q CHARLOOKS 37Q LAFITEFORMATMENU 25Q LAFITEFORMATMENUITEMS 20Q LAFITEFORMATMENU 13Q TEXT) ( 145Q "Format: TEdit " 112Q "unknown formatting" 105Q "image objects" 72Q "paragraph formatting" 57Q "font information" 43Q "Message has " 31Q "Retain formatting information?") \LAFITE.CHOOSE.REPLYTO D1 (I 3 EDITORWINDOW I 2 FROMFIELD I 1 HEADEREOF I 0 TEXTSTREAM) C``o o dgidga@oBA@B,doKd`hoKhXIHZYJ YHh`h  A idg@oA @ hgh(233Q \LAFITE.FIND.TEMPLATE 227Q TEDIT.INSERT 205Q TEDIT.INSERT 201Q CONCATLIST 175Q \NCONC2 163Q FULLUSERNAME 153Q LAST 31Q \SENDMESSAGE.MENUPROMPT 17Q \LAFITE.CREATE.MENU) (240Q ABORT 213Q OTHER 170Q LAFITEEOL 104Q ARPANETGATEWAY.REGISTRY 45Q SELF 35Q NO 22Q LAFITEREPLYTOMENU 10Q LAFITEREPLYTOMENUITEMS 3 LAFITEREPLYTOMENU) ( 223Q "Reply-to: >>Address<< " 117Q "." 76Q ", " 56Q "Reply-to: " 26Q "Message is addressed to a distribution list" 14Q "Include a Reply-to field?") \SENDMESSAGE.MENUPROMPT D1 (P 2 REG P 1 RESULT P 0 PWINDOW I 2 PROMPT I 1 MENU I 0 EDITWINDOW) 8@ !H H BH JJJk A YH I(64Q CLEARW 55Q MENU 50Q \SETCURSORPOSITION 27Q PRIN1 21Q CLEARW 12Q \INSUREWINDOW 3 GETPROMPTWINDOW) NIL () \CHECKMESSAGEADDRESSES D1 (P 0 ADDR I 1 EDITORWINDOW I 0 ADDRESSES) +@$dH AoHoH @(41Q \SENDMESSAGEFAIL 36Q CONCAT 13Q GV.EXPAND) NIL ( 31Q "." 23Q "From field not valid address: ") \SENDMESSAGEFAIL D1 (P 0 PWINDOW I 2 MESS2 I 1 MESS1 I 0 EDITORWINDOW) #@ H AH B g hH (36Q PRIN1 30Q RETFROM 17Q PRIN1 12Q CLEARW 3 GETPROMPTWINDOW) (25Q \SENDMESSAGE.PARSE) () \SENDMESSAGE D1 (I 0 FORM) @i ` @ (16Q \SENDMESSAGE.RESTARTABLE 12Q TTY.PROCESS 4 TEDIT.STREAMCHANGEDP) (7 \RUNNING.PROCESS) () \SENDMESSAGE.RESTARTABLE D1 (P 3 #SENT P 2 DONE P 1 EDITORRESULT P 0 CURRENTMESSAGE I 1 EDITORWINDOW I 0 FORM) U@1AHhA bV`gg@ddidd g@hAddidd gAhh `gi `$` lg` @Aig`g`h ```i Agg IdgdgdgihiZDIIddgHAI [HigH IIj JH KA i A AK A` Ag K(521Q PUTWINDOWPROP 506Q REMOVE 476Q \LAFITE.AFTER.DELIVER 470Q FLUSHATTACHEDWINDOWS 461Q TEDIT.STREAMCHANGEDP 453Q CLOSEW 434Q SHADEITEM 420Q SHOULDNT 414Q SAVEMESSAGEFORM 371Q \SENDMESSAGE0 275Q WINDOWDELPROP 262Q TTY.PROCESS 241Q TEDIT 211Q TEDIT.WORDSET 175Q TEDIT.WORDSET 156Q COPYREADTABLE 142Q PROCESSPROP 127Q PROCESSPROP 12Q \SENDMESSAGE.MAKEWINDOW) (516Q MESSAGEFILE 511Q LAFITECURRENTEDITORWINDOWS 503Q LAFITECURRENTEDITORWINDOWS 406Q ##SAVE## 400Q LAFITELASTMESSAGE 352Q ##SEND## 320Q ##FORGETIT## 312Q ##SAVE## 304Q ##SEND## 272Q DON'T 267Q CLOSEFN 254Q \TTY.PROCESS 251Q \RUNNING.PROCESS 245Q \RUNNING.PROCESS 231Q LAFITE.WORDBOUND.READTABLE 226Q BOUNDTABLE 223Q LAFITEEDITORFONT 220Q FONT 206Q LAFITE.WORDBOUND.READTABLE 203Q TEXT 172Q LAFITE.WORDBOUND.READTABLE 167Q TEXT 161Q LAFITE.WORDBOUND.READTABLE 153Q TEDIT.WORDBOUND.READTABLE 146Q LAFITE.WORDBOUND.READTABLE 136Q RESTARTABLE 133Q \RUNNING.PROCESS 114Q QUOTE 60Q QUOTE 30Q \SENDMESSAGE.RESTARTABLE 25Q RESTARTFORM 22Q \RUNNING.PROCESS) () \SENDMESSAGE.MAKEWINDOW D1 (P 1 EDITRESULT P 0 EDITWINDOW I 2 WINDOW I 1 TITLE I 0 MESSAGEFORM) @AobB i`hZ"h]Ag`h>`l 4`#[` K4iJdddih` X`Hh Xd`BHH HgA H  Hg Hk` Hgg Hgg Hggi Hg Hg Hgg Hg@ Hg` H g gH(405Q GETWINDOWUSERPROP 376Q ATTACHEDWINDOWS 372Q PUTWINDOWPROP 360Q PUTWINDOWPROP 350Q PUTWINDOWPROP 335Q PUTWINDOWPROP 325Q PUTWINDOWPROP 316Q WINDOWADDPROP 302Q WINDOWADDPROP 267Q WINDOWDELPROP 255Q GETPROMPTWINDOW 244Q ATTACHWINDOW 235Q MENUWINDOW 232Q MAKELAFITEDELIVERMENU 226Q ATTACHEDWINDOWS 222Q PUTWINDOWPROP 211Q CLEARW 164Q \NCONC2 152Q CREATEMENUEDWINDOW 102Q MEMB 63Q EQLENGTH 40Q MAKELAFITEDELIVERMENU 17Q WINDOWP) (411Q DOLAFITESENDINGCOMMAND 402Q MENU 367Q \RUNNING.PROCESS 364Q PROCESS 354Q MESSAGEFILE 345Q \LAFITE.SENDER.ICON 342Q ICONFN 332Q ICONWINDOW 322Q ICON 312Q \LAFITE.CLOSEMSG? 307Q CLOSEFN 277Q FLUSHATTACHEDWINDOWS 274Q CLOSEFN 264Q CLOSEATTACHEDWINDOWS 261Q CLOSEFN 252Q LAFITEEDITORFONT 241Q TOP 216Q TITLE 201Q LAFITECURRENTEDITORWINDOWS 175Q LAFITECURRENTEDITORWINDOWS 167Q LAFITEEDITORWINDOWS 156Q LAFITEEDITORWINDOWS 147Q LAFITEEDITORREGION 77Q LAFITECURRENTEDITORWINDOWS 70Q LAFITEEDITORREGION 56Q LAFITEEDITORREGION 47Q LAFITEEDITORWINDOWS 44Q TOP 24Q LAFITEEDITORWINDOWS) ( 11Q "Message Editor") MAKELAFITEDELIVERMENU D1 NIL B`d`di d`dgdg dgjdndhHdI NIL (50Q DEFAULTMENUHELDFN 41Q CLRPROMPT 32Q DOLAFITESENDINGCOMMAND 23Q LAFITEMENUFONT 7 LAFITESENDINGMENUITEMS 2 MENUTYPE#) () FLUSHATTACHEDWINDOWS D1 (P 0 W I 0 WINDOW) @ dH H h(22Q CLOSEW 15Q DETACHWINDOW 3 ATTACHEDWINDOWS) NIL () \LAFITE.CLOSEMSG? D1 (P 0 TEXTSTREAM I 0 WINDOW) ,@g Hd hoi@ Hi hg(44Q TEDIT.STREAMCHANGEDP 36Q MOUSECONFIRM 33Q GETPROMPTWINDOW 17Q TEDIT.STREAMCHANGEDP 6 GETWINDOWUSERPROP) (51Q DON'T 3 TEXTSTREAM) ( 26Q "Message has been edited -- LEFT to flush anyway") \LAFITE.AFTER.DELIVER D1 (I 1 #SENT I 0 EDITORWINDOW) 0@goAo @g @dhAo (55Q SHRINKW 52Q \LAFITE.SENDER.ICON 47Q CONCAT 34Q PUTWINDOWPROP 25Q PUTWINDOWPROP 22Q CONCAT 17Q DATE) (31Q ICONFN 3 TITLE) ( 44Q " Sent" 14Q " recipients at " 7 "Message delivered to ") \LAFITE.SENDER.ICON D1 (P 0 REGION I 2 TITLE I 1 OLDICON I 0 WINDOW) rAo@ ```jdlKlhhBo`@g 1HHk` HHk` ` i (157Q TITLEDICONW 150Q HEIGHTIFWINDOW 134Q BITMAPHEIGHT 112Q BITMAPWIDTH 71Q GETWINDOWUSERPROP 6 \INSUREWINDOW) (143Q FONTDESCRIPTOR 140Q LAFITEMENUFONT 131Q MSGSENTICON 107Q MSGSENTICON 66Q ICONPOSITION 62Q LAFITEMENUFONT 50Q MSGSENTTEMPLATE 26Q MSGSENTMASK 23Q MSGSENTICON 16Q MSGSENTTEMPLATE) ( 57Q "unsent") LAFITE.SENDMESSAGE D1 (I 0 MESSAGEFORM) `@ bd lH(22Q \SENDMESSAGE.PARSE 14Q OPENTEXTSTREAM) (2 \LAFITEMODE) () \SENDMESSAGE0A0009 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 1 TEXTSTREAM F 2 PARSE F 3 WINDOW F 4 MENUW) `QRSTlHhNIL (2 \LAFITEMODE) () \SENDMESSAGE0 D1 (P 7 W P 4 RESULT P 3 ABORTMENU P 2 OLDMENU P 1 MENUW P 0 PWINDOW I 2 PARSE I 1 WINDOW I 0 TEXTSTREAM) A QH oH A Noi \d~o_g ZdOJhI `dodgd`di dg dgjdndhdM d J [Io N^wd\!oH oLH oH L"Ig KhI JIo Ig h(356Q PUTWINDOWPROP 347Q ADDMENU 335Q DELETEMENU 326Q GETWINDOWUSERPROP 313Q PRIN1 302Q PRINTNUM 270Q PRIN1 234Q ADDMENU 107Q DELETEMENU 72Q GETWINDOWUSERPROP 46Q \SENDMESSAGE0A0009 26Q ATTACHEDWINDOWS 22Q PRIN1 12Q CLEARW 3 GETPROMPTWINDOW) (353Q ABORT 323Q MENU 162Q DEFAULTMENUHELDFN 153Q CLRPROMPT 137Q LAFITEMENUFONT 130Q \SENDMESSAGE.ABORT 113Q MENUTYPE# 67Q MENU) ( 344Q (0 . 0) 307Q " recipients." 275Q (FIX 1) 264Q "done, " 231Q (0 . 0) 121Q (("Abort" NIL "Abort delivery of this message")) 56Q "aborted." 42Q (DUMMY.FOR.ERRORSET) 16Q "Delivering...") \SENDMESSAGE.ABORT D1 (P 0 W I 2 KEY I 1 MENU I 0 ITEM) A Hgi @A` h(26Q SHADEITEM 16Q PUTWINDOWPROP 3 WFROMMENU) (23Q LAFITEITEMBUSYSHADE 12Q ABORT) () \GV.SENDMESSAGE D1 (P 13Q I P 12Q TYPE P 11Q SENDER P 10Q SENDERFIELD P 7 SENDRESULT P 6 RECIPIENTSCHECK P 5 SENDINGSOCKET P 4 DATELEN P 3 DATEFIELD P 2 SENDINGFORMAT P 1 FROMFIELD P 0 RECIPIENTS I 3 ABORTWINDOW I 2 EDITORWINDOW I 1 PARSE I 0 MSG)  AAAoo ` t @`@ JgJdgdggZ `__Ioo_wJg.@Kk @OK \k @g @kLO b k_l```i ]0M9` o` O` hO` _n OkذH ^CLM JgMK MO CM@ CICg 2M 5g M g M Cg hC M _iN` o` O` ` o` O` h(660Q PRIN1 647Q PRIN1 634Q TERPRI 625Q PRIN1 614Q PRIN1 601Q TERPRI 563Q GV.SEND 556Q DELETEMENU 550Q GETWINDOWUSERPROP 536Q ERROR! 532Q GV.KILLSOCKET 524Q GETWINDOWUSERPROP 513Q ERROR! 507Q GV.KILLSOCKET 501Q GETWINDOWUSERPROP 471Q ERROR! 465Q GV.KILLSOCKET 457Q GETWINDOWUSERPROP 444Q GV.ADDTOITEM 433Q GV.ADDTOITEM 424Q GV.ADDTOITEM 410Q GV.STARTITEM 376Q \GV.SENDRECIPIENTS 363Q DISMISS 347Q CONCAT 335Q PRIN1 324Q PRIN1 311Q TERPRI 274Q GV.STARTSEND 231Q TEDIT.DELETE 225Q NCHARS 215Q COERCETEXTOBJ 205Q TEDIT.INSERT 177Q NCHARS 167Q TEDIT.INSERT 110Q \LAFITE.GET.USER.DATA 104Q \ILLEGAL.ARG 46Q \ILLEGAL.ARG 30Q CONCAT 22Q DATE) (655Q PROMPTWINDOW 644Q PROMPTWINDOW 631Q PROMPTWINDOW 622Q PROMPTWINDOW 611Q PROMPTWINDOW 576Q PROMPTWINDOW 545Q MENU 521Q ABORT 476Q ABORT 454Q ABORT 415Q TEXT 344Q LAFITEEOL 332Q PROMPTWINDOW 321Q PROMPTWINDOW 306Q PROMPTWINDOW 266Q \LAFITEUSERDATA 260Q \LAFITEUSERDATA 253Q \LAFITEUSERDATA 212Q FILE 156Q TEDIT 121Q \LAFITEUSERDATA 77Q TEDIT 71Q MULTIMEDIA 63Q TEDIT 53Q TEXT 40Q STREAMTYPE# 25Q LAFITEEOL) ( 641Q "reason: " 606Q "Couldn't complete the sending of the message from sender " 316Q "Couldn't start sending the message from sender " 146Q "Sender: " 141Q "From: " 17Q (DATEFORMAT NO.SECONDS TIME.ZONE SPACES) 13Q "Date: ") \GV.SENDRECIPIENTS D1 (P 6 RECIPIENT P 5 SEPR P 3 R P 2 INVALID P 1 VALIDITYRESULT P 0 PWINDOW I 1 RECIPIENTS I 0 SOCKET) `!A"H oH @ hd@K @ Y!H oH H oH IZIH oH JdoH JoLH oMH NH oL\(232Q PRIN1 223Q PRIN1 205Q TERPRI 163Q PRIN1 145Q PRIN1 134Q TERPRI 117Q PRIN1 106Q TERPRI 101Q PRIN1 70Q TERPRI 60Q GV.CHECKVALIDITY 47Q GV.ADDRECIPIENT 33Q GV.KILLSOCKET 26Q PRIN1 15Q TERPRI) (2 PROMPTWINDOW) ( 237Q ", " 212Q "Please fix recipients and retry sending." 171Q ": " 157Q "s" 141Q "Invalid recipient" 113Q "reason: " 75Q "Something went wrong after sending recipients to the Grapevine." 22Q "No recipients supplied -- please look at your message again.") \GV.SEND.PARSE D1 (P 11Q GVNAME P 7 PAIR P 6 REPLYTO P 5 MSGEOF P 4 HEADEREOF P 3 SENDINGFORMAT P 2 FROMFIELD P 1 MSGFIELDS P 0 RECIPIENTS I 1 EDITORWINDOW I 0 MSG) ) p@A @`j@ ] Y@ \ML#@Ml @ l @M @l MkؼI|dOdgAo `dgdgHOhiA XBdgOhiA Z/dgOhiA ^dgAo gO[H` o` hhHA&K@LA d&NH Oh@LJA JdA KH_m)l^OiO_(411Q \CHECKMESSAGEADDRESSES 400Q \LAFITE.CHOOSE.REPLYTO 346Q \LAFITE.CHOOSE.MSG.FORMAT 324Q PRIN1 311Q TERPRI 257Q \SENDMESSAGEFAIL 235Q PARSERECIPIENTS 212Q PARSERECIPIENTS 167Q \NCONC2 164Q PARSERECIPIENTS 132Q \SENDMESSAGEFAIL 73Q BOUT 64Q SETFILEPTR 47Q SETFILEPTR 31Q GETFILEPTR 24Q LAFITE.PARSE.HEADER 20Q GETEOFPTR 7 \LAFITE.PREPARE.SEND) (321Q PROMPTWINDOW 306Q PROMPTWINDOW 263Q FORMAT 244Q SENDER 221Q REPLY-TO 176Q FROM 146Q CC 140Q TO 117Q DATE 13Q \LAPARSE.FULL) ( 316Q "No recipients!" 254Q "User-supplied Sender not allowed" 127Q "User-supplied Date not allowed") PARSERECIPIENTS D1 (P 3 PIECE I 3 EDITWINDOW I 2 INTERNALFLG I 1 REGISTRY I 0 FIELD) C@d/0@dKABC XI HZYJ YHABC bB@ (100Q LA.REMOVEDUPLICATES 67Q PARSERECIPIENTS1 54Q LAST 27Q PARSERECIPIENTS1) NIL () PARSE.ARPA.ADDRESS D1 (I 2 INTERNALFLG I 1 DOMAINTAIL I 0 ADDRESS) .B@ `gAb@ gA@A (52Q LDIFF 27Q REPACKADDRESS 5 REPACKADDRESS) (35Q ARPA 15Q %. 10Q ARPANETGATEWAY.REGISTRY) () PARSERECIPIENTS1A0001 D1 (L (0 STREAM)) l,NIL NIL () PARSERECIPIENTS1 D1 (P 16Q OPEN P 15Q CLOSE P 14Q VALIDRECIPIENT P 13Q REALADDRESS P 12Q ADDRESS P 3 TOKEN P 2 ADDR P 1 ADDRESSES P 0 FIELDSTREAM I 3 EDITWINDOW I 2 INTERNALFLG I 1 REGISTRY I 0 FIELD) @@do Xdgg A`b00 H` [dgOZ")K_O Oh__O&_;MNh]H LYdN ON&_gO_gO_OO _OABC __OOh__N^O&_(244Q PARSE.SINGLE.ADDRESS 231Q LDIFF 144Q EOFP 51Q READ 24Q SETFILEINFO 11Q OPENSTRINGSTREAM) (212Q > 200Q < 56Q , 46Q ADDRESSPARSERRDTBL 31Q DEFAULTREGISTRY 21Q PARSERECIPIENTS1A0001 16Q ENDOFSTREAMOP) () PARSE.SINGLE.ADDRESS D1 (P 0 DOMAINTAIL I 3 EDITWINDOW I 2 INTERNALFLG I 1 REGISTRY I 0 ADDRESS) Yg@X@HB @3@g@B@@A@ Cdo@ hB@A@oA (126Q CONCAT 103Q \SENDMESSAGEFAIL 100Q REPACKADDRESS 64Q REPACKADDRESS 17Q PARSE.ARPA.ADDRESS) (32Q %. 5 @) ( 122Q "." 74Q "Recipient not understood: ") REPACKADDRESS D1 (P 3 RESULT P 2 X P 1 BREAKCHARP I 0 ADDRESS) s@dmi"H K IJdg1dg*dg#dgdgdgdggJIIgIgoKJKHX(23Q CONCATLIST 20Q REVERSE) (135Q %[ 127Q < 112Q %] 105Q %[ 77Q @ 70Q > 61Q < 52Q ; 43Q : 34Q %.) ( 143Q " ") COLLECTADDRESSES D1 (P 1 REST P 0 ADDRESS I 0 FIELDS) 4 @g@ Y XIYHdHI HI HIHhbh(33Q COLLECTADDRESSES 16Q LDIFF 12Q MEMB) (6 ,) () \LAFITE.MESSAGEFORMA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 FORM F 1 ITEM F 2 MENU F 3 BUTTON F 4 RESETY) UQQR SgX6gHddidd gHhhgggg hci(114Q ADD.PROCESS 27Q DERIVEMESSAGEFORMFROMMENU 23Q MAKENEWMESSAGEFORM 6 LA.RESETSHADE) (110Q NO 105Q RESTARTABLE 102Q MESSAGESENDER 77Q NAME 65Q QUOTE 35Q \SENDMESSAGE 16Q LEFT) () \LAFITE.MESSAGEFORM D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 BUTTON I 1 MENU I 0 ITEM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \LAFITE.MESSAGEFORMA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) DERIVEMESSAGEFORMFROMMENU D1 (P 2 FULLFORMNAME P 1 REALFORMNAME P 0 FORMTYPE) `o `` o  !HdqdgXd H H H-.H` Z Y` J` o` hd` I`ihI (232Q GETMESSAGEFORMFROMFILE 200Q MEMB 167Q PRIN1 154Q PRIN1 144Q TERPRI 133Q INFILEP 127Q LA.LONGFILENAME 117Q MAKENEWMESSAGEFORM 107Q BOUNDP 102Q APPLY 75Q DEFINEDP 65Q PROMPTFORFILENAME 44Q MENU 36Q \LAFITE.CREATE.MENU 27Q \APPEND2 24Q \APPEND2 13Q MAKELAFITEPRIVATEFORMSITEMS) (225Q LAFITEFORMSMENU 220Q \LAFITEPROFILECHANGED 213Q LAFITEFORMFILES 207Q LAFITEFORMFILES 175Q LAFITEFORMFILES 164Q PROMPTWINDOW 151Q PROMPTWINDOW 141Q PROMPTWINDOW 124Q LAFITEFORM.EXT 57Q ##ANOTHERFORM## 41Q LAFITEFORMSMENU 21Q LAFITEFORMSMENUITEMS 16Q LAFITESPECIALFORMS 2 LAFITEFORMSMENU) ( 161Q " not found." 33Q "Message Forms" 10Q "Use the form defined in this file.") MAKELAFITESUPPORTFORM D1 NIL o`` (14Q MAKEXXXSUPPORTFORM) (11Q LAFITESYSTEMDATE 6 LAFITESUPPORT) ( 3 "Lafite") MAKELISPSUPPORTFORM D1 NIL o` (11Q MAKEXXXSUPPORTFORM) (6 LISPSUPPORT) ( 3 "Lisp") MAKEXXXSUPPORTFORM D1 (P 3 SELECTPOSITION P 2 OUTSTREAM P 1 UCODEVERSION P 0 SUBJFIELD I 2 SYSTEMDATE I 1 ADDRESS I 0 SYSTEMNAME) No"ohddg`h ZoJ @J oJ J k[HJ J oJ AJ J oJ J J J B@J oJ BJ J oJ `J J oJ `i ohi o J J oJ oIJ oJ oIlJ J oJ oJ J oJ J J oJ J JKH gi J(512Q TEDIT.SETSEL 502Q NCHARS 474Q TERPRI 467Q PRIN1 457Q TERPRI 452Q TERPRI 445Q PRIN1 435Q TERPRI 430Q PRINTNUM 424Q REALMEMORYSIZE 414Q PRIN1 404Q TERPRI 377Q PRINTNUM 362Q PRIN1 351Q PRINTNUM 336Q PRIN1 326Q TERPRI 321Q PRIN1 312Q CONCAT 303Q ETHERHOSTNAME 272Q L-CASE 266Q MACHINETYPE 255Q PRIN1 245Q TERPRI 240Q PRIN1 230Q PRIN1 217Q TERPRI 212Q PRIN1 204Q PRIN1 173Q PRIN1 163Q TERPRI 156Q TERPRI 151Q PRIN1 145Q FULLUSERNAME 141Q PRIN1 131Q TERPRI 124Q PRIN1 116Q PRIN1 106Q TERPRI 101Q PRIN1 71Q GETFILEPTR 65Q PRIN1 54Q PRIN1 46Q PRIN1 35Q OPENTEXTSTREAM 6 MICROCODEVERSION) (505Q RIGHT 315Q \LAFITE.REPORT.MACHINE 261Q \LAFITE.REPORT.MACHINE 234Q MAKESYSDATE 26Q LAFITEEDITORFONT 23Q FONT) ( 463Q ">>detailed problem description<<" 441Q "Frequency: >> Always, Intermittent, Once << Impact: >> Fatal, Serious, Moderate, Annoying, Minor <<" 421Q (FIX 4 10Q) 410Q "Memory size: " 367Q (FIX 1 10Q) 356Q "," 343Q (FIX 1 10Q) 332Q "Microcode version: " 307Q ")" 276Q " (" 251Q "Machine: " 224Q "Lisp System Date: " 200Q " System Date: " 135Q "cc: " 112Q "To: " 61Q ": " 42Q "Subject: " 15Q "" 3 ">>Terse summary of problem<<") MAKENEWMESSAGEFORM D1 (P 1 SELECTPOSITION P 0 OUTSTREAM)  ohddg`h XoH H kY`H H oH `H H oH H H H `H H HI` gi H(175Q TEDIT.SETSEL 165Q NCHARS 155Q TERPRI 150Q PRIN1 141Q TERPRI 134Q TERPRI 127Q PRIN1 123Q FULLUSERNAME 117Q PRIN1 107Q TERPRI 102Q PRIN1 72Q PRIN1 62Q TERPRI 55Q PRIN1 43Q GETFILEPTR 37Q PRIN1 26Q OPENTEXTSTREAM) (170Q RIGHT 162Q SUBJECTSTR 144Q MESSAGESTR 76Q RECIPIENTSSTR 51Q SUBJECTSTR 17Q LAFITEEDITORFONT 14Q FONT) ( 113Q "cc: " 66Q "To: " 33Q "Subject: " 6 "") MAKELAFITEPRIVATEFORMSITEMS D1 (P 3 FORMFILE I 0 HELPSTR) Z0` CdKd.` Kddidd gKh@hhXI HZYJ YH(123Q LAST 34Q L-CASE 31Q LA.SHORTFILENAME 10Q SORT) (64Q QUOTE 26Q LAFITEFORM.EXT 5 LAFITEFORMFILES) () \LAFITE.UNCACHE.MESSAGEFORM D1 (P 0 FORM I 1 MENU I 0 ITEM) Y`` o>o o Xd0` ih` H` o` h(125Q PRIN1 112Q PRIN1 102Q TERPRI 56Q DREMOVE 44Q MENU 41Q \LAFITE.CREATE.MENU 32Q MAKELAFITEPRIVATEFORMSITEMS 14Q TERPRI) (122Q PROMPTWINDOW 107Q PROMPTWINDOW 77Q PROMPTWINDOW 73Q LAFITEFORMSMENU 66Q \LAFITEPROFILECHANGED 61Q LAFITEFORMFILES 53Q LAFITEFORMFILES 11Q PROMPTWINDOW 5 LAFITEFORMFILES) ( 117Q " forgotten." 36Q "Private Forms" 27Q "Forget about this message form" 21Q "You have no private message forms") GETMESSAGEFORMFROMFILE D1 (P 1 TEMPSTREAM P 0 INFILE I 0 FILE) P @dg Xohddg`h YH l"H l"HIH H kلHIjm H I I(114Q \LAFITE.FIND.TEMPLATE 110Q CLOSEF 103Q COPYBYTES 70Q GETEOFPTR 64Q GETFILEPTR 41Q OPENTEXTSTREAM 14Q OPENSTREAM) (32Q LAFITEEDITORFONT 27Q FONT 11Q INPUT) ( 21Q "") \LAFITE.FIND.TEMPLATE D1 (P 0 SELECTSTART I 0 TEXTSTREAM) >@okhi X @kjg @H@oH Hlgi i(66Q TEDIT.SETSEL 51Q TEDIT.FIND 32Q TEDIT.SETSEL 16Q TEDIT.FIND) (61Q RIGHT 27Q LEFT) ( 45Q "<<" 7 ">>*<<") SAVEMESSAGEFORM D1 (P 0 FORMFILE I 0 MSG) LXdB ` g @Hjm H Hd` `Hh ihH(73Q \APPEND2 57Q MEMB 46Q CLOSEF 41Q COPYBYTES 30Q OPENFILE 22Q LA.LONGFILENAME 14Q U-CASE 5 PROMPTFORFILENAME) (110Q LAFITEFORMSMENU 103Q \LAFITEPROFILECHANGED 76Q LAFITEFORMFILES 65Q LAFITEFORMFILES 54Q LAFITEFORMFILES 25Q OUTPUT 17Q LAFITEFORM.EXT) () \LAFITE.ANSWER D1 (I 3 MENU I 2 ITEM I 1 FOLDERDATA I 0 WINDOW) g@ddidd g@hAddidd gAhBddidd gBhCddidd gChhgggg (210Q ADD.PROCESS) (204Q NO 201Q RESTARTABLE 176Q MESSAGEANSWERER 173Q NAME 156Q QUOTE 122Q QUOTE 66Q QUOTE 32Q QUOTE 2 \LAFITE.ANSWER.PROC) () \LAFITE.ANSWER.PROCA0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 3 MAILFOLDER F 4 MSGDESCRIPTOR F 5 RESETY) JS hi S S 2SSkSIkYJHI(d j𒿰ihcS hc i(102Q MAKEANSWERFORM 21Q LAB.ASSURE.SELECTIONS 14Q \LAFITE.MAYBE.CLEAR.PROMPT 7 OBTAIN.MONITORLOCK) NIL () \LAFITE.ANSWER.PROCA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 ITEM F 4 MENU F 5 RESETY F 6 LISPXHIST F 7 RESETVARSLST) .ST V!Wog hgZ JIc i(45Q ERROR! 37Q RESETRESTORE 25Q \LAFITE.ANSWER.PROCA0001A0002 4 LA.RESETSHADE) (33Q ERROR 22Q INTERNAL) ( 17Q (DUMMY.FOR.ERRORSET)) \LAFITE.ANSWER.PROCA0003 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 MESSAGES F 1 MAILFOLDER F 2 MSGDESCRIPTOR F 3 RESETY) +Q hi QHRHR( RQ` hci(42Q MARKMESSAGE 7 OBTAIN.MONITORLOCK) (37Q ANSWERMARK) () \LAFITE.ANSWER.PROC D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 FORM P 0 MSGDESCRIPTOR I 3 MENU I 2 ITEM I 1 MAILFOLDER I 0 WINDOW F 5 LISPXHIST F 6 RESETVARSLST) R U!Vog hg\ LKYd)d #U!Vog hg\ Lh(116Q ERROR! 107Q RESETRESTORE 75Q \LAFITE.ANSWER.PROCA0003 54Q \SENDMESSAGE 41Q ERROR! 33Q RESETRESTORE 21Q \LAFITE.ANSWER.PROCA0001) (103Q ERROR 72Q INTERNAL 27Q ERROR 16Q INTERNAL) ( 67Q (DUMMY.FOR.ERRORSET) 13Q (DUMMY.FOR.ERRORSET)) MAKEANSWERFORM D1 (I 1 MAILFOLDER I 0 MSGDESCRIPTORS) `@AlHNIL (2 \LAFITEMODE) () GV.MAKEANSWERFORMA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 MSGDESCRIPTOR F 1 MAILFOLDER F 2 RESETY) )Q hi Qg `PPPP ci(43Q LAFITE.PARSE.HEADER 17Q \LAFITE.OPEN.FOLDER 7 OBTAIN.MONITORLOCK) (22Q \LAPARSE.FULL 14Q INPUT) () GV.MAKEANSWERFORM D1 (P 25Q RESETZ P 24Q RESETY P 23Q LISPXHIST P 21Q MSGFIELDS P 20Q SELECTPOSITION P 17Q OUTSTREAM P 16Q NEWCC P 15Q NEWTO P 14Q OLDCC P 13Q OLDTO P 12Q OLDREPLYTO P 11Q OLDFROM P 10Q ORIGINALREGISTRY P 7 CC P 6 TO P 5 REPLYTO P 4 SENDER P 3 DATE P 2 FROM P 1 SUBJECT P 0 MSGDESCRIPTOR I 1 MAILFOLDER I 0 MSGDESCRIPTORS F 26Q LISPXHIST F 27Q RESETVARSLST) @@0W,!W.og hg_* O*O(_"ddd_$dgO$PdgO$BdgO$4dgO$&dgO$dgO$gO$_LMJ=Ao MdO _NdO _OdO _OO_O(h+ _ _ _JdO _OO O _ohddg`h _nO oO Ikl o` goO I`O O oO JO oO KO O oO OO OoO OO O O k_ `O O OO ` gi O(740Q TEDIT.SETSEL 730Q NCHARS 716Q TERPRI 710Q PRIN1 674Q GETFILEPTR 667Q TERPRI 661Q LA.PRINTADDRESSES 651Q PRIN1 634Q LA.PRINTADDRESSES 625Q PRIN1 614Q TERPRI 606Q PRIN1 577Q PRIN1 565Q PRIN1 556Q PRIN1 545Q TERPRI 537Q PRIN1 523Q PRIN1 505Q ALPHORDER 473Q SUBSTRING 464Q PRIN1 453Q LINELENGTH 441Q OPENTEXTSTREAM 413Q LA.SETDIFFERENCE 406Q LA.REMOVEDUPLICATES 403Q \APPEND2 370Q PARSERECIPIENTS 355Q GETREGISTRY 346Q GETREGISTRY 340Q PARSERECIPIENTS 331Q FULLUSERNAME 310Q PARSERECIPIENTS 275Q PARSERECIPIENTS 263Q PARSERECIPIENTS 252Q LAB.PROMPTPRINT 56Q ERROR! 47Q RESETRESTORE 34Q GV.MAKEANSWERFORMA0001) (733Q RIGHT 725Q MESSAGESTR 703Q MESSAGESTR 532Q UNSUPPLIEDFIELDSTR 510Q EQUAL 502Q UPPERCASEARRAY 432Q LAFITEEDITORFONT 427Q FONT 220Q CC 205Q TO 170Q REPLY-TO 152Q DATE 134Q FROM 116Q SENDER 100Q SUBJECT 42Q ERROR 31Q INTERNAL) ( 644Q "cc: " 620Q "To: " 572Q "'s message of " 551Q "In-reply-to: " 516Q "Re: " 477Q "Re:" 457Q "Subject: " 421Q "" 247Q "Can't reply--no FROM or SENDER field" 26Q (DUMMY.FOR.ERRORSET)) LA.PRINTADDRESSES D1 (P 2 NTHTIME P 1 ADDR I 1 STREAM I 0 ADDRESSLIST) ,@!HA YJoA iZIA HX(44Q PRIN1 33Q PRIN1 14Q TERPRI) NIL ( 27Q ", ") \LAFITE.FORWARD D1 (I 3 MENU I 2 ITEM I 1 MAILFOLDER I 0 WINDOW) g@ddidd g@hAddidd gAhBddidd gBhCddidd gChhgggg (210Q ADD.PROCESS) (204Q NO 201Q RESTARTABLE 176Q MESSAGEFORWARDER 173Q NAME 156Q QUOTE 122Q QUOTE 66Q QUOTE 32Q QUOTE 2 \LAFITE.FORWARD.PROC) () \LAFITE.FORWARD.PROCA0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 6 MAILFOLDER F 7 ITEM F 10Q MENU F 11Q RESETY F 12Q WINDOW F 13Q FORWARDEDMSGS F 14Q FORM) YWW V V BWVdVkV3IkYJHI(d j𒿰L Mh\M&Kc chci(117Q MAKEFORWARDFORM 20Q LAB.ASSURE.SELECTIONS 13Q \LAFITE.MAYBE.CLEAR.PROMPT 6 LA.RESETSHADE) NIL () \LAFITE.FORWARD.PROCA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 MAILFOLDER F 4 LISPXHIST F 5 RESETVARSLST F 6 RESETY) 0S hi T!Uog hgZ JIc i(47Q ERROR! 41Q RESETRESTORE 27Q \LAFITE.FORWARD.PROCA0001A0002 7 OBTAIN.MONITORLOCK) (35Q ERROR 24Q INTERNAL) ( 21Q (DUMMY.FOR.ERRORSET)) \LAFITE.FORWARD.PROCA0003 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 MSG P 0 MESSAGES F 3 MAILFOLDER F 4 FORWARDEDMSGS F 5 RESETY) 4S hi S!HTYhc iZdHJ(S` I(55Q MARKMESSAGE 7 OBTAIN.MONITORLOCK) (52Q FORWARDMARK) () \LAFITE.FORWARD.PROC D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 FORM P 0 FORWARDEDMSGS I 3 MENU I 2 ITEM I 1 MAILFOLDER I 0 WINDOW F 5 LISPXHIST F 6 RESETVARSLST) P U!Vog hg\ LId( #U!Vog hg\ Lh(114Q ERROR! 105Q RESETRESTORE 73Q \LAFITE.FORWARD.PROCA0003 52Q \SENDMESSAGE 41Q ERROR! 33Q RESETRESTORE 21Q \LAFITE.FORWARD.PROCA0001) (101Q ERROR 70Q INTERNAL 27Q ERROR 16Q INTERNAL) ( 65Q (DUMMY.FOR.ERRORSET) 13Q (DUMMY.FOR.ERRORSET)) MAKEFORWARDFORM D1 (P 10Q NTHTIME P 7 MSGDESCRIPTOR P 5 SELECTLEN P 4 SELECTPOSITION P 3 SUBJECT P 2 CURMSG P 1 OUTSTREAM P 0 FOLDER I 2 MESSAGELIST I 1 FOLDERDATA I 0 WINDOW) F Ag ohddg`h B3JjJA nI oI `J [I kؼ``[ K&oI J I oI KI oI I oI LI kؼ` `I I oI I I I `I I B!NI`i ILMgi I_O`I I i_Id kjg I HOOOO I N^(476Q TERPRI 471Q TEDIT.INCLUDE 443Q TEXTOBJ 436Q TEDIT.SETSEL 425Q GETEOFPTR 413Q TERPRI 406Q PRIN1 364Q TEDIT.SETSEL 351Q TEDIT.INSERT 325Q TERPRI 320Q PRIN1 307Q TERPRI 303Q TERPRI 276Q PRIN1 272Q FULLUSERNAME 266Q PRIN1 256Q TERPRI 251Q PRIN1 241Q NCHARS 230Q GETFILEPTR 222Q PRIN1 211Q TERPRI 204Q PRIN1 173Q PRIN1 165Q PRIN1 154Q PRIN1 144Q PRIN1 130Q NCHARS 111Q GETFILEPTR 73Q PRIN1 63Q LINELENGTH 53Q LAFITE.PARSE.MSG.FOR.TOC 32Q OPENTEXTSTREAM 6 \LAFITE.OPEN.FOLDER) (433Q RIGHT 400Q LAFITEFORWARDSTRINGS 357Q RIGHT 342Q LAFITEFORWARDSTRINGS 313Q LAFITEFORWARDSTRINGS 245Q RECIPIENTSSTR 236Q RECIPIENTSSTR 124Q SUBJECTSTR 117Q LAFITEFORWARDSUBJECTSTR 76Q LAFITEFORWARDSUBJECTSTR 23Q LAFITEEDITORFONT 20Q FONT 3 INPUT) ( 262Q "cc: " 216Q "To: " 200Q "]" 161Q ": " 140Q "[" 67Q "Subject: " 12Q "") (PRETTYCOMPRINT LAFITESENDCOMS) (RPAQQ LAFITESENDCOMS ((COMS (* Sending mail) (FNS DOLAFITESENDINGCOMMAND \SENDMESSAGE.INITIATE \SENDMESSAGE.PARSE \LAFITE.PREPARE.SEND \LAFITE.CHOOSE.MSG.FORMAT \LAFITE.CHOOSE.REPLYTO \SENDMESSAGE.MENUPROMPT \CHECKMESSAGEADDRESSES \SENDMESSAGEFAIL) (FNS \SENDMESSAGE \SENDMESSAGE.RESTARTABLE \SENDMESSAGE.MAKEWINDOW MAKELAFITEDELIVERMENU FLUSHATTACHEDWINDOWS \LAFITE.CLOSEMSG? \LAFITE.AFTER.DELIVER \LAFITE.SENDER.ICON LAFITE.SENDMESSAGE \SENDMESSAGE0 \SENDMESSAGE.ABORT) (FNS \GV.SENDMESSAGE \GV.SENDRECIPIENTS) (FNS \GV.SEND.PARSE PARSERECIPIENTS PARSE.ARPA.ADDRESS PARSERECIPIENTS1 PARSE.SINGLE.ADDRESS REPACKADDRESS COLLECTADDRESSES)) (COMS (* FORMS) (FNS \LAFITE.MESSAGEFORM DERIVEMESSAGEFORMFROMMENU MAKELAFITESUPPORTFORM MAKELISPSUPPORTFORM MAKEXXXSUPPORTFORM MAKENEWMESSAGEFORM MAKELAFITEPRIVATEFORMSITEMS \LAFITE.UNCACHE.MESSAGEFORM GETMESSAGEFORMFROMFILE \LAFITE.FIND.TEMPLATE SAVEMESSAGEFORM)) (COMS (* ANSWER) (FNS \LAFITE.ANSWER \LAFITE.ANSWER.PROC MAKEANSWERFORM GV.MAKEANSWERFORM LA.PRINTADDRESSES)) (COMS (* FORWARD) (FNS \LAFITE.FORWARD \LAFITE.FORWARD.PROC MAKEFORWARDFORM)) (COMS (VARS LAFITESENDINGMENUITEMS LAFITEREPLYTOMENUITEMS LAFITEFORMSMENUITEMS LAFITEFORMATMENUITEMS) (ADDVARS (\SYSTEMCACHEVARS \LAFITE.REPORT.MACHINE) (LAFITESPECIALFORMS ("Lisp Report" (FUNCTION MAKELISPSUPPORTFORM) "A form to report a Lisp bug or suggestion") ("Lafite Report" (FUNCTION MAKELAFITESUPPORTFORM) "A form to report a Lafite bug or suggestion"))) (INITVARS (\LAFITE.REPORT.MACHINE) ( LAFITE.WORDBOUND.READTABLE) (LAFITEEDITORWINDOWS) (LAFITECURRENTEDITORWINDOWS) (LAFITELASTMESSAGE) ( LAFITEFORMFILES) (LAFITEFORMSMENU) (LAFITEFORMATMENU) (LAFITEREPLYTOMENU)) (INITVARS (LAFITEEDITORFONT LAFITEDISPLAYFONT) (LAFITEFORM.EXT (QUOTE LAFITE-FORM)) (LAFITEEDITORREGION (create REGION LEFT _ 485 BOTTOM _ 130 WIDTH _ 470 HEIGHT _ 470)) (LAFITEFORWARDSUBJECTSTR) (ARPANETGATEWAY.REGISTRY (QUOTE AG) ) (LAFITESUPPORT (QUOTE LafiteSupport.pa)) (MESSAGESTR ">>Message<<") (RECIPIENTSSTR ">>Recipients<<") (SUBJECTSTR ">>Subject<<") (LISPSUPPORT (QUOTE LispSupport.pa)) (LAFITEFORWARDSTRINGS (QUOTE ( ">>CoveringMessage<< ----- Begin Forwarded Messages ----- " " ----- Next Message ----- " " ----- End Forwarded Messages -----"))))) (COMS (* ICON stuff *) (BITMAPS MSGSENTICON MSGSENTMASK) (INITVARS MSGSENTTEMPLATE)) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS SENDINGCOMMAND GVMAILPARSE) ( GLOBALVARS LAFITE.WORDBOUND.READTABLE TEDIT.WORDBOUND.READTABLE \LAFITE.REPORT.MACHINE ARPANETGATEWAY.REGISTRY LAFITECURRENTEDITORWINDOWS LAFITEEDITORFONT LAFITEEDITORREGION LAFITEFORMATMENU LAFITEREPLYTOMENU LAFITEFORMSMENUITEMS LAFITEREPLYTOMENUITEMS LAFITEFORMATMENUITEMS LAFITEFORWARDSTRINGS LAFITEFORWARDSUBJECTSTR LAFITESENDINGMENUITEMS LAFITESPECIALFORMS LAFITESUPPORT LISPSUPPORT MAKESYSDATE MESSAGESTR RECIPIENTSSTR SUBJECTSTR MSGSENTTEMPLATE)))) (RPAQQ LAFITESENDINGMENUITEMS (("Deliver" (QUOTE ##SEND##) "Send the message in the edit window") ( "Save Form" (QUOTE ##SAVE##) "Save the message in a file for later use as a private form"))) (RPAQQ LAFITEREPLYTOMENUITEMS (("Send message as is" (QUOTE NO)) ("Reply-to: me" (QUOTE SELF) "Insert a Reply-to: field instructing responder to reply only to you") ("Reply-to: other" (QUOTE OTHER ) "Edit your own Reply-to: field into the message") ("Abort" (QUOTE ABORT) "Don't send the message"))) (RPAQQ LAFITEFORMSMENUITEMS (("Last Message" (QUOTE LAFITELASTMESSAGE) "The previous message form as edited") ("Saved Form" (QUOTE ##ANOTHERFORM##) "You will be asked to specify a filename for the form") ("Standard Form" (FUNCTION MAKENEWMESSAGEFORM) "A clean message form"))) (RPAQQ LAFITEFORMATMENUITEMS (("Send Formatted Message" (QUOTE TEDIT)) ("Send Plain Text" (QUOTE TEXT) ) ("Abort" (QUOTE ABORT)))) (ADDTOVAR \SYSTEMCACHEVARS \LAFITE.REPORT.MACHINE) (ADDTOVAR LAFITESPECIALFORMS ("Lisp Report" (FUNCTION MAKELISPSUPPORTFORM) "A form to report a Lisp bug or suggestion") ("Lafite Report" (FUNCTION MAKELAFITESUPPORTFORM) "A form to report a Lafite bug or suggestion")) (RPAQ? \LAFITE.REPORT.MACHINE) (RPAQ? LAFITE.WORDBOUND.READTABLE) (RPAQ? LAFITEEDITORWINDOWS) (RPAQ? LAFITECURRENTEDITORWINDOWS) (RPAQ? LAFITELASTMESSAGE) (RPAQ? LAFITEFORMFILES) (RPAQ? LAFITEFORMSMENU) (RPAQ? LAFITEFORMATMENU) (RPAQ? LAFITEREPLYTOMENU) (RPAQ? LAFITEEDITORFONT LAFITEDISPLAYFONT) (RPAQ? LAFITEFORM.EXT (QUOTE LAFITE-FORM)) (RPAQ? LAFITEEDITORREGION (create REGION LEFT _ 485 BOTTOM _ 130 WIDTH _ 470 HEIGHT _ 470)) (RPAQ? LAFITEFORWARDSUBJECTSTR) (RPAQ? ARPANETGATEWAY.REGISTRY (QUOTE AG)) (RPAQ? LAFITESUPPORT (QUOTE LafiteSupport.pa)) (RPAQ? MESSAGESTR ">>Message<<") (RPAQ? RECIPIENTSSTR ">>Recipients<<") (RPAQ? SUBJECTSTR ">>Subject<<") (RPAQ? LISPSUPPORT (QUOTE LispSupport.pa)) (RPAQ? LAFITEFORWARDSTRINGS (QUOTE (">>CoveringMessage<< ----- Begin Forwarded Messages ----- " " ----- Next Message ----- " " ----- End Forwarded Messages -----"))) (RPAQ MSGSENTICON (READBITMAP)) (75 40 "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "L@@@@@@@@@@@@@@@@@F@" "MKFNKL@@@@@@@CN@GOF@" "LMKEDK@@@@@@FDAFDAF@" "L@@@@@@@@@@@AILIMOF@" "MGMMJ@@@@@@@@H@HEAF@" "MNOFM@@@@@@@FNGFEMF@" "L@@@@@@@@@@@AIHILEF@" "MGMNKD@@@@@@@H@HEMF@" "MMGENL@@@@@@FFGFDAF@" "L@@@@@@@@@@@AJEIOOF@" "L@@@@@@@@@@@@EJ@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "L@@@@@@@@@@@@@@@@@F@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@") (RPAQ MSGSENTMASK (READBITMAP)) (75 40 "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@") (RPAQ? MSGSENTTEMPLATE NIL) (PUTPROPS LAFITESEND COPYRIGHT ("Xerox Corporation" 1984)) NIL