(FILECREATED " 6-Jun-85 14:31:12" ("compiled on " {ERIS}NSMAIL.;28) "24-May-85 21:11:59" recompiled changes: \NSMAIL.CHECK in "INTERLISP-D 28-May-85 ..." dated "28-May-85 14:14:57") (FILECREATED " 6-Jun-85 14:24:07" {ERIS}NSMAIL.;28 67022 changes to: (FNS \NSMAIL.CHECK) ( COURIERPROGRAMS INBASKET) previous date: "24-May-85 18:31:30" {ERIS}NSMAIL.;27) \NSMAIL.AUTHENTICATE D1 (P 6 MSG P 5 CREDENTIALS P 4 AUTHENTICATED? P 3 MSERVERS P 2 FULLNAME P 1 NSUSERNAME P 0 INFO F 15Q \LAFITE.AUTHENTICATION.FAILURE) 8 g  `'H Y YgH ] \irLdgogoI Lgo^gihN X` o` Ii ` o` Lc` o I [!` o` Ii ` hIi IMIgI`` gIo 0 K5d__O_oOOhh_O Oh_O&_O(357Q CONCAT 337Q ALPHORDER 313Q NSNAME.TO.STRING 304Q PRIN1 276Q NSNAME.TO.STRING 270Q PRIN1 255Q TERPRI 244Q NS.FINDMAILBOXES 231Q PRIN1 217Q PRIN1 204Q PRIN1 176Q NSNAME.TO.STRING 170Q PRIN1 155Q TERPRI 144Q \INTERNAL/GETPASSWORD 115Q CONCAT 53Q NS.AUTHENTICATE 47Q NS.MAKE.SIMPLE.CREDENTIALS 32Q CH.LOOKUP.OBJECT 26Q PARSE.NSNAME 5 \INTERNAL/GETPASSWORD) (465Q \LAFITEUSERDATA 342Q EQUAL 334Q UPPERCASEARRAY 331Q CH.DEFAULT.DOMAIN 323Q : 301Q PROMPTWINDOW 265Q PROMPTWINDOW 252Q PROMPTWINDOW 226Q PROMPTWINDOW 214Q PROMPTWINDOW 201Q PROMPTWINDOW 165Q PROMPTWINDOW 152Q PROMPTWINDOW 136Q NS:: 122Q NONE 101Q KeysUnavailable 65Q CredentialsInvalid 40Q NONE 13Q \LAFITEUSERDATA 2 NS::) ( 411Q (NS.POLLNEWMAIL NS.OPENMAILBOX NS.NEXTMESSAGE NS.RETRIEVEMESSAGE NS.CLOSEMAILBOX) 354Q "" 262Q "There are no mail servers for user " 236Q "." 211Q " because: " 162Q "Cannot authenticate user " 131Q "No such user" 107Q "Authentication server unavailable for domain " 74Q "Login incorrect") NS.FINDMAILBOXES D1 (P 1 MB P 0 MAILBOXENTRY I 0 USERNAME) ?@ g g 0HdYg g KJh\J&L(53Q CH.RETRIEVE.ITEM 45Q CH.PROPERTY 17Q CH.RETRIEVE.ITEM 11Q CH.PROPERTY 3 PARSE.NSNAME) (50Q NETWORK.ADDRESS.LIST 42Q ADDRESS.LIST 14Q MAILBOX.VALUES 6 MAILBOXES) () NS.POLLNEWMAIL D1 (P 1 N P 0 RESULT I 3 MAILSERVER I 2 CREDENTIALS I 1 REGISTEREDNAME I 0 ADDRESS) ( @ABC XCYjh HIhg(11Q \NSMAIL.CHECK) (45Q ?) () NS.OPENMAILBOX D1 (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(75Q CLOSEF 43Q CLOSEF 35Q \NSMAIL.CHECK 10Q COURIER.OPEN) (115Q #OFMESSAGES 100Q EMPTY 5 NSMAIL) () \NSMAIL.CHECKA0001 D1 (NAME ERRORSET P 5 OLDLAST P 4 FIRSTNEW P 3 LASTINDEX P 2 POLLRESULT P 1 SESSION P 0 JUSTCHECKING F 6 STATE F 7 STREAM F 10Q ADDRESS F 11Q MAILSERVER F 12Q CREDENTIALS F 13Q RESETVARSLST F 14Q RESETY F 15Q REGISTEREDNAME) WhQV)Wc WhddW WWhc VVV]IWW(Whig cgWhhhWcWggWWVoig YgZVIYWWlggIg ggIg ZOgMJdgVhYVh\Vh]Y` o` I` `I hciJ[jVj5MKMHL,V`kW7WlggIgg VKWJllnJggIgg (573Q COURIER.CALL 512Q COURIER.EXPEDITED.CALL 412Q HELP 400Q PRIN1 367Q PRIN1 354Q TERPRI 271Q COURIER.CALL 252Q COURIER.EXPEDITED.CALL 206Q COURIER.CALL 115Q COURIER.OPEN 40Q PARSE.NSNAME) (567Q NOERROR 564Q NEW 560Q LOCATE 555Q INBASKET 506Q RETURNERRORS 503Q NEW 477Q LOCATE 474Q INBASKET 455Q NSMAIL.RETRIEVE.OLD 404Q NSWIZARDFLG 375Q PROMPTWINDOW 364Q PROMPTWINDOW 351Q PROMPTWINDOW 315Q SESSION.ERROR 303Q ERROR 265Q RETURNERRORS 261Q MAILCHECK 256Q INBASKET 246Q RETURNERRORS 242Q MAILCHECK 237Q INBASKET 213Q ERROR 202Q RETURNERRORS 157Q LOGON 154Q INBASKET 130Q CLOSEF 112Q NSMAIL) ( 361Q "Mail Server Error: " 176Q (0 0 0 0)) \NSMAIL.CHECK D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 STATE I 4 STREAM I 3 MAILSERVER I 2 CREDENTIALS I 1 REGISTEREDNAME I 0 ADDRESS F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \NSMAIL.CHECKA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\NSMAIL.CHECKA0001)) NS.NEXTMESSAGE D1 (P 0 ENVELOPES I 0 MAILBOX) +@H@@ X@H@HHih(22Q \NSMAIL.READ.ENVELOPES) NIL () \NSMAIL.READ.ENVELOPES D1 (P 4 E P 0 ENVELOPES I 0 MAILBOX) c@gg@@@hidlhho X@H&d\LLL JIh[I&K(116Q \APPEND2 113Q \APPEND2 61Q COURIER.CALL) (12Q LIST 7 INBASKET) ( 55Q (INBASKET . MESSAGE.DESCRIPTION)) NS.RETRIEVEMESSAGE D1 (P 0 ENVELOPE I 1 MSGOUTFILE I 0 MAILBOX) 8@@@@gg@Hjg HgHgh(46Q COURIER.CALL) (63Q DELETE 54Q NO 42Q \NSMAIL.RETRIEVE.CONTENT 26Q RETRIEVE 23Q INBASKET) () \NSMAIL.RETRIEVE.CONTENT D1 (P 1 CTTYPE P 0 RETRIEVALERROR I 0 MSGSTREAM F 2 MSGOUTFILE F 3 ENVELOPE) @ @gg @hg lo @RS HR oR R h(74Q TERPRI 67Q PRIN1 56Q TERPRI 47Q \NSMAIL.READ.SERIALIZED.TREE 37Q HELP 24Q COURIER.READ 14Q SETFILEINFO) (21Q LONGCARDINAL 11Q \NSMAIL.EOF.ON.RETRIEVE 6 ENDOFSTREAMOP) ( 63Q "**Warning: errors in message format**" 34Q "Wrong serialized file version") \NSMAIL.EOF.ON.RETRIEVE D1 (P 0 POS I 0 STREAM F 1 RETRIEVALERROR F 2 LAFITEDEBUGFLG) 3icRo g Xg Xdhi gi h(57Q RETTO 46Q RETFROM 36Q STKPOS 25Q STKPOS 13Q HELP) (53Q *ERROR* 33Q \NSMAIL.READ.SERIALIZED.TREE 22Q \NSMAIL.READ.ATTR.SEQUENCE) ( 10Q "EOF during retrieve") \NSMAIL.READ.SERIALIZED.TREE D1 (P 17Q N P 13Q BODYSTREAM P 12Q FORMATSTREAM P 11Q COERCED P 10Q 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_;W o oH I H oH IgH k_lOhig ^n Ok԰NW o gNhhhW&c&HgH NggLLIhijhgg _gW Odg  &`` o` O` I c(i(573Q LENGTH 566Q PRIN1 555Q PRIN1 542Q TERPRI 525Q \LAFITE.SEND.FAIL 522Q MKSTRING 515Q \LAFITE.INVALID.RECIPIENTS 462Q COURIER.CALL 427Q PRIN1 372Q \LAFITE.SEND.FAIL 350Q DISMISS 337Q COURIER.OPEN 312Q PRIN1 276Q PRIN1 265Q PRIN1 261Q LENGTH 254Q PRIN1 243Q CLEARW 235Q \LAFITE.SEND.FAIL 220Q \NSMAIL.FINDSERVER 205Q \LAFITE.GET.USER.DATA 175Q \LAFITE.SEND.FAIL 147Q NCHARS 135Q LENGTH 130Q GETEOFPTR 124Q GETEOFPTR 116Q OPENSTREAM 103Q OPENSTREAM 73Q COERCETEXTOBJ 62Q TEDIT.DELETE 53Q COPYTEXTSTREAM 6 GETPROMPTWINDOW) (563Q PROMPTWINDOW 552Q PROMPTWINDOW 537Q PROMPTWINDOW 532Q NSMAILDEBUGFLG 506Q INVALID.RECIPIENTS 471Q ERROR 456Q RETURNERRORS 453Q \NSMAIL.SEND.MESSAGE.CONTENT 437Q POST 434Q MAILTRANSPORT 423Q ... 400Q \SPP.RESETCLOSE 334Q NSMAILER 306Q s 143Q \LAFITEUSERDATA 113Q INPUT 100Q INPUT 70Q SPLIT 30Q \LAFITEUSERDATA) ( 547Q "Post results: " 367Q "Couldn't connect to a maildrop" 272Q " recipient" 250Q "Delivering to " 232Q "Couldn't find a mail drop" 172Q "Message too long to send formatted. Either break it up or send it as plain text." 162Q 303237Q) \NSMAIL.SEND D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 ABORTWINDOW I 2 EDITORWINDOW I 1 PARSE I 0 MSG F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \NSMAIL.SENDA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\NSMAIL.SENDA0001)) \NSMAIL.SEND.MESSAGE.CONTENT D1 (P 15Q PAIR P 2 NOTEP P 1 BODYLENGTH P 0 SENDER I 0 DATASTREAM F 16Q MSG F 17Q ABORTWINDOW F 20Q START F 21Q MSGFIELDS F 22Q 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(642Q DELETEMENU 633Q GETWINDOWUSERPROP 621Q ERROR! 615Q GETWINDOWUSERPROP 602Q \BOUT 574Q \BOUT 566Q \BOUT 553Q \BOUT 531Q COURIER.WRITE.STREAM.UNSPECIFIED 526Q GETEOFPTR 511Q \NSMAIL.SEND.STREAM.AS.STRING 500Q ERROR! 473Q GETWINDOWUSERPROP 451Q \BOUT 443Q \BOUT 435Q \BOUT 427Q \BOUT 412Q \NSMAIL.SEND.STREAM.AS.STRING 371Q COURIER.WRITE.SEQUENCE.UNSPECIFIED 355Q COURIER.WRITE 342Q COURIER.WRITE.SEQUENCE.UNSPECIFIED 324Q COURIER.WRITE 271Q \NSMAIL.WRITE.ATTRIBUTE 245Q COURIER.WRITE.SEQUENCE.UNSPECIFIED 227Q COURIER.WRITE 171Q COURIER.WRITE 154Q ASSOC 143Q COURIER.WRITE.SEQUENCE.UNSPECIFIED 127Q COURIER.WRITE 113Q IDATE 106Q \BOUT 75Q \BOUT 37Q LENGTH 31Q COURIER.WRITE 11Q GETEOFPTR) (630Q MENU 612Q ABORT 470Q ABORT 366Q LONGCARDINAL 363Q MAILTRANSPORT 352Q LONGCARDINAL 337Q LONGCARDINAL 334Q MAILTRANSPORT 321Q LONGCARDINAL 242Q NAME.LIST 237Q MAILTRANSPORT 224Q LONGCARDINAL 202Q NAME 177Q MAILTRANSPORT 166Q LONGCARDINAL 147Q From 140Q TIME 135Q MAILTRANSPORT 124Q LONGCARDINAL 26Q LONGCARDINAL 2 \LAFITEUSERDATA) () COURIER.WRITE.STREAM.UNSPECIFIED D1 (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(210Q \BOUT 174Q COPYBYTES 163Q \BOUT 155Q \BOUT 146Q \BOUT 140Q \BOUT 122Q COPYBYTES 113Q \BOUT 102Q \BOUT 66Q \BOUT 60Q \BOUT 43Q GETFILEPTR 37Q GETEOFPTR 26Q GETEOFPTR 12Q SETFILEPTR) NIL () \NSMAIL.SEND.STREAM.AS.STRING D1 (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(113Q \BOUT 100Q COPYBYTES 71Q \BOUT 60Q \BOUT 51Q \BOUT 40Q \BOUT 17Q COURIER.WRITE 3 GETEOFPTR) (14Q LONGCARDINAL) () \NSMAIL.WRITE.ATTRIBUTE D1 (P 0 TYPEINFO I 2 VALUE I 1 TYPE I 0 STREAM) 1A` H@Hhg @BgH oA h(55Q HELP 44Q COURIER.WRITE.SEQUENCE.UNSPECIFIED 27Q COURIER.WRITE 6 ASSOC) (35Q MAILTRANSPORT 24Q LONGCARDINAL 3 \NSMAIL.ATTRIBUTES) ( 51Q "Unknown mail attribute") \NSMAIL.FINDSERVER D1 (P 3 ADDR P 1 INFO P 0 NULL.AUTHENTICATOR) eo``J,h'lggHohg` Yd`I[lggHog  KiJZ(127Q \NSMAIL.CHECKSERVER 124Q COURIER.EXPEDITED.CALL 62Q COURIER.BROADCAST.CALL) (120Q RETURNERRORS 110Q SERVER.POLL 105Q MAILTRANSPORT 74Q \NSMAIL.SERVER.CACHE 70Q \NSMAIL.SERVER.CACHE 56Q NSMAIL.NET.HINT 53Q \NSMAIL.CHECKSERVER 40Q SERVER.POLL 35Q MAILTRANSPORT 15Q \NSMAIL.SERVER.CACHE 11Q \NSMAIL.SERVER.CACHE) ( 115Q (0) 45Q (0) 3 (SIMPLE NIL)) \NSMAIL.CHECKSERVER D1 (L (0 POLLRESULT)) @d l @@NIL NIL () \NSMAIL.MAKEANSWERFORMA0001 D1 (NAME ERRORSET F 0 MSGDESCRIPTOR F 1 MAILFOLDER F 2 \LAPARSE.FULL F 3 RESETY) 'Q hi Qg RPPPP ci(41Q LAFITE.PARSE.HEADER 17Q \LAFITE.OPEN.FOLDER 7 OBTAIN.MONITORLOCK) (14Q INPUT) () \NSMAIL.MAKEANSWERFORM D1 (P 32Q CCNAME P 30Q NAME P 26Q RESETZ P 25Q RESETY P 24Q LISPXHIST P 22Q X 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 33Q MESSAGESTR F 34Q LISPXHIST F 35Q RESETVARSLST F 36Q LAFITEEDITORFONT) 3@@@W8!W:og hg_, O,O*_"ddd_&dgO&PdgO&BdgO&4dgO&&dgO&dgO&gO&_LLJ?Ao MdO _NdO _OdO _OO_O'`h( __ _JdO _OO _OO.ohddgW