(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "29-May-91 17:18:18" ("compiled on " |{PELE:MV:ENVOS}INTERNAL>LIBRARY>MAILCLIENT.;3|) " 6-May-91 13:07:16" bcompl'd in "Lispcore 6-May-91 ..." dated " 6-May-91 13:34:43") (FILECREATED "15-Jun-90 18:05:32" {DSK}local>lde>lispcore>internal>library>MAILCLIENT.;2 55455 changes to%: (VARS MAILCLIENTCOMS) (FNS \GV.SENDMESSAGE) previous date%: " 9-Nov-89 15:31:24" {DSK}local>lde>lispcore>internal>library>MAILCLIENT.;1) GV.STARTSEND :D7 (L (3 VALIDATEFLG 2 RETURN 1 KEY 0 SENDER)) ;X¡hlH@ A B `C‘k€jhhg´H(53 MS.SENDOPERATION 28 \CHECKNAME 23 \CHECKKEY 18 \CHECKNAME 6 \FINDMAILSERVER) (49 \RESPTOSTARTSEND 32 \3BYTEKLUDGEKEY) () GV.ADDRECIPIENT :D7 (L (1 NAME 0 SOCKET)) l@A h(13 MS.SENDOPERATION 7 \CHECKNAME) NIL () GV.CHECKVALIDITY :D7 (L (0 SOCKET)) l@hg(11 MS.SENDOPERATION) (7 \RESPTOCHECKVAL) () GV.STARTITEM :D7 (L (1 TYPE 0 SOCKET)) l@A”Aµnh(18 MS.SENDOPERATION) NIL () GV.ADDTOITEM :D7 (L (1 STR 0 SOCKET)) B @1A dgð—¿A °@dgð²¿AdÊRjð³¿AZY°gð²Ad ²¿Ag Zg µ A b [JµFl@ Knÿÿó³IHKã ¿HKlÿå JµAQ LdÊjð³R °NH ¿I¤J h jð³¶Jj ¿°Hlÿ ¿Hlÿ ¿JHnÿÿ¿KnÿÿÕ»l@ ¿°ŠÈkÙ_¿LdÊjð¤ É_¿OLÈØ¾LdÊjð¤ ‚Ê‡lDð_¿OkØ_Nñ³…O—OOÐÈ„OOÂ½HM °Þ(318 BOUT 275 %%ARRAY-TYPE-NUMBER 250 %%ARRAY-BASE 228 MS.SENDOPERATION 214 COPYBYTES 204 \BOUT 196 \BOUT 186 SETFILEPTR 176 GETFILEPTR 170 CLOSEF 162 COPYBYTES 155 %%ARRAY-OFFSET 135 \BOUT 125 \BOUT 111 MS.SENDOPERATION 100 NCHARS 94 MKSTRING 87 GETFILEINFO 78 OPENSTREAM 66 INFILEP 23 NCHARS 10 TYPENAME) (83 LENGTH 74 INPUT 57 LITATOM 40 STREAM 30 STREAM 15 STRINGP) () GV.SEND :D7 (L (0 SOCKET)) l@hg(11 MS.SENDOPERATION) (7 \RECEIVEACK) () MS.EXPAND :D7 (L (1 NAME 0 SOCKET)) l@A hg(17 MS.SENDOPERATION 7 \CHECKNAME) (13 \RESPTOEXPAND) () MS.SENDOPERATIONA0001 :D7 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 OP F 5 SOCKET F 6 ARGS F 7 SI::NLSETQ-VALUE) 5i@"U[Tã ¿KTlÿå ¿VŠdºKJ ¿µôhdcg(36 \SENDITEM 24 \BOUT 14 \BOUT) (50 :NORMAL) () MS.SENDOPERATIONA0002 :D7 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 SOCKET F 4 RESPONSEFN F 5 SI::NLSETQ-VALUE) i@S ¿TºSkJhc g(11 FORCEOUTPUT) (27 :NORMAL) () MS.SENDOPERATION :D7 (P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 3 RESPONSEFN I 2 ARGS I 1 SOCKET I 0 OP F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) VA²O`TioUI gð´H´(C²&`TioUI gð´Hig(65 MS.SENDOPERATIONA0002 26 MS.SENDOPERATIONA0001) (83 StreamLost 70 :NORMAL 48 SI::NLSETQ-PROCEED-CASE 31 :NORMAL 9 SI::NLSETQ-PROCEED-CASE) ( 55 (CL:ERROR . SI::NLSETQHANDLER) 16 (CL:ERROR . SI::NLSETQHANDLER)) \FINDMAILSERVER :D7 (L (0 ERRORFLG)) +@ ``h` µ@´o` h(39 ERROR 22 OPENCLOSESTSOCKET 4 \MAILSERVERSOCKETS) (35 \MAILSERVERNAME 17 \MAILIOTIMEOUT 12 \MAILSERVERENQUIRYSOC 8 \MAILSERVERPOLLINGSOC) ( 31 "Couldn't open connection for") \MAILSERVERSOCKETS :D7 (L (0 ERRORFLG)) 7`µ"`@ X´l oöHH ³Û`(45 TIMEREXPIRED? 27 \CLOCK0 17 LOCATESOCKETS) (51 \MAILSERVERSOCKETCACHE 38 \MAILSERVERSOCKETCACHE 12 \MAILSERVERNAME 6 \MAILSERVERSOCKETCACHE) ( 31 36000000) \RECEIVEACK :D7 (L (0 STREAM)) @ ´iNIL NIL () \RESPTOCHECKVAL :D7 (L (0 INSTREAM)) .0@ á@ Ødjð™¿@ á@ ØH@ ºIµ JhY¸°ÝJ&¹°Ø(27 \RECEIVERNAME) NIL () \RESPTOEXPAND :D7 (L (0 INSTREAM)) H0@d ³¿@ djð¥dlð²¿i°* ºIµ JhY¸°ÚJ&¹°Õdkð¤dlð•¿g„¿H(67 SHOULDNT 31 \RECEIVERNAME 8 \RECEIVEBOOL) (61 BadRName) () \RESPTOSTARTSEND :D7 (L (0 INSTREAM)) 4@ djð‘idkð”gdlð”gdlð”glð”g(49 SHOULDNT) (44 NetworkCommunicationsFailure 35 ReturnToNotRegistered 25 SenderNotRegistered 15 InvalidPassword) () GV.PORTFROMNAME :D7 (L (0 SERVERNAME)) @ d“ (10 ETHERPORT 4 GV.READCONNECT) NIL () GV.POLLNEWMAIL :D7 (L (1 REGISTEREDNAME 0 GVPORT)) ¨g3I@@lŒhHi IA `¼k]Ló²-`²o` ¿` ¿K•K ¿I JHIhi[µ°=Ê‡dl‰ð”¿iZ°ØdlŠð”¿hZ°Îdl‹ð³Èlð²`™K` ¿KdÈ2lð³¿MkÔ°…(150 PRINTERRORPUP 97 EXCHANGEPUPS 87 RELEASE.PUP 81 RELEASE.PUP 73 TERPRI 64 PRIN1 35 PUTPUPSTRING 29 SETUPPUP 7 ALLOCATE.PUP 3 \GETMISCSOCKET) (146 PUPTRACEFILE 140 PUPTRACEFLG 69 PUPTRACEFILE 60 PUPTRACEFILE 50 PUPTRACEFLG 39 \MAXETHERTRIES 11 ?) ( 56 "Mail check timed out") GV.OPENMAILBOXA0001 :D7 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 MAILBOX F 3 REGISTEREDNAME F 4 PASSWORD F 5 SI::NLSETQ-VALUE) &i@jRS T hghc g(27 MS.RETRIEVEOPERATION 16 \CHECKKEY 11 \CHECKNAME) (35 :NORMAL 23 \RESPTOOPENMAILBOX) () GV.OPENMAILBOX :D7 (L (3 MAILSERVER 0 GVPORT) P 5 *CONDITION-HANDLER-BINDINGS* P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 0 MAILBOX I 2 PASSWORD I 1 REGISTEREDNAME F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS*) Z@A d¤ggð‘h @ X´7`VioWK gð´JYd´ HgIhI(56 GV.OPENMAILBOXA0001 28 \CONNECTTOMAILSERVER 5 GV.POLLNEWMAIL) (79 %#OFMESSAGES 61 :NORMAL 38 SI::NLSETQ-PROCEED-CASE 16 ? 11 EMPTY) ( 45 (CL:ERROR . SI::NLSETQHANDLER)) GV.NEXTMESSAGE :D7 (L (0 MAILBOX)) )k@hgXd´gHgHh(13 MS.RETRIEVEOPERATION) (30 ARCHIVED 22 DELETED 9 \RESPTONEXTMESSAGE) () GV.RETRIEVEMESSAGE :D7 (L (1 MSGOUTFILE 0 MAILBOX) P 0 *MSGOUTSTREAM*) Ag l@hg(23 MS.RETRIEVEOPERATION 8 GETSTREAM) (19 \RESPTORETRIEVEMESSAGE 4 OUTPUT) () GV.CLOSEMAILBOX :D7 (L (1 FLUSHP 0 MAILBOX)) $@ ´A´l@hg@` ¿(32 CLOSEBSPSTREAM 22 MS.RETRIEVEOPERATION 5 BSPOPENP) (28 \ETHERTIMEOUT 18 \RECEIVEACK) () GV.READTOC :D7 (L (0 MAILBOX)) l@hg(11 MS.RETRIEVEOPERATION) (7 \RECEIVESTRING) () GV.WRITETOC :D7 (L (1 REMARK 0 MAILBOX)) l@Ahg(13 MS.RETRIEVEOPERATION) (9 \RECEIVEACK) () GV.DELETEMESSAGE :D7 (L (0 MAILBOX)) l@hg(11 MS.RETRIEVEOPERATION) (7 \RECEIVEACK) () MS.RETRIEVEOPERATION :D7 (L (3 RESPONSEFN 2 ARGS 1 MAILBOX 0 OP)) 9A!H@ã ¿H@lÿå BŠd¹HI ¿µôH CµiºAkJ(43 FORCEOUTPUT 33 \SENDITEM 22 \BOUT 12 \BOUT) NIL () \CONNECTTOMAILSERVERA0001 :D7 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 PORT) `P`hg(23 \OPENGVCONNECTION) (19 ERROR! 13 \MAILSERVERRETRIEVALSOC 7 \RTP.DEFAULTTIMEOUT 3 GV.MAILBOX.TIMEOUT) () \CONNECTTOMAILSERVER :D7 (P 0 SI::*RESETFORMS* I 0 PORT) $g`hg ¿$(29 SI::RESETUNWIND 25 \MVLIST 21 \CONNECTTOMAILSERVERA0001) (17 SI::RESETUNWIND 7 \RTP.DEFAULTTIMEOUT 3 \RTP.DEFAULTTIMEOUT) () \RESPTOOPENMAILBOX :D7 (L (0 INSTREAM)) @ dlð—¿@ á@ Ølð´gNIL (23 BadPassword) () \RESPTONEXTMESSAGE :D7 (L (0 INSTREAM)) @ @ @ h(14 \RECEIVEBOOL 9 \RECEIVEBOOL 4 \RECEIVEBOOL) NIL () \RESPTORETRIEVEMESSAGE :D7 (L (0 INSTREAM) F 15 *MSGOUTSTREAM* F 16 *GV-SHOW-POSTMARK*) ið@É É:¾@dkN—¿@ h á@ Ø¸@ ¹Hdnð¢±”¿L²aW ½oW ¿LW ¿oW ¿Koæ W ¿oW ¿J W ¿W ¿W MÕ½h¼I_¿k_Oó³dW@ _¿_É(_¿OOlO¿OkÔ°Ùn2ð¬Hn0ð¦Hn1ð²?M²$gg _¿@OI¿OWM‡@WI¿Ikåjð’±þ÷@ ¿±þñW ²Kdo:ž¿O”H_°-o°¶o:˜O³H_°Kdo:²¿O§H_¿h_¿HkÔXIýó´@H¶[±ÿGo:²SO¥O¢O–o±ÿl@HkÔIoð²*@OH_ BC]dgð”±ÿ>L ¼h_ ¿H_kÔ¸±þ©Kd²do:©¿Ko:²†Ko:²(O¦o^°*@HkÔId–o:”h_°o^‹K¨Ošo^€h’±þÚOHð’±“O³"@OHOOOAB ]dgð²p±þO¦o±þ£@OkÔOOOOAB ]gð•M±þBd—gð²4ho@OOB’M€M@OkÔH _¿B•OMO]€ML¼HkÔ¸±ý¸@H¶do:’±þœo:¢±ýñHkÔ±ýìH_¿kºHkÔXIýó²F@H¶_$do:² ¿JkÕZjð²ãB¢±þdOHkÔhO_±þSo:”JkÔ°ÂO$o:²ºHkÔ°¶o±ýÄ@H¶_&do:’±þ$o:’±ý¨O&o:¢±ý’HkÔ±ýC£hdNÃ²7ChoO Ndo:–¿o°o:´oˆoNO ²CoO oNCN (860 \SENDMESSAGEFAIL 853 \SENDMESSAGEFAIL 848 CONCAT 828 \SENDMESSAGEFAIL 824 CL:FORMAT 788 CL:FORMAT 578 CL:FORMAT 573 \GV.EXTRACT.FIELD 557 \GV.EXTRACT.FIELD 519 \GV.PARSE.SIMPLE.RECIPIENT 474 \GV.PARSE.SIMPLE.RECIPIENT 410 \GV.FIND.NON.SPACE 349 \NCONC2 330 \GV.HANDLE.DL 322 \GV.EXTRACT.FIELD 307 \GV.FIND.NON.SPACE 35 REVERSE 16 NCHARS) (774 CHARACTER 540 :BOTH 525 :ERROR 481 :ERROR 337 :ERROR 157 :ERROR) ( 844 ": " 838 "In " 819 "Unmatched %"~C%"" 814 "Incorrect group syntax--colon without terminating semi-colon" 807 #\: 801 "Unmatched quotation mark" 794 #\" 782 "Error~@[ in ~A~]: " 752 #\\ 741 #\[ 732 #\] 719 #$ 707 #\\ 694 #\( 657 #$ 621 #\\ 612 #\" 548 "~@[~A ~]<~A>~@[ ~A~]" 496 #\< 438 #\: 427 "Semi-colon must be at end of group specification" 416 #\, 398 #\; 388 #\; 380 #\; 372 #\, 311 #\; 295 "Invalid use of colon" 279 #\: 244 #\@ 227 #\. 221 #\> 206 #\> 193 #\< 184 #\< 174 #\] 166 #\) 147 #\[ 128 #\[ 117 #\( 111 #\" 92 #\" 62 #\Newline 54 #\Tab 46 #\Space 28 #\:) \GV.FIND.NON.SPACE :D7 (L (2 END 1 START 0 STR)) - BAó¡h@A¶XYo:Io:¦Io:—AkÔb¿°ÛHNIL NIL ( 31 #\Newline 24 #\Tab 17 #\Space) \GV.PARSE.SIMPLE.RECIPIENT :D7 (L (7 INTERNALFLG 6 REGISTRY 5 COMMENTS 4 ATSIGN 3 DOT 2 END 1 START 0 FIELD)) ñGdgð²&¿@ABCDEFi H´@ABCDEFh H¢±‰C³M@ABEXD³F“dFgoH hHdj¶oð³¿Hd kÕ¶oð•H H`@ACE@CkÔBEXdd¯¿do d HD¢C²!@DµCB«@AB @ABF²÷@ABoF(238 CONCAT 229 \GV.EXTRACT.FIELD 218 \GV.EXTRACT.FIELD 210 \GV.PARSE.FAILED 206 \GV.EXTRACT.FIELD 198 \GV.FIND.NON.SPACE 180 MKATOM 176 U-CASE 169 \GV.PARSE.FAILED 165 CONCAT 148 \GV.EXTRACT.FIELD 138 \GV.EXTRACT.FIELD 122 \GV.PARSE.FAILED 108 NCHARS 86 CONCAT 63 \GV.EXTRACT.FIELD 42 \GV.PARSE.SIMPLE.RECIPIENT 23 \GV.PARSE.SIMPLE.RECIPIENT) (128 ARPANETGATEWAY.REGISTRY 77 :ERROR 6 :BOTH) ( 233 "." 161 "." 115 #\@ 98 #\@ 81 "No registry given for addressee ") \GV.EXTRACT.FIELD :D7 (L (3 COMMENTS 2 END 1 START 0 STR)) ÕC²q Cd“ !JµKY@ABX²EIoHh °7¼ALó³)LBýó²"@ALXhðLb¿KoHh »JZ°¯I AkÔb¿BdAó²$¿@A¶Ho:®Ho:§Ho:´i³ÕBAó²+@BkÕ¶Ho:®Ho:§Ho:´i—BmÿÔb°ÕBAó´ @AB(210 CL:SUBSEQ 106 CONCATLIST 94 \NCONC2 71 \GV.EXTRACT.FIELD 46 \NCONC2 30 \GV.EXTRACT.FIELD 13 REVERSE) NIL ( 184 #\Newline 177 #\Tab 170 #\Space 145 #\Newline 138 #\Tab 131 #\Space 86 " " 38 " ") \GV.HANDLE.DLA0001 :D7 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FILENAME F 3 SI::NLSETQ-VALUE) i@R hcg(13 OPENTEXTSTREAM 9 MKATOM) (21 :NORMAL) () \GV.HANDLE.DLA0002 :D7 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 STREAM F 3 SI::*RESETFORMS* F 4 INTERNALFLG F 5 EDITWINDOW) ?gRhhdSc RhdµIhTUi Xµ°égð‘HHI ¹°×(58 \NCONC2 38 \GV.PARSERECIPIENTS1 25 CL:READ-LINE) (48 :ERROR 3 CLOSEF) () \GV.HANDLE.DL :D7 (L (0 DL) P 9 RESETSTATE P 8 SI::*RESETFORMS* P 7 LISPXHIST P 6 *CONDITION-HANDLER-BINDINGS* P 5 SI::*NLSETQFLAG* P 4 *PROCEED-CASES* P 3 SI::NLSETQ-VALUE P 2 STREAM P 1 FILENAME I 2 EDITWINDOW I 1 INTERNALFLG F 10 *PROCEED-CASES* F 11 *CONDITION-HANDLER-BINDINGS* F 12 LISPXHIST) Ø A—Agð²@o A•Hdh€Hhg@dj¶o:¿@k@ kÕg`Ig ©Ig •I ŽIi``Y«goh`WioWL gð´KZ³go@ hW! g ¿$(209 SI::RESETUNWIND 205 \MVLIST 201 \GV.HANDLE.DLA0002 184 CONCAT 157 \GV.HANDLE.DLA0001 117 FINDFILE 101 INFILEP 95 UNPACKFILENAME.STRING 85 UNPACKFILENAME.STRING 73 PACKFILENAME.STRING 61 CL:SUBSEQ 55 CL:LENGTH 18 CONCAT) (197 SI::RESETUNWIND 175 :ERROR 162 :NORMAL 138 SI::NLSETQ-PROCEED-CASE 123 :ERROR 112 LAFITEDLDIRECTORIES 108 LAFITEDEFAULTHOST&DIR 91 DIRECTORY 81 HOST 69 LAFITEDL.EXT 65 EXTENSION 37 BODY 6 :BOTH) ( 179 "Can't open " 146 (CL:ERROR . SI::NLSETQHANDLER) 127 "Can't find file by this name" 45 #\" 14 ":;") \GV.PARSE.FAILED :D7 (L (0 ADDRESS)) go@ h(12 CONCAT) (3 :ERROR) ( 7 "Bad addressee ") \LAFITE.CHOOSE.REPLYTO :D7 (L (3 EDITORWINDOW 2 FROMFIELD 1 HEADEREOF 0 TEXTSTREAM) F 4 *LAFITE-MODE-DATA*) ¬Cµi`µ`oiogdgð³Õdgð²W¿@B²F@B°,d»oKd`ð’h‰oKhX–IµHZY¿µÕJ Œ YH°ìThAidgð¿@oiAhgð´h(159 \LAFITE.INSERT.REPLYTO 138 \LAFITE.INSERT.REPLYTO 123 LAST 118 CONCATLIST 39 \SENDMESSAGE.MENUPROMPT 23 \LAFITE.CREATE.MENU) (165 ABORT 145 OTHER 80 ARPANETGATEWAY.REGISTRY 52 SELF 44 NO 35 LAFITEREPLYTOMENU 27 LAFITEREPLYTOMENU 14 LAFITEREPLYTOMENUITEMS 8 LAFITEREPLYTOMENU) ( 153 ">>Address<<" 90 "." 73 ", " 31 "Message is addressed to a distribution list" 18 "Include a Reply-to field?") \GV.MESSAGE.P :D7 (L (0 MSG)) -@É oH ¡hoH ¡ihH hð(39 \GV.PARSERECIPIENTS1 30 STRPOS 18 STRPOS) (4 LAFITEMSG) ( 25 ":" 13 ".") \GV.MESSAGE.FROM.SELF.P :D7 (L (0 MSG) F 3 *LAFITE-MODE-DATA*) Y@É SIHhddd` d²9kÙZjð›I H ðHJkÙ¶oð´JI ÔZH ýó´ HJ¶oð(74 NCHARS 67 NCHARS 47 NCHARS 42 NCHARS 28 STRPOS) (23 UPPERCASEARRAY 4 LAFITEMSG) ( 85 #\> 58 #\<) GV.MAKEANSWERFORMA0001 :D7 (L (1 STREAM 0 NAMES)) !0@d¸IµHhZH&¹µïJA (30 LA.PRINT.COMMA.LIST) NIL () GV.MAKEANSWERFORM :D7 (L (1 MAILFOLDER 0 MSGDESCRIPTORS) F 15 *LAFITE-MODE-DATA*) uA@µ@ áH°kd_dgð—¿O¹°Vdgð—¿O¼°Gdgð—¿Oº°8dgð—¿O»°)dgð–¿O½°dgð•¿O¾‹gð•O_¿µ–Lµ"JµO³AAio°Ahg_°çhg_¿J²ÖJgO g_°ÁgO _¿N›NOg¾OžOOg_¿MMOg]µO_MŸWWh‹NON O _IM•MOô²0O³+Od²'W_¿_O œOO ‘h€JKOOg (370 LAFITE.FILL.IN.ANSWER.FORM 352 CL::SIMPLE-STRING-EQUAL 341 CL::SIMPLE-STRING-EQUAL 298 \GV.DIFFERENCE 292 \APPEND2 288 \GV.DIFFERENCE 255 \GV.PARSERECIPIENTS 239 \GV.PARSERECIPIENTS 223 \GV.PARSERECIPIENTS 207 %%SOME-SINGLE 193 \GV.PARSERECIPIENTS 185 %%SOME-SINGLE 168 \GV.PARSERECIPIENTS 155 \GV.PARSERECIPIENTS 144 LAB.PROMPTPRINT 10 \LAFITE.PARSE.MESSAGE) (365 GV.MAKEANSWERFORMA0001 251 :BOTH 235 :BOTH 219 :BOTH 201 CDDR 189 :BOTH 179 CDDR 164 :BOTH 151 :BOTH 112 cc 100 To 86 Reply-to 71 Date 56 From 41 Sender 26 Subject) ( 140 "Warning: message has no FROM field") \GV.DIFFERENCE :D7 (L (1 B 0 A)) v@AHµI¼ALMµh©L»JµSKhZ¹HX°Þ_N ²8OdL ³'¿OL ²LLoL –Oµ²i°¯M]°¦K&º°±(98 CL::SIMPLE-STRING-EQUAL 94 CONCAT 76 CL::SIMPLE-STRING-EQUAL 62 CL::SIMPLE-STRING-EQUAL 50 CL::SIMPLE-STRING-EQUAL) NIL ( 87 ".") (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) ( INITVARS (\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 \RESPTOOPENMAILBOX \RESPTONEXTMESSAGE \RESPTORETRIEVEMESSAGE \RECEIVELONGWORD \CACHED.HOST.NAME) (INITVARS (GV.MAILBOX.TIMEOUT 12000) (*GV-SHOW-POSTMARK*) (\CACHED.HOST.NAMES)) ( ADDVARS (\SYSTEMCACHEVARS \CACHED.HOST.NAMES)) (GLOBALVARS GV.MAILBOX.TIMEOUT \CACHED.HOST.NAMES)) ( 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.PARSERECIPIENTS1 \GV.FIND.NON.SPACE \GV.PARSE.SIMPLE.RECIPIENT \GV.EXTRACT.FIELD \GV.HANDLE.DL \GV.PARSE.FAILED \LAFITE.CHOOSE.REPLYTO) (FNS \GV.MESSAGE.P \GV.MESSAGE.FROM.SELF.P GV.MAKEANSWERFORM \GV.DIFFERENCE) (ADDVARS (MAILSERVERTYPES) ( LAFITEDLDIRECTORIES) (LAFITE.PERSONAL.VARS LAFITE.GV.FROM.FIELD)) (INITVARS (ARPANETGATEWAY.REGISTRY ( QUOTE AG)) (LAFITEREPLYTOMENU NIL) (LAFITEDL.EXT "DL") (LAFITE.GV.FROM.FIELD)) (ADDVARS (LAFITESUPPORT (GV "LafiteSupport.pa")) (LAFITEMENUVARS LAFITEREPLYTOMENU)) (VARS LAFITEREPLYTOMENUITEMS) (PROP FILEDEF MAINTAIN)) (DECLARE%: DOEVAL@COMPILE DONTCOPY (RECORDS MAILPORT GVMAILPARSE) (COMS * MAILCLIENTCONSTANTCOMS) (P (CL:PROCLAIM (QUOTE (GLOBAL MAILSERVERTYPES ARPANETGATEWAY.REGISTRY LAFITEREPLYTOMENUITEMS LAFITEREPLYTOMENU))) (CL:PROCLAIM (QUOTE (CL:SPECIAL *MSGOUTSTREAM*)))) (FILES (SOURCE) LAFITEDECLS) (FILES (LOADCOMP) GRAPEVINE PUP BSP) (LOCALVARS . T)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (CL:PROCLAIM (QUOTE (GLOBAL LAFITE.GV.FROM.FIELD LAFITEDL.EXT LAFITEDLDIRECTORIES))) ( CL:PROCLAIM (QUOTE (CL:SPECIAL *GV-SHOW-POSTMARK*)))) (FILES GRAPEVINE)))) (RPAQ? \MAILIOTIMEOUT NIL) (RPAQ? \MAILSERVERENQUIRYSOC 46) (RPAQ? \MAILSERVERNAME (QUOTE (Maildrop . ms))) (RPAQ? \MAILSERVERPOLLINGSOC 44) (RPAQ? \MAILSERVERSOCKETCACHE) (RPAQ? \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) (RPAQ? *GV-SHOW-POSTMARK*) (RPAQ? \CACHED.HOST.NAMES) (ADDTOVAR \SYSTEMCACHEVARS \CACHED.HOST.NAMES) (ADDTOVAR LAFITEMODELST (GV 2 \GV.SEND.PARSE \GV.SENDMESSAGE GV.MAKEANSWERFORM GV.INIT.MAIL.USER \GV.MESSAGE.P \GV.MESSAGE.FROM.SELF.P) (GRAPEVINE . GV)) (ADDTOVAR MAILSERVERTYPES) (ADDTOVAR LAFITEDLDIRECTORIES) (ADDTOVAR LAFITE.PERSONAL.VARS LAFITE.GV.FROM.FIELD) (RPAQ? ARPANETGATEWAY.REGISTRY (QUOTE AG)) (RPAQ? LAFITEREPLYTOMENU NIL) (RPAQ? LAFITEDL.EXT "DL") (RPAQ? LAFITE.GV.FROM.FIELD) (ADDTOVAR LAFITESUPPORT (GV "LafiteSupport.pa")) (ADDTOVAR LAFITEMENUVARS LAFITEREPLYTOMENU) (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) (CL:PROCLAIM (QUOTE (GLOBAL LAFITE.GV.FROM.FIELD LAFITEDL.EXT LAFITEDLDIRECTORIES))) (CL:PROCLAIM (QUOTE (CL:SPECIAL *GV-SHOW-POSTMARK*))) (FILESLOAD GRAPEVINE) (PUTPROPS MAILCLIENT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990)) NIL