(FILECREATED "20-Jul-85 18:07:34" ("compiled on " {ERIS}LIBRARY>MAILCLIENT.;12) "18-Jul-85 03:27:00" recompiled exprs: GV.ADDTOITEM MS.SENDOPERATION \RESPTOCHECKVAL MS.RETRIEVEOPERATION \RECEIVEMESSAGEITEM in "INTERLISP-D 18-Jul-85 ..." dated "18-Jul-85 03:39:30") (FILECREATED "20-Jul-85 18:05:35" {ERIS}LIBRARY>MAILCLIENT.;12 52767 changes to: (FNS GV.ADDTOITEM MS.SENDOPERATION \RESPTOCHECKVAL MS.RETRIEVEOPERATION \RECEIVEMESSAGEITEM) previous date: " 8-Jun-85 22:41:28" {ERIS}LIBRARY>MAILCLIENT.;11) GV.STARTSEND D1 (P 1 STARTSENDRESULT P 0 SENDINGSOCKET I 3 VALIDATEFLG I 2 RETURN I 1 KEY I 0 SENDER) 3 X´*lH@ A B `C‘k€jhhg´H(55Q MS.SENDOPERATION 27Q \CHECKNAME 23Q \CHECKKEY 17Q \CHECKNAME 5 \FINDMAILSERVER) (52Q \RESPTOSTARTSEND 32Q \3BYTEKLUDGEKEY) () GV.ADDRECIPIENT D1 (I 1 NAME I 0 SOCKET) l@A h(13Q MS.SENDOPERATION 6 \CHECKNAME) NIL NIL GV.CHECKVALIDITY D1 (I 0 SOCKET) l@hg(11Q MS.SENDOPERATION) (6 \RESPTOCHECKVAL) NIL GV.STARTITEM D1 (I 1 TYPE I 0 SOCKET) l@A”Aµnh(21Q MS.SENDOPERATION) NIL NIL GV.ADDTOITEM D1 (P 5 CHAR P 3 #CHARS P 2 INSTREAM P 1 WASOPEN P 0 OUTSTREAM I 1 STR I 0 SOCKET) ÷ @1A dgð–¿A °1dgðŸ¿AÊRjð¯AZY°gð²A ŸAg Zg µA b [JµNl@ Knÿÿñ³PHKã!¿HKlÿå!Jµ&AQ LÈkÙ_¿LÉ_¿OLÈØ¾LÊCjð²Ch°AH ¿I£J h jð³¯Jj ¿°§Hlÿ!¿Hlÿ!¿JHnÿÿ¿KnÿÿÙ»l@ ¿°‹i_¿OkØ_Nñ³ÁO—OOÐÈ„OOÂ½HM!°á(316Q MS.SENDOPERATION 301Q COPYBYTES 254Q SETFILEPTR 243Q GETFILEPTR 236Q CLOSEF 227Q COPYBYTES 132Q MS.SENDOPERATION 120Q NCHARS 113Q MKSTRING 105Q GETFILEINFO 76Q OPENSTREAM 66Q INFILEP 24Q NCHARS 11Q TYPENAME) (102Q LENGTH 73Q INPUT 57Q LITATOM 41Q STREAM 32Q STREAM 15Q STRINGP) () GV.SEND D1 (I 0 SOCKET) l@hg(11Q MS.SENDOPERATION) (6 \RECEIVEACK) () MS.EXPAND D1 (I 1 NAME I 0 SOCKET) l@A hg(16Q MS.SENDOPERATION 6 \CHECKNAME) (13Q \RESPTOEXPAND) NIL MS.SENDOPERATIONA0001 D1 (NAME ERRORSET P 1 ARG P 0 STREAM F 2 OP F 3 SOCKET F 4 ARGS) &SHRã!¿HRlÿå!¿T‹dHI µói(35Q \SENDITEM) NIL () MS.SENDOPERATIONA0002 D1 (NAME ERRORSET F 0 SOCKET F 1 RESPONSEFN) P ¿PkQh(5 FORCEOUTPUT) NIL () MS.SENDOPERATION D1 (I 3 RESPONSEFN I 2 ARGS I 1 SOCKET I 0 OP) A²o ´C˜o ig(24Q MS.SENDOPERATIONA0002 11Q MS.SENDOPERATIONA0001) (33Q StreamLost) ( 21Q (MS.SENDOPERATIONA0002) 6 (MS.SENDOPERATIONA0001)) \FINDMAILSERVER D1 (I 0 ERRORFLG) $@ ``h` µ@´ o` h(40Q ERROR 21Q OPENCLOSESTSOCKET 3 \MAILSERVERSOCKETS) (35Q \MAILSERVERNAME 15Q \MAILIOTIMEOUT 11Q \MAILSERVERENQUIRYSOC 6 \MAILSERVERPOLLINGSOC) (32Q "Couldn't open connection for") \MAILSERVERSOCKETS D1 (P 0 SOCKETS I 0 ERRORFLG) 3`µ`@ X´l oöHHg ³Ý`(52Q TIMEREXPIRED? 27Q \CLOCK0 16Q LOCATESOCKETS) (57Q \MAILSERVERSOCKETCACHE 47Q MILLISECONDS 41Q \MAILSERVERSOCKETCACHE 12Q \MAILSERVERNAME 5 \MAILSERVERSOCKETCACHE) (33Q 211250400Q) \RECEIVEACK D1 (I 0 STREAM) @ ´iNIL NIL NIL \RESPTOCHECKVAL D1 (P 3 N I 0 INSTREAM) .@@ á@ Ø[djð™¿@ á@ ØH@ ºIµ JhY¸°ÝJ&¹°Ø(33Q \RECEIVERNAME) NIL () \RESPTOEXPAND D1 (I 0 INSTREAM) B0@ ²@ ºIµ JhY¸°íJ&¹°è@ djð¤dlð“¿i°dkð¤dlð”¿gƒ¿H(75Q SHOULDNT 14Q \RECEIVERNAME 6 \RECEIVEBOOL) (70Q BadRName) NIL \RESPTOSTARTSEND D1 (I 0 INSTREAM) /@ djð‘idkð“gdlð“gdlð“glð“g(54Q SHOULDNT) (50Q NetworkCommunicationsFailure 40Q ReturnToNotRegistered 27Q SenderNotRegistered 16Q InvalidPassword) NIL GV.PORTFROMNAME D1 (I 0 SERVERNAME) @ bd’ (12Q ETHERPORT 3 GV.READCONNECT) NIL () GV.POLLNEWMAIL D1 (P 3 INPUP P 2 RESULT P 1 OUTPUP P 0 SOC I 1 REGISTEREDNAME I 0 GVPORT) •g3I@@lŒhHi IA `¼k]Lñ³IHIhi[µ°8Ê‡dl‰ð”¿iZ°FdlŠð”¿hZ°O@ ¿K²Cµ#On0 ¿OK ¿C²JCg ²1°;g ²Ù¿°Óg ²¾¿°¸g ²–¿°Cg _hC¿O _ið‘iMkÔ]lñ˜Bo H˜oH ¿O ¿Oµ7k_ló³```i_¢±þ×O’±þÞBo Co¿h_¿°¾(1173Q ADDMENU 1162Q \LAFITE.SEND.FAIL 1135Q GV.STARTSEND 1071Q GV.KILLSOCKET 1063Q PRIN1 1050Q \LAFITE.SEND.FAIL 1021Q GV.SEND 1013Q DELETEMENU 1003Q GETWINDOWUSERPROP 771Q ERROR! 764Q GETWINDOWUSERPROP 753Q ERROR! 746Q GETWINDOWUSERPROP 735Q ERROR! 730Q GETWINDOWUSERPROP 720Q ERROR! 713Q GETWINDOWUSERPROP 700Q GV.ADDTOITEM 671Q GV.STARTITEM 652Q GV.ADDTOITEM 640Q GV.ADDTOITEM 630Q GV.ADDTOITEM 617Q GV.STARTITEM 574Q ERROR! 567Q GETWINDOWUSERPROP 553Q \GV.SENDRECIPIENTS 540Q PRIN1 475Q DISMISS 462Q CONCAT 451Q \LAFITE.SEND.FAIL 427Q GETFILEINFO 420Q GETFILEINFO 410Q OPENSTREAM 376Q OPENSTREAM 365Q OPENP 346Q TEDIT.DELETE 342Q NCHARS 332Q COERCETEXTOBJ 322Q TEDIT.INSERT 314Q NCHARS 304Q TEDIT.INSERT 232Q PRIN1 216Q PRIN1 205Q PRIN1 201Q LENGTH 174Q PRIN1 163Q PRIN1 143Q PRIN1 132Q CLEARW 123Q \LAFITE.GET.USER.DATA 114Q \ILLEGAL.ARG 60Q \ILLEGAL.ARG 41Q CONCAT 33Q DATE 5 GETPROMPTWINDOW) (1127Q \LAFITEUSERDATA 1121Q \LAFITEUSERDATA 1114Q \LAFITEUSERDATA 1000Q MENU 761Q ABORT 743Q ABORT 725Q ABORT 710Q ABORT 602Q ? 564Q ABORT 534Q ... 510Q GV.KILLSOCKET 457Q LAFITEEOL 424Q LENGTH 415Q LENGTH 405Q INPUT 373Q INPUT 362Q INPUT 327Q SPLIT 240Q \LAFITEUSERDATA 226Q s 104Q TEXT 74Q TEDIT 65Q MULTIMEDIA 52Q STREAMTYPE# 36Q LAFITEEOL) ( 1170Q (0 . 0) 1157Q "Couldn't connect to a maildrop" 1057Q " problems, trying again." 1045Q "Several unsuccessful attempts" 446Q "Message too long to send formatted. Either break it up or send it as plain text." 434Q 303207Q 265Q "Sender: " 260Q "From: " 212Q " recipient" 170Q "to " 157Q "" 152Q "formatted " 137Q "Delivering " 30Q (DATEFORMAT NO.SECONDS TIME.ZONE SPACES) 24Q "Date: ") \GV.SENDRECIPIENTS D1 (P 3 R P 2 INVALID P 1 VALIDITYRESULT P 0 REASON I 2 EDITORWINDOW I 1 RECIPIENTS I 0 SOCKET) R0Aµo°?d@K µó@ YµgZ¡I0Jd¼MµLh^L&½µïN ¸BH (117Q \LAFITE.SEND.FAIL 111Q \LAFITE.INVALID.RECIPIENTS 37Q GV.CHECKVALIDITY 26Q GV.ADDRECIPIENT) (46Q ?) ( 12Q "No recipients supplied") \GV.SEND.PARSE D1 (P 11Q GVNAME P 7 PAIR P 6 SUBJECT P 5 REPLYTO P 4 HEADEREOF P 3 SENDINGFORMAT P 2 FROMFIELD P 1 MSGFIELDS P 0 RECIPIENTS I 1 EDITORWINDOW I 0 MSG) p@A Yµhgð—II¹¼I±‹dOdgðš¿Ao °ndgð¦dgð²¿HOhiA X°Pdgðœ¿OhiAZ°=dgðœ¿OhiA]°*dgðš¿Ao °dgð–¿O[‰gð•O^¿µ‚±ÿtH©Ao hhH’±ÿLK©@LAd²1»A²M³H Oµ"hœ@LJA´‚±ÿ"J•JA ºNJKH_mÿ)l^ð–OµÔi°ÑO_°Æ(363Q \CHECKMESSAGEADDRESSES 346Q \LAFITE.CHOOSE.REPLYTO 311Q \LAFITE.CHOOSE.MSG.FORMAT 270Q \SENDMESSAGEFAIL 213Q \SENDMESSAGEFAIL 171Q \GV.PARSERECIPIENTS 146Q \GV.PARSERECIPIENTS 123Q \NCONC2 120Q \GV.PARSERECIPIENTS 66Q \SENDMESSAGEFAIL 7 \LAFITE.PREPARE.SEND) (235Q Subject 221Q Format 200Q Sender 155Q Reply-to 132Q From 102Q cc 74Q To 53Q Date 21Q EOF) ( 265Q "No recipients!" 210Q "User-supplied Sender not allowed" 63Q "User-supplied Date not allowed") \GV.PARSERECIPIENTS D1 (P 3 PIECE I 3 EDITWINDOW I 2 INTERNALFLG I 1 REGISTRY I 0 FIELD) C@d²/¿0@°dKABCX–Iµ HZY¿µçJ YH°òABCbB@ (100Q LA.REMOVEDUPLICATES 67Q \GV.PARSERECIPIENTS1 54Q LAST 27Q \GV.PARSERECIPIENTS1) NIL () \GV.PARSE.ARPA.ADDRESS D1 (I 2 INTERNALFLG I 1 DOMAINTAIL I 0 ADDRESS) .B˜@ `gAbµ@ gð²õA³ð@A °ê(52Q LDIFF 27Q \GV.REPACKADDRESS 5 \GV.REPACKADDRESS) (35Q ARPA 15Q %. 10Q ARPANETGATEWAY.REGISTRY) () \GV.PARSERECIPIENTS1A0001 D1 (L (0 STREAM)) l,NIL NIL () \GV.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) Å@@d²o XdggA¥`b¿00 H` [dgð˜¿OZµ"°)³èK_¿Oµ Oh__¿°ÕO&_¿°Í¾MµNh]¼H ²»LYdNµ ON&½°é_¿gO_²gO_šOO _OABC__¿OµOh__¿N^°µO&_¿°õ(244Q \GV.PARSE.SINGLE.ADDRESS 231Q LDIFF 144Q EOFP 51Q READ 24Q SETFILEINFO 11Q OPENSTRINGSTREAM) (212Q > 200Q < 56Q , 46Q ADDRESSPARSERRDTBL 31Q DEFAULTREGISTRY 21Q \GV.PARSERECIPIENTS1A0001 16Q ENDOFSTREAMOP) () \GV.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@ Cd›o@ hB”@A@oA(126Q CONCAT 103Q \SENDMESSAGEFAIL 100Q \GV.REPACKADDRESS 64Q \GV.REPACKADDRESS 17Q \GV.PARSE.ARPA.ADDRESS) (32Q %. 5 @) ( 122Q "." 74Q "Recipient not understood: ") \GV.REPACKADDRESS D1 (P 3 RESULT P 2 X P 1 BREAKCHARP I 0 ADDRESS) ‚@d²|i"Hµ K ºIJdgð³1dgð³*dgð³#dgð³dgð³dgð¬dgð¦gð´J¹³I›Igð¥Igð–oK»JšgJgKJK»HX°(23Q CONCATLIST 20Q REVERSE) (161Q %" 155Q %" 135Q %[ 127Q < 112Q %] 105Q %[ 77Q @ 70Q > 61Q < 52Q ; 43Q : 34Q %.) ( 143Q " ") \GV.COLLECTADDRESSES D1 (P 1 REST P 0 ADDRESS I 0 FIELDS) 4 @g@ Y XIYHšd–HI H¥IµH´I¨Hhb°Ñh(33Q \GV.COLLECTADDRESSES 16Q LDIFF 12Q MEMB) (6 ,) () \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: ") \LAFITE.CHOOSE.REPLYTO D1 (I 3 EDITORWINDOW I 2 FROMFIELD I 1 HEADEREOF I 0 TEXTSTREAM) ªCµi`µ`o odgð³àdgð²a¿@oB²A@B°,d»oKd`ð“hŠoKhX–IµHZY¿µÕJŒ YH°ñh`h AidgðŸ¿@oA@ hgð´h(236Q \LAFITE.FIND.TEMPLATE 232Q TEDIT.INSERT 210Q TEDIT.INSERT 204Q CONCATLIST 200Q \NCONC2 166Q FULLUSERNAME 156Q LAST 35Q \SENDMESSAGE.MENUPROMPT 23Q \LAFITE.CREATE.MENU) (243Q ABORT 216Q OTHER 173Q LAFITEEOL 107Q ARPANETGATEWAY.REGISTRY 50Q SELF 41Q NO 26Q LAFITEREPLYTOMENU 14Q LAFITEREPLYTOMENUITEMS 7 LAFITEREPLYTOMENU) ( 226Q "Reply-to: >>Address<< " 122Q "." 101Q ", " 61Q "Reply-to: " 32Q "Message is addressed to a distribution list" 20Q "Include a Reply-to field?") GV.MAKEANSWERFORMA0001 D1 (NAME ERRORSET F 0 MSGDESCRIPTOR F 1 MAILFOLDER F 2 RESETY) )QÉ hi¿Qg `PÉPÈØPÉPÉØ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 ‘h‚g_* ¿O*“O(_"d°dd_$dgð—¿O$¹°Pdgð—¿O$¼°Bdgð—¿O$º°4dgð—¿O$»°&dgð–¿O$½°dgð•¿O$¾Šgð•O$_¿µLµMJµ=Ao ¿Md”O _Nd”O _Od”O _OµO_O²(h°+ _ _°Â _¿Jd”O _°°OO O _ohddg`h _nÿÿO oO Iklo`gð©oO ¿Iµ`O ¿O oO ¿JO ¿oO ¿KO ¿O oO OO O²oO ¿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 \GV.PARSERECIPIENTS 355Q GETREGISTRY 346Q GETREGISTRY 340Q \GV.PARSERECIPIENTS 331Q FULLUSERNAME 310Q \GV.PARSERECIPIENTS 275Q \GV.PARSERECIPIENTS 263Q \GV.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 (GV.MAKEANSWERFORMA0001)) GETREGISTRY D1 (P 1 NXTLOC P 0 LOC I 0 NAME) )o@ H¢h¸o@HkØYµó@HkØmÿ(46Q SUBSTRING 32Q STRPOS 7 STRPOS) NIL ( 23Q "." 3 ".") LA.PRINTADDRESSES D1 (P 2 NTHTIME P 1 ADDR I 1 STREAM I 0 ADDRESSLIST) ,@!HµA Y²J˜oA iZ¿IA ¿HX°Ü(44Q PRIN1 33Q PRIN1 14Q TERPRI) NIL ( 27Q ", ") (PRETTYCOMPRINT MAILCLIENTCOMS) (RPAQQ MAILCLIENTCOMS ((COMS (* Sending mail) (FNS GV.STARTSEND GV.ADDRECIPIENT GV.CHECKVALIDITY GV.STARTITEM GV.ADDTOITEM GV.SEND MS.EXPAND) (* Internal Sending) (FNS MS.SENDOPERATION \FINDMAILSERVER \MAILSERVERSOCKETS \RECEIVEACK \RESPTOCHECKVAL \RESPTOEXPAND \RESPTOSTARTSEND) (VARS ( \MAILIOTIMEOUT NIL) (\MAILSERVERENQUIRYSOC 46) (\MAILSERVERNAME (QUOTE (Maildrop . ms))) ( \MAILSERVERPOLLINGSOC 44) (\MAILSERVERSOCKETCACHE) (\MAILSERVERRETRIEVALSOC 47)) (GLOBALVARS \MAILIOTIMEOUT \MAILSERVERENQUIRYSOC \MAILSERVERNAME \MAILSERVERPOLLINGSOC \MAILSERVERSOCKETCACHE \MAILSERVERRETRIEVALSOC) (ADDVARS (\SYSTEMCACHEVARS \MAILSERVERSOCKETCACHE))) (COMS (* Receiving mail) (FNS GV.PORTFROMNAME GV.POLLNEWMAIL GV.OPENMAILBOX GV.NEXTMESSAGE GV.RETRIEVEMESSAGE GV.CLOSEMAILBOX) (ADDVARS (MAILSERVERTYPES (GV GV.POLLNEWMAIL GV.OPENMAILBOX GV.NEXTMESSAGE GV.RETRIEVEMESSAGE GV.CLOSEMAILBOX GV.PORTFROMNAME))) (COMS (* Not currently used) (FNS GV.READTOC GV.WRITETOC GV.DELETEMESSAGE)) (* Internal Receiving) (FNS MS.RETRIEVEOPERATION \CONNECTTOMAILSERVER \OPENMAILSERVER \RESPTOOPENMAILBOX \RESPTONEXTMESSAGE \RESPTORETRIEVEMESSAGE \RECEIVEMESSAGEITEM \RECEIVELONGWORD) (INITVARS (GV.MAILBOX.TIMEOUT 12000)) (GLOBALVARS GV.MAILBOX.TIMEOUT)) (COMS (* LAFITEMODE GV) (ALISTS (LAFITEMODELST GV GRAPEVINE)) (FNS GV.INIT.MAIL.USER GETMAILSERVEROPS \GV.MAILSERVERTYPE) (FNS \GV.SENDMESSAGE \GV.SENDRECIPIENTS) (FNS \GV.SEND.PARSE \GV.PARSERECIPIENTS \GV.PARSE.ARPA.ADDRESS \GV.PARSERECIPIENTS1 \GV.PARSE.SINGLE.ADDRESS \GV.REPACKADDRESS \GV.COLLECTADDRESSES \CHECKMESSAGEADDRESSES \LAFITE.CHOOSE.REPLYTO) (FNS GV.MAKEANSWERFORM GETREGISTRY LA.PRINTADDRESSES) (ADDVARS (MAILSERVERTYPES)) (INITVARS (ARPANETGATEWAY.REGISTRY (QUOTE AG)) ( LAFITEREPLYTOMENU)) (ADDVARS (LISPSUPPORT (GV "LispSupport.pa")) (LAFITESUPPORT (GV "LafiteSupport.pa" )) (TEDITSUPPORT (GV "TEditSupport.pa"))) (VARS LAFITEREPLYTOMENUITEMS) (GLOBALVARS \LAFITEUSERDATA MAILSERVERTYPES ARPANETGATEWAY.REGISTRY LAFITEREPLYTOMENUITEMS LAFITEREPLYTOMENU) (PROP FILEDEF MAINTAIN)) (DECLARE: DOEVAL@COMPILE DONTCOPY (EXPORT (RECORDS OPENEDMAILBOX NEXTMESSAGE)) (RECORDS MAILPORT GVMAILPARSE) (COMS * MAILCLIENTCONSTANTCOMS) (FILES (LOADCOMP) GRAPEVINE PUP BSP LAFITE LAFITEMAIL)) (DECLARE: DONTEVAL@LOAD DOCOPY (FILES GRAPEVINE)))) (RPAQQ \MAILIOTIMEOUT NIL) (RPAQQ \MAILSERVERENQUIRYSOC 46) (RPAQQ \MAILSERVERNAME (Maildrop . ms)) (RPAQQ \MAILSERVERPOLLINGSOC 44) (RPAQQ \MAILSERVERSOCKETCACHE NIL) (RPAQQ \MAILSERVERRETRIEVALSOC 47) (ADDTOVAR \SYSTEMCACHEVARS \MAILSERVERSOCKETCACHE) (ADDTOVAR MAILSERVERTYPES (GV GV.POLLNEWMAIL GV.OPENMAILBOX GV.NEXTMESSAGE GV.RETRIEVEMESSAGE GV.CLOSEMAILBOX GV.PORTFROMNAME)) (RPAQ? GV.MAILBOX.TIMEOUT 12000) (ADDTOVAR LAFITEMODELST (GV \GV.SEND.PARSE \GV.SENDMESSAGE GV.MAKEANSWERFORM GV.INIT.MAIL.USER) ( GRAPEVINE . GV)) (ADDTOVAR MAILSERVERTYPES) (RPAQ? ARPANETGATEWAY.REGISTRY (QUOTE AG)) (RPAQ? LAFITEREPLYTOMENU) (ADDTOVAR LISPSUPPORT (GV "LispSupport.pa")) (ADDTOVAR LAFITESUPPORT (GV "LafiteSupport.pa")) (ADDTOVAR TEDITSUPPORT (GV "TEditSupport.pa")) (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"))) (PUTPROPS MAINTAIN FILEDEF MAINTAIN) (FILESLOAD GRAPEVINE) (PUTPROPS MAILCLIENT COPYRIGHT ("Xerox Corporation" 1983 1984 1985)) NIL