(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 9-Mar-87 16:00:44" ("compiled on " {ERIS}SOURCES>NSMAIL.;7) " 9-Mar-87 13:16:50" bcompl'd in "Xerox Lisp 9-Mar-87 ..." dated " 9-Mar-87 13:43:48") (FILECREATED "17-Dec-86 19:53:54" {ERIS}SOURCES>NSMAIL.;7 88792 changes to%: (FNS \NSMAIL.AUTHENTICATE) previous date%: " 7-Oct-86 18:42:07" {ERIS}SOURCES>NSMAIL.;6) \NSMAIL.AUTHENTICATE :D4 (P 6 MSG P 5 CREDENTIALS P 4 AUTHENTICATED? P 3 MSERVERS P 2 FULLNAME P 1 NSUSERNAME P 0 INFO) ; g q`*H Y YgH ] \ivLdgo goI Lgo^gihN X` o` Ii ` o` L` o I [!` o` Ii ` hIi IMIgI` Io 0 K2d_oOOhd_O Oh__Oh_O(245 CONCAT 230 STRING.EQUAL 207 NSNAME.TO.STRING 200 PRIN1 194 NSNAME.TO.STRING 188 PRIN1 177 TERPRI 168 NS.FINDMAILBOXES 157 PRIN1 146 PRIN1 135 PRIN1 129 NSNAME.TO.STRING 123 PRIN1 112 TERPRI 103 \INTERNAL/GETPASSWORD 80 CONCAT 43 NS.AUTHENTICATE 39 NS.MAKE.SIMPLE.CREDENTIALS 26 CH.LOOKUP.OBJECT 22 PARSE.NSNAME 5 \INTERNAL/GETPASSWORD) (312 \LAFITEUSERDATA 235 NSNAME 227 CH.DEFAULT.DOMAIN 222 NSNAME 218 %: 213 NSNAME 197 PROMPTWINDOW 185 PROMPTWINDOW 174 PROMPTWINDOW 154 PROMPTWINDOW 151 \LAFITE.AUTHENTICATION.FAILURE 143 PROMPTWINDOW 132 PROMPTWINDOW 120 PROMPTWINDOW 109 PROMPTWINDOW 97 |NS::| 85 NONE 75 NSNAME 65 KeysUnavailable 53 CredentialsInvalid 32 NONE 11 \LAFITEUSERDATA 2 |NS::|) ( 260 (NS.POLLNEWMAIL NS.OPENMAILBOX NS.NEXTMESSAGE NS.RETRIEVEMESSAGE NS.CLOSEMAILBOX) 242 "" 182 "There are no mail servers for user " 162 "." 140 " because: " 117 "Cannot authenticate user " 92 "No such user" 71 "Authentication server unavailable for domain " 60 "Login incorrect") NS.FINDMAILBOXES :D4 (P 1 MB P 0 MAILBOXENTRY I 0 USERNAME) ;@ lg 0HdYlg KJh\[Jh[L(35 CH.RETRIEVE.ITEM 11 CH.RETRIEVE.ITEM 3 PARSE.NSNAME) (32 NETWORK.ADDRESS.LIST 8 MAILBOX.VALUES) () NS.POLLNEWMAIL :D4 (P 1 N P 0 RESULT I 3 MAILSERVER I 2 CREDENTIALS I 1 REGISTEREDNAME I 0 ADDRESS) ( @ABC XCYjh HIhg(9 \NSMAIL.CHECK) (37 ?) () NS.OPENMAILBOX :D4 (P 5 N P 4 LASTINDEX P 3 FIRSTINDEX P 2 INBASKETSTATE P 1 NSMAILSTATE P 0 STREAM I 3 MAILSERVER I 2 CREDENTIALS I 1 REGISTEREDNAME I 0 ADDRESS) U@hig CBHh@ABCH ZH hI[jjJ\Kk]jH gHhdLIgMh(61 CLOSEF 35 CLOSEF 29 \NSMAIL.CHECK 8 COURIER.OPEN) (77 %#OFMESSAGES 64 EMPTY 5 NSMAIL) () \NSMAIL.CHECKA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 5 OLDLAST P 4 FIRSTNEW P 3 LASTINDEX P 2 POLLRESULT P 1 SESSION P 0 JUSTCHECKING I 0 SI::*CLEANUP-FORMS* F 6 STATE F 7 STREAM F 8 ADDRESS F 9 MAILSERVER F 10 CREDENTIALS F 11 SI::*RESETFORMS* F 12 REGISTEREDNAME) zWhQV)Wc WhddW WWhc VVV]IWW(Whig cgWhhdWcWggWWVoig YgZVIYWWlggIg ggIg ZhgIJdgVhYVh\Vh]Y` o` I` `I J[jVj5MKMHL,V`kW6WlggIgg VKWJllnJggIgg (374 COURIER.CALL 326 COURIER.EXPEDITED.CALL 266 HELP 256 PRIN1 247 PRIN1 236 TERPRI 185 COURIER.CALL 170 COURIER.EXPEDITED.CALL 134 COURIER.CALL 77 COURIER.OPEN 32 PARSE.NSNAME) (370 NOERROR 367 NEW 363 LOCATE 360 INBASKET 322 RETURNERRORS 319 NEW 315 LOCATE 312 INBASKET 297 NSMAIL.RETRIEVE.OLD 260 NSWIZARDFLG 253 PROMPTWINDOW 244 PROMPTWINDOW 233 PROMPTWINDOW 205 SESSION.ERROR 195 ERROR 181 RETURNERRORS 177 MAILCHECK 174 INBASKET 166 RETURNERRORS 162 MAILCHECK 159 INBASKET 139 ERROR 130 RETURNERRORS 111 LOGON 108 INBASKET 88 CLOSEF 74 NSMAIL) ( 241 "Mail Server Error: " 126 (0 0 0 0)) \NSMAIL.CHECK :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 5 STATE I 4 STREAM I 3 MAILSERVER I 2 CREDENTIALS I 1 REGISTEREDNAME I 0 ADDRESS F 2 LISPXHIST) Rg  (19 CL:VALUES-LIST 15 SI::RESETUNWIND 12 \MVLIST 9 \NSMAIL.CHECKA0001) (6 SI::RESETUNWIND) () NS.NEXTMESSAGE :D4 (P 0 ENVELOPES I 0 MAILBOX) +@H@@ X@H@HHih(18 \NSMAIL.READ.ENVELOPES) NIL () \NSMAIL.READ.ENVELOPES :D4 (P 4 E P 0 ENVELOPES I 0 MAILBOX) g@gg@@@hidlhho X@H*d\LLL JIh[ZIhZK(78 \APPEND2 75 \APPEND2 49 COURIER.CALL) (10 LIST 7 INBASKET) ( 45 (INBASKET . MESSAGE.DESCRIPTION)) NS.RETRIEVEMESSAGE :D4 (P 0 ENVELOPE I 1 MSGOUTFILE I 0 MAILBOX) 8@@@@gg@Hjg HgHgh(38 COURIER.CALL) (51 DELETE 44 NO 34 \NSMAIL.RETRIEVE.CONTENT 22 RETRIEVE 19 INBASKET) () \NSMAIL.RETRIEVE.CONTENT :D4 (P 1 CTTYPE P 0 RETRIEVALERROR I 0 MSGSTREAM F 2 MSGOUTFILE F 3 ENVELOPE) @ @gg @hg lo @RS HR oR R h(60 TERPRI 55 PRIN1 46 TERPRI 39 \NSMAIL.READ.SERIALIZED.TREE 31 HELP 20 COURIER.READ 12 SETFILEINFO) (17 LONGCARDINAL 9 \NSMAIL.EOF.ON.RETRIEVE 6 ENDOFSTREAMOP) ( 51 "**Warning: errors in message format**" 28 "Wrong serialized file version") \NSMAIL.EOF.ON.RETRIEVE :D4 (P 0 POS I 0 STREAM F 1 RETRIEVALERROR) 5ic`o g Xg Xdhi gi h(49 RETTO 40 RETFROM 32 STKPOS 23 STKPOS 13 HELP) (45 *ERROR* 29 \NSMAIL.READ.SERIALIZED.TREE 20 \NSMAIL.READ.ATTR.SEQUENCE 5 LAFITEDEBUGFLG) ( 10 "EOF during retrieve") \NSMAIL.READ.SERIALIZED.TREE :D4 (P 15 N P 11 BODYSTREAM P 10 FORMATSTREAM P 9 COERCED P 8 TYPEINFO P 7 SENDER P 6 HEADERS P 5 NOTEBODY P 4 LENGTH P 3 HEADERFIELDS P 2 VALUE P 1 TYPE P 0 FORMATTED? I 2 ENVELOPE I 1 MSGOUTFILE I 0 MSGSTREAM) . k@ @ OO=@hg `_/h@`` o` I` @hg _IO iOOYdgoW o jhH_9W o  oH I H oH IgH k_lOhig ^n Ok԰NW o gNhhdW&c&HgH NggLLIhijhgg _dgW Odg  `` o` O` I (370 LENGTH 365 PRIN1 356 PRIN1 345 TERPRI 333 \LAFITE.SEND.FAIL 330 MKSTRING 325 \LAFITE.INVALID.RECIPIENTS 297 COURIER.CALL 270 PRIN1 244 \LAFITE.SEND.FAIL 226 DISMISS 217 COURIER.OPEN 196 PRIN1 184 PRIN1 175 PRIN1 171 LENGTH 166 PRIN1 157 CLEARW 153 \LAFITE.SEND.FAIL 140 \NSMAIL.FINDSERVER 131 \LAFITE.GET.USER.DATA 125 \LAFITE.SEND.FAIL 103 NCHARS 93 LENGTH 88 GETEOFPTR 84 GETEOFPTR 78 OPENSTREAM 67 OPENSTREAM 59 COERCETEXTOBJ 50 TEDIT.DELETE 43 COPYTEXTSTREAM 6 GETPROMPTWINDOW) (362 PROMPTWINDOW 353 PROMPTWINDOW 342 PROMPTWINDOW 337 NSMAILDEBUGFLG 318 INVALID.RECIPIENTS 305 ERROR 293 RETURNERRORS 290 \NSMAIL.SEND.MESSAGE.CONTENT 278 POST 275 MAILTRANSPORT 266 |...| 248 \SPP.RESETCLOSE 214 NSMAILER 192 s 99 \LAFITEUSERDATA 75 INPUT 64 INPUT 56 SPLIT 24 \LAFITEUSERDATA) ( 350 "Post results: " 241 "Couldn't connect to a maildrop" 180 " recipient" 162 "Delivering to " 150 "Couldn't find a mail drop" 122 "Message too long to send formatted. Either break it up or send it as plain text." 114 99999) \NSMAIL.SEND :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 ABORTWINDOW I 2 EDITORWINDOW I 1 PARSE I 0 MSG F 2 LISPXHIST) Rg  (19 CL:VALUES-LIST 15 SI::RESETUNWIND 12 \MVLIST 9 \NSMAIL.SENDA0001) (6 SI::RESETUNWIND) () \NSMAIL.SEND.MESSAGE.CONTENT :D4 (P 13 PAIR P 2 NOTEP P 1 BODYLENGTH P 0 SENDER I 0 DATASTREAM F 14 MSG F 15 ABORTWINDOW F 16 START F 17 MSGFIELDS F 18 FORMATSTREAM) `W W  @lhg @W" W$kjn@IZjkjlؼ[L KLl @]nAhg MNgg gW"@nahg @Hgg @Hh__n@hg OOgg W"d @OO @Jll__lhg OOgg @lhg @Igg W:JW@W nO W$J<@j @k @j @j 0@jJn.g n/ @WW W @Ikk__O OOl @j @j Wdg Wg hW h(416 DELETEMENU 409 GETWINDOWUSERPROP 399 ERROR! 395 GETWINDOWUSERPROP 384 \BOUT 378 \BOUT 372 \BOUT 361 \BOUT 343 COURIER.WRITE.STREAM.UNSPECIFIED 340 GETEOFPTR 327 \NSMAIL.SEND.STREAM.AS.STRING 318 ERROR! 313 GETWINDOWUSERPROP 295 \BOUT 289 \BOUT 283 \BOUT 277 \BOUT 264 \NSMAIL.SEND.STREAM.AS.STRING 247 COURIER.WRITE.SEQUENCE.UNSPECIFIED 235 COURIER.WRITE 224 COURIER.WRITE.SEQUENCE.UNSPECIFIED 210 COURIER.WRITE 183 \NSMAIL.WRITE.ATTRIBUTE 163 COURIER.WRITE.SEQUENCE.UNSPECIFIED 149 COURIER.WRITE 119 COURIER.WRITE 99 COURIER.WRITE.SEQUENCE.UNSPECIFIED 87 COURIER.WRITE 75 IDATE 70 \BOUT 61 \BOUT 31 LENGTH 25 COURIER.WRITE 9 GETEOFPTR) (406 MENU 392 ABORT 310 ABORT 244 LONGCARDINAL 241 MAILTRANSPORT 232 LONGCARDINAL 221 LONGCARDINAL 218 MAILTRANSPORT 207 LONGCARDINAL 160 NAME.LIST 157 MAILTRANSPORT 146 LONGCARDINAL 128 NAME 125 MAILTRANSPORT 116 LONGCARDINAL 103 From 96 TIME 93 MAILTRANSPORT 84 LONGCARDINAL 22 LONGCARDINAL 2 \LAFITEUSERDATA) () COURIER.WRITE.STREAM.UNSPECIFIED :D4 (P 0 LENGTH I 3 END I 2 START I 1 INSTREAM I 0 OUTSTREAM) 0CAB CdmA BB A A Xn2@j @k @HkYJ IJl A@H Hkj,i@j @j @l@ @j A@n Hn@j h(136 \BOUT 124 COPYBYTES 115 \BOUT 109 \BOUT 102 \BOUT 96 \BOUT 82 COPYBYTES 75 \BOUT 66 \BOUT 54 \BOUT 48 \BOUT 35 GETFILEPTR 31 GETEOFPTR 22 GETEOFPTR 10 SETFILEPTR) NIL () \NSMAIL.SEND.STREAM.AS.STRING :D4 (P 1 LENGTH P 0 EOF I 3 ATTRIBUTE I 2 START I 1 OUTSTREAM I 0 INSTREAM) O@ 1AChg AHBYkkػZK JKl AI AIl @ABH IkjAj h(75 \BOUT 64 COPYBYTES 57 \BOUT 48 \BOUT 41 \BOUT 32 \BOUT 15 COURIER.WRITE 3 GETEOFPTR) (12 LONGCARDINAL) () \NSMAIL.WRITE.ATTRIBUTE :D4 (P 0 TYPEINFO I 2 VALUE I 1 TYPE I 0 STREAM) /A`H@Hhg @BgH oA h(43 HELP 34 COURIER.WRITE.SEQUENCE.UNSPECIFIED 21 COURIER.WRITE) (27 MAILTRANSPORT 18 LONGCARDINAL 3 \NSMAIL.ATTRIBUTES) ( 39 "Unknown mail attribute") \NSMAIL.FINDSERVER :D4 (P 3 ADDR P 1 INFO P 0 NULL.AUTHENTICATOR) eo``J,h'lggHohg` Yd`I[lggHog  KiJZ(87 \NSMAIL.CHECKSERVER 84 COURIER.EXPEDITED.CALL 50 COURIER.BROADCAST.CALL) (80 RETURNERRORS 72 SERVER.POLL 69 MAILTRANSPORT 60 \NSMAIL.SERVER.CACHE 56 \NSMAIL.SERVER.CACHE 46 NSMAIL.NET.HINT 43 \NSMAIL.CHECKSERVER 32 SERVER.POLL 29 MAILTRANSPORT 13 \NSMAIL.SERVER.CACHE 9 \NSMAIL.SERVER.CACHE) ( 77 (0) 37 (0) 3 (SIMPLE NIL)) \NSMAIL.CHECKSERVER :D4 (L (0 POLLRESULT)) @3 l @@NIL NIL () \NSMAIL.MAKEANSWERFORMA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 MSGDESCRIPTOR F 1 MAILFOLDER) 6Q hg Qg `PPPP (51 LAFITE.PARSE.HEADER 19 \LAFITE.OPEN.FOLDER 12 OBTAIN.MONITORLOCK) (45 LAFITEMSG 39 LAFITEMSG 32 LAFITEMSG 26 LAFITEMSG 22 \LAPARSE.FULL 16 INPUT 9 WITH.MONITOR 3 MAILFOLDER) () \NSMAIL.MAKEANSWERFORM :D4 (P 25 CCNAME P 23 NAME P 21 SI::*RESETFORMS* P 20 SI::*LOCKED-MONITOR* P 18 X P 17 MSGFIELDS P 16 SELECTPOSITION P 15 OUTSTREAM P 14 NEWCC P 13 NEWTO P 12 OLDCC P 11 OLDTO P 10 OLDREPLYTO P 9 OLDFROM P 8 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) @@@ g  _"ddd_&dgO&PdgO&BdgO&4dgO&&dgO&dgO&gO&_LMJ@Aio MdO _NdO _OdO _OO_O'`h( __ _JdO _OO _OO,ohddg`h _nO oO Ikl o oO I`O O oO JO oO KO O oO OO O OoO OO O O O k_ `O O OO ` gi O_.OO0 h_$!_2O. O2iO0_0O _O,_,(528 DREMOVE 508 EQUAL.CH.NAMES 475 TEDIT.SETSEL 467 NCHARS 457 TERPRI 451 PRIN1 439 GETFILEPTR 434 TERPRI 428 TERPRI 422 \NSMAIL.PRINT.NAMES 414 PRIN1 401 TERPRI 396 \NSMAIL.PRINT.NAMES 389 PRIN1 380 TERPRI 374 PRIN1 367 PRIN1 357 PRIN1 350 PRIN1 341 TERPRI 335 PRIN1 323 PRIN1 313 STRING-EQUAL 306 SUBSTRING 299 PRIN1 290 LINELENGTH 280 OPENTEXTSTREAM 243 NS.REMOVEDUPLICATES 240 \APPEND2 229 \NSMAIL.PARSE 218 PARSE.NSNAME 208 \NSMAIL.PARSE 182 \NSMAIL.PARSE 171 \NSMAIL.PARSE 161 \NSMAIL.PARSE 152 LAB.PROMPTPRINT 30 CL:VALUES-LIST 26 SI::MONITOR-UNWIND 23 \MVLIST 20 \NSMAIL.MAKEANSWERFORMA0001) (470 RIGHT 464 MESSAGESTR 446 MESSAGESTR 330 UNSUPPLIEDFIELDSTR 273 LAFITEEDITORFONT 270 FONT 199 \LAFITEUSERDATA 125 cc 114 To 101 Reply-to 87 Date 73 From 59 Sender 45 Subject 17 SI::MONITOR-UNWIND) ( 409 "cc: " 384 "To: " 362 "'s message of " 345 "In-reply-to: " 318 "Re: " 310 "Re:" 294 "Subject: " 264 "" 149 "Can't reply--no FROM or SENDER field") \NS.READ.ENVELOPE.ITEM :D4 (P 3 VALUE P 2 X P 1 TYPE I 2 TYPE I 1 PROGRAM I 0 STREAM) B`@hg "HI@hg hZdIHX@ @ @AJ h(60 COURIER.READ 26 COURIER.READ.SEQUENCE 10 COURIER.READ) (23 UNSPECIFIED 7 LONGCARDINAL 2 \NSMAIL.ENVELOPE.ITEM.TYPES) () \NS.WRITE.ENVELOPE.ITEM :D4 (P 4 X P 2 VALUETYPE P 1 VALUE P 0 TYPE I 3 TYPE I 2 PROGRAM I 1 ITEM I 0 STREAM) XAAH3 `K oH @Hhg J"@IBJ "\dHK[LZ@IBg h(84 COURIER.WRITE.SEQUENCE 50 COURIER.WRITE.SEQUENCE.UNSPECIFIED 40 COURIER.WRITE 30 ERROR) (81 UNSPECIFIED 37 LONGCARDINAL 15 \NSMAIL.ENVELOPE.ITEM.TYPES) ( 26 "Unknown Envelope Item Type") (PRETTYCOMPRINT NSMAILCOMS) (RPAQQ NSMAILCOMS ((COURIERPROGRAMS MAILTRANSPORT INBASKET) (FNS \NSMAIL.AUTHENTICATE NS.FINDMAILBOXES ) (FNS NS.POLLNEWMAIL NS.OPENMAILBOX \NSMAIL.CHECK NS.NEXTMESSAGE \NSMAIL.READ.ENVELOPES NS.RETRIEVEMESSAGE \NSMAIL.RETRIEVE.CONTENT \NSMAIL.EOF.ON.RETRIEVE \NSMAIL.READ.SERIALIZED.TREE \NSMAIL.READ.SERIALIZED.CONTENT \NSMAIL.READ.ATTR.SEQUENCE \NSMAIL.READ.STRING.AS.STREAM \NSMAIL.PRINT.HEADERFIELDS \NSMAIL.PRINT.NAMES) (FNS NS.CLOSEMAILBOX \NSMAIL.DISCONNECT \NSMAIL.CHANGE.STATUS) (FNS \NSMAIL.SEND.PARSE \NSMAIL.PARSE \NSMAIL.PARSE1 NS.REMOVEDUPLICATES \NSMAIL.SEND \NSMAIL.SEND.MESSAGE.CONTENT COURIER.WRITE.STREAM.UNSPECIFIED \NSMAIL.SEND.STREAM.AS.STRING \NSMAIL.WRITE.ATTRIBUTE \NSMAIL.FINDSERVER \NSMAIL.CHECKSERVER) (FNS \NSMAIL.MAKEANSWERFORM) (COMS (PROP COURIERDEF ENVELOPE.ITEM) (FNS \NS.READ.ENVELOPE.ITEM \NS.WRITE.ENVELOPE.ITEM) (VARS \NSMAIL.ENVELOPE.ITEM.TYPES) (DECLARE%: EVAL@COMPILE DOCOPY (VARS \NSMAIL.ATTRIBUTES))) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS NSMAILBOX NSMAILSTATE NSMAILPARSE) ( CONSTANTS \NSMAIL.SOCKET \SERIALIZED.FILE.VERSION \NSMAIL.CTSTANDARD.MESSAGE \NSMAIL.TEXT.BODYTYPE \NSMAIL.EMPTY.BODYTYPE \NSMAIL.MAX.NOTE.LENGTH MAX.BULK.SEGMENT.LENGTH \NULL.CACHE.VERIFIER) (MACROS \NSMAIL.ATTRIBUTE.TYPE \NSMAIL.WRITE.ATTRIBUTE \NSMAIL.WRITE.ATTRIBUTE.MACRO) (PROP INFO \NSMAIL.ATTRIBUTE.TYPE) (GLOBALVARS NSMAIL.NET.HINT \NSMAIL.ENVELOPE.ITEM.TYPES \NSMAIL.ATTRIBUTES \NSMAIL.SERVER.CACHE NSMAILDEBUGFLG NSWIZARDFLG NSMAIL.RETRIEVE.OLD \NSMAIL.GOOD.BODYTYPES)) (INITVARS (\NSMAIL.SERVER.CACHE) (NSMAILDEBUGFLG) (NSMAIL.NET.HINT) (NSMAIL.RETRIEVE.OLD)) (ADDVARS ( \SYSTEMCACHEVARS \NSMAIL.SERVER.CACHE) (\NSMAIL.GOOD.BODYTYPES 2 4)) (ALISTS (LAFITEMODELST NS STAR)) (COMS (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE) LAFITEDECLS) (FILES (LOADCOMP) CLEARINGHOUSE))) )) (COURIERPROGRAM MAILTRANSPORT (17 4) TYPES ((CREDENTIALS (AUTHENTICATION . CREDENTIALS)) (VERIFIER ( AUTHENTICATION . VERIFIER)) (ENVELOPE.ITEM.TYPE LONGCARDINAL) (ENVELOPE (SEQUENCE ENVELOPE.ITEM)) ( INVALID.NAME (RECORD (REASON INVALID.NAME.REASON) (NAME RNAME))) (INVALID.NAME.LIST (SEQUENCE INVALID.NAME)) (INVALID.NAME.REASON (ENUMERATION (NoSuchRecipient 0) (CantValidateNow 1) (IllegalName 2) (Refused 3) (NoAccessToDl 4) (Timeout 5) (NoDlsAllowed 6) (MessageTooLong 7))) (NAME (CLEARINGHOUSE . NAME)) (NAME.LIST (SEQUENCE NAME)) (RNAME NAME) (RNAME.LIST (SEQUENCE RNAME)) (WILLINGNESS CARDINAL ) (CONTENTS.TYPE LONGCARDINAL) (MESSAGEID (ARRAY 5 UNSPECIFIED)) (POSTMARK (RECORD (POSTED.AT NAME) ( TIME TIME))) (PROBLEM (RECORD (UNDELIVERABLES INVALID.NAME.LIST) (RETURNED.ENVELOPE ENVELOPE))) ( CONNECTION.PROBLEM (FILING . CONNECTION.PROBLEM)) (SERVICE.PROBLEM (ENUMERATION (CannotAuthenticate 0) (ServiceFull 1) (ServiceUnavailable 2) (MediumFull 3))) (TRANSFER.PROBLEM (ENUMERATION (Aborted 0) ( NoRendezvous 1) (WrongDirection 4)))) PROCEDURES ((SERVER.POLL 0 (CREDENTIALS VERIFIER) RETURNS ( WILLINGNESS (CLEARINGHOUSE . NETWORK.ADDRESS.LIST) VERIFIER NAME)) (POST 1 (CREDENTIALS VERIFIER RNAME.LIST BOOLEAN BOOLEAN CONTENTS.TYPE ENVELOPE BULK.DATA.SOURCE) RETURNS (INVALID.NAME.LIST MESSAGEID) REPORTS (AUTHENTICATION.ERROR CONNECTION.ERROR INVALID.RECIPIENTS SERVICE.ERROR TRANSFER.ERROR UNDEFINED.ERROR))) ERRORS ((AUTHENTICATION.ERROR 1 ((AUTHENTICATION . PROBLEM))) ( CONNECTION.ERROR 2 (CONNECTION.PROBLEM)) (INVALID.RECIPIENTS 3 (INVALID.NAME.LIST)) (SERVICE.ERROR 4 ( SERVICE.PROBLEM)) (TRANSFER.ERROR 5 (TRANSFER.PROBLEM)) (UNDEFINED.ERROR 6 (CARDINAL)))) (COURIERPROGRAM INBASKET (18 1) INHERITS (MAILTRANSPORT) TYPES ((CREDENTIALS (AUTHENTICATION . CREDENTIALS)) (VERIFIER (AUTHENTICATION . VERIFIER)) (SESSION (RECORD (HANDLE (ARRAY 2 UNSPECIFIED)) ( VERIFIER VERIFIER))) (ENVELOPE.ITEM.TYPE LONGCARDINAL) (ENVELOPE (SEQUENCE ENVELOPE.ITEM)) ( INVALID.NAME (RECORD (REASON INVALID.NAME.REASON) (NAME RNAME))) (INVALID.NAME.LIST (SEQUENCE INVALID.NAME)) (INVALID.NAME.REASON (ENUMERATION (NoSuchRecipient 0) (CantValidateNow 1) (IllegalName 2) (Refused 3) (NoAccessToDl 4) (Timeout 5) (NoDlsAllowed 6) (MessageTooLong 7))) (NAME (CLEARINGHOUSE . NAME)) (NAME.LIST (SEQUENCE NAME)) (RNAME NAME) (RNAME.LIST (SEQUENCE RNAME)) (CONTENTS.TYPE LONGCARDINAL) (INDEX CARDINAL) (INBASKET.STATE (RECORD (LASTINDEX INDEX) (NEWCOUNT CARDINAL) ( ISPRIMARY BOOLEAN) (ISPRIMARYUP BOOLEAN))) (RANGE (RECORD (FIRST INDEX) (LAST INDEX))) ( MAIL.ATTRIBUTE.TYPE LONGCARDINAL) (MAIL.ATTRIBUTE (RECORD (TYPE MAIL.ATTRIBUTE.TYPE) (VALUE (SEQUENCE UNSPECIFIED)))) (SELECTIONS (RECORD (TRANSPORT.ENVELOPE BOOLEAN) (INBASKET.ENVELOPE BOOLEAN) ( MAIL.ATTRIBUTES (SEQUENCE MAIL.ATTRIBUTE.TYPE)))) (CACHE.VERIFIER (ARRAY 4 UNSPECIFIED)) ( MESSAGE.DESCRIPTION (RECORD (MESSAGE.INDEX INDEX) (TRANSPORT.ENVELOPE ENVELOPE) (INBASKET.ENVELOPE ENVELOPE) (CONTENT.ATTRIBUTES ENVELOPE))) (CACHE.STATUS UNSPECIFIED) (STATUS (ENUMERATION (NEW 0) ( KNOWN 1) (RECEIVED 2))) (ACCESS.PROBLEM (ENUMERATION (AccessRightsInsufficient 0) ( AccessRightsIndeterminate 1) (InbasketInUse 2) (NoSuchRecipients 3) (RecipientNameIndeterminate 4))) ( CONNECTION.PROBLEM (FILING . CONNECTION.PROBLEM)) (SERVICE.PROBLEM (ENUMERATION (CannotAuthenticate 0) (ServiceFull 1) (ServiceUnavailable 2) (MediumFull 3))) (TRANSFER.PROBLEM (ENUMERATION (Aborted 0) ( NoRendezvous 1) (WrongDirection 4))) (SESSION.PROBLEM (ENUMERATION (TokenInvalid 0) (SessionInUse 1))) (CALL.PROBLEM (ENUMERATION (USE.COURIER 0)))) PROCEDURES ((LOGON 5 (CREDENTIALS VERIFIER NAME CACHE.VERIFIER BOOLEAN) RETURNS (SESSION CACHE.STATUS) REPORTS (ACCESS.ERROR AUTHENTICATION.ERROR SERVICE.ERROR UNDEFINED.ERROR)) (LOGOFF 4 (SESSION) RETURNS (CACHE.VERIFIER) REPORTS ( AUTHENTICATION.ERROR SESSION.ERROR UNDEFINED.ERROR)) (MAILPOLL 7 (CREDENTIALS VERIFIER NAME) RETURNS ( INBASKET.STATE) REPORTS (ACCESS.ERROR AUTHENTICATION.ERROR SERVICE.ERROR UNDEFINED.ERROR)) (MAILCHECK 6 (SESSION) RETURNS (INBASKET.STATE CARDINAL) REPORTS (ACCESS.ERROR AUTHENTICATION.ERROR SERVICE.ERROR UNDEFINED.ERROR)) (CHANGE.STATUS 0 (SESSION RANGE STATUS) RETURNS NIL REPORTS (AUTHENTICATION.ERROR INVALID.INDEX SESSION.ERROR UNDEFINED.ERROR)) (DELETE 1 (SESSION RANGE) RETURNS NIL REPORTS ( AUTHENTICATION.ERROR INVALID.INDEX SESSION.ERROR UNDEFINED.ERROR)) (LIST 2 (SESSION RANGE SELECTIONS BULK.DATA.SINK) RETURNS NIL REPORTS (AUTHENTICATION.ERROR CONNECTION.ERROR INVALID.INDEX SESSION.ERROR TRANSFER.ERROR UNDEFINED.ERROR)) (LOCATE 3 (SESSION STATUS) RETURNS (INDEX) REPORTS ( AUTHENTICATION.ERROR SESSION.ERROR UNDEFINED.ERROR)) (RETRIEVE 8 (SESSION INDEX CONTENTS.TYPE BULK.DATA.SINK) RETURNS (ENVELOPE ENVELOPE) REPORTS (AUTHENTICATION.ERROR CONNECTION.ERROR CONTENTS.TYPE.MISMATCH INVALID.INDEX SESSION.ERROR TRANSFER.ERROR UNDEFINED.ERROR))) ERRORS (( ACCESS.ERROR 0 (ACCESS.PROBLEM)) (AUTHENTICATION.ERROR 1 ((AUTHENTICATION . PROBLEM))) ( CONNECTION.ERROR 2 (CONNECTION.PROBLEM)) (CONTENTS.TYPE.MISMATCH 3 (CONTENTS.TYPE)) (SESSION.ERROR 5 ( SESSION.PROBLEM)) (INVALID.INDEX 4 (INDEX)) (SERVICE.ERROR 6 (SERVICE.PROBLEM)) (TRANSFER.ERROR 7 ( TRANSFER.PROBLEM)) (UNDEFINED.ERROR 8 (CALL.PROBLEM)))) (PUTPROPS ENVELOPE.ITEM COURIERDEF (\NS.READ.ENVELOPE.ITEM \NS.WRITE.ENVELOPE.ITEM)) (RPAQQ \NSMAIL.ENVELOPE.ITEM.TYPES ((Postmark 0 POSTMARK) (Message-ID 1 MESSAGEID) (ContentsType 2 LONGCARDINAL) (CONTENTS.SIZE 3 LONGCARDINAL) (Originator 4 RNAME) (TransportProblem 6 PROBLEM) ( RETURN.TO.NAME 7 RNAME) (Previous-Recipients 8 RNAME.LIST) (Status 1000 STATUS) (BodyType 17 LONGCARDINAL))) (RPAQQ \NSMAIL.ATTRIBUTES ((From 4672 NAME.LIST) (Date 4673 TIME) (Reply-to 4674 NAME.LIST) (To 4676 NAME.LIST) (cc 4677 NAME.LIST) (Subject 9 STRING) (Message-ID 4693 MESSAGEID) (Sender 4705 NAME) ( BodySize 16 LONGCARDINAL) (BodyType 17 LONGCARDINAL) (Note 4687 STRING) (OldLispFormatting 4910 STRING ) (LispFormatting 4911 STRING) (In-Reply-to 4690 STRING))) (RPAQ? \NSMAIL.SERVER.CACHE) (RPAQ? NSMAILDEBUGFLG) (RPAQ? NSMAIL.NET.HINT) (RPAQ? NSMAIL.RETRIEVE.OLD) (ADDTOVAR \SYSTEMCACHEVARS \NSMAIL.SERVER.CACHE) (ADDTOVAR \NSMAIL.GOOD.BODYTYPES 2 4) (ADDTOVAR LAFITEMODELST (NS \NSMAIL.SEND.PARSE \NSMAIL.SEND \NSMAIL.MAKEANSWERFORM \NSMAIL.AUTHENTICATE) (STAR . NS)) (PUTPROPS NSMAIL COPYRIGHT ("Xerox Corporation" 1984 1985 1986)) NIL