(FILECREATED "16-May-86 10:55:54" ("compiled on " {QV}LISP>UNDIGESTIFY.;31) "12-Nov-85 14:59:23" tcompl'd in "Interlisp-D NoteCards 1.2K 16-Apr-86 ..." dated "16-Apr-86 15:58:58" ) (FILECREATED "16-May-86 10:55:33" {QV}LISP>UNDIGESTIFY.;31 13881 changes to: (FNS INSTALL-UNDIGESTIFY) previous date: "30-Apr-86 15:09:04" {QV}LISP>UNDIGESTIFY.;30) INSTALL-UNDIGESTIFY D1 (F 2 *DELETE-DIGEST-FLAG* F 3 *MOVE-TO-FIRST-DIGEST-MESSAGE-FLAG* F 4 SEPARATOR2 F 5 *DONT-UPDATE-HEADERS-FLAG* F 6 SEPARATOR1) o` ` HY~` _```d`di d`dg dgjdndhHdI  HdIIichcdc oc ocgIoIsIj(160Q \INSUREWINDOW 155Q MENUWINDOW 43Q REGIONP 21Q COPY 11Q SASSOC) (235Q Forward 122Q DEFAULTMENUHELDFN 113Q CLRPROMPT 104Q LAFITEMENUFONT 70Q LAFITEBROWSERMENUITEMS 63Q MENUTYPE# 55Q LAFITEBROWSERREGION 50Q LAFITEBROWSERREGION 40Q LAFITEBROWSERREGION 24Q LAFITEBROWSERMENUITEMS 16Q LAFITEBROWSERMENUITEMS 6 LAFITEBROWSERMENUITEMS) ( 244Q ("Undigest" (QUOTE LAFITE-UNDIGESTIFY) "Unpacks network digest into separate messages.") 225Q "--------" 217Q "-----------------------------------------------------------------" 3 "Undigest") LAFITE-DISPLAY D1 (I 4 KEY I 3 MENU I 2 ITEM I 1 MAILFOLDER I 0 WINDOW) #Ddg@ABCD g @ABCD (40Q LAFITE-UNDIGESTIFY 20Q \LAFITE.DISPLAY) (24Q MIDDLE 4 LEFT) () LAFITE-TRUNCATE-FILE D1 (I 1 LENGTH I 0 FILE) @ @g A@gA ih(25Q SETFILEINFO 12Q GETFILEINFO 3 CLOSEF?) (21Q LENGTH 7 LENGTH) () LAFITE-UNDIGESTIFYA0001A0002 D1 (NAME ERRORSET P 17Q N P 15Q MSG-POS P 14Q NEW-MESSAGE-DESCRIPTORS P 13Q MSG-END P 12Q MSG-START P 11Q MSG-DESC P 10Q BEGIN P 7 OUTSTREAM P 6 P3 P 5 P2 P 4 P1 P 3 L2 P 2 L1 P 1 MSGS P 0 TEXTOBJ F 20Q MAILFOLDER F 21Q MESSAGE-STREAM F 22Q DIGEST-MSG-DESC F 23Q LEN F 24Q DIGEST-TO F 25Q REPORTWINDOW F 26Q MESSAGE-POSITIONS F 27Q MESSAGES F 30Q MSG1 F 31Q DIGEST-HEADER-PARSE F 32Q SEPARATOR1 F 33Q SEPARATOR2 F 34Q RESETVARSLST F 35Q RESETY F 36Q \LAPARSE.FULL F 37Q *MOVE-TO-FIRST-DIGEST-MESSAGE-FLAG* F 40Q *DELETE-DIGEST-FLAG*) W  hi W c.W0(c$W c"W$ W"WW OW W O gW  W0kOOQW.O(_jQW W$g W Og W$j Ok W OW OoW* hc:iOk_(1267Q PRIN1 1204Q LA.SHOW.SELECTION 1171Q LA.SHOW.SELECTION 1106Q LAB.EXPOSEMESSAGE 1075Q SELECTMESSAGE 1064Q UNSELECTALLMESSAGES 1052Q DELETEMESSAGE 1037Q SEENMESSAGE 1027Q LAB.APPENDMESSAGES 1022Q DREVERSE 1002Q COPYBYTES 735Q LA.PRINTCOUNT 725Q LA.PRINTCOUNT 715Q LA.PRINTSTAMP 553Q HELP 527Q GETFILEPTR 521Q SETFILEPTR 422Q \LAFITE.OPEN.FOLDER 405Q DREVERSE 372Q GETEOFPTR 360Q GETEOFPTR 323Q PARSE-AND-MAYBE-MERGE-HEADER 305Q SKIP-EOLS 302Q MOVE-TO-EOL 266Q TEDIT.FIND.NOT.CASELESS 252Q PRIN1 222Q PRIN1 203Q PARSE-AND-MAYBE-MERGE-HEADER 165Q SKIP-EOLS 162Q MOVE-TO-EOL 141Q TEDIT.FIND.NOT.CASELESS 131Q NCHARS 123Q NCHARS 113Q TEXTOBJ 65Q LAFITE.PARSE.HEADER 47Q LA.COPY.MESSAGE.TEXT 40Q OPENTEXTSTREAM 13Q OBTAIN.MONITORLOCK) (1250Q MAILFOLDER 1236Q MAILFOLDER 1224Q LAFITEMSG 1212Q LAFITEMSG 1201Q REPLACE 1166Q ERASE 1150Q LAFITEMSG 1116Q MAILFOLDER 757Q SEENMARK 635Q UNSEENMARK 614Q LAFITEMSGTYPE# 536Q MAILFOLDER 463Q MAILFOLDER 456Q QUOTE 446Q MAILFOLDER 441Q QUOTE 436Q LAFITE-TRUNCATE-FILE 433Q RESETSTATE 430Q AND 417Q OUTPUT 326Q ERROR 236Q ERROR 226Q ERROR 206Q ERROR 73Q To 21Q MAILFOLDER 4 MAILFOLDER) ( 1262Q " done. " 550Q "Folder inconsistent with browser" 245Q " Aborted." 215Q "Can't parse header of digest message #1" 147Q "Can't find first separator.") LAFITE-UNDIGESTIFYA0001 D1 (NAME ERRORSET P 13Q RESETZ P 12Q RESETY P 11Q LISPXHIST P 10Q DIGEST-TO P 7 DIGEST-HEADER-PARSE P 6 MESSAGE-POSITIONS P 5 MESSAGE-STREAM P 4 DIGEST-MSG-DESC P 3 MESSAGES P 2 MSGN P 1 MSG1 P 0 REPORTWINDOW F 14Q MAILFOLDER F 15Q ITEM F 16Q MENU F 17Q RESETY F 20Q LISPXHIST F 21Q RESETVARSLST) v WW W*WWH I3J3IJjoH 0oH W ! W"og hg_ Ohci(154Q ERROR! 145Q RESETRESTORE 132Q LAFITE-UNDIGESTIFYA0001A0002 110Q PRIN1 75Q PRIN1 46Q CLEARW 6 LA.RESETSHADE) (140Q ERROR 127Q INTERNAL 37Q MAILFOLDER 27Q MAILFOLDER 17Q MAILFOLDER) ( 124Q (LAFITE-UNDIGESTIFYA0001A0002) 104Q "Parsing digest... " 71Q "Must select a single message.") LAFITE-UNDIGESTIFY D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 KEY I 3 MENU I 2 ITEM I 1 MAILFOLDER I 0 WINDOW F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q LAFITE-UNDIGESTIFYA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (LAFITE-UNDIGESTIFYA0001)) MOVE-TO-EOL D1 (I 1 POSITION I 0 TEXTSTREAM) A@A l @ j@ (24Q GETFILEPTR 6 SETFILEPTR) NIL () OPEN-SPACE-IN-FILE D1 (P 0 TEMP I 2 NCHARS I 1 POSITION I 0 FILE) -gg @HA@ @AB Hj H@ H (52Q CLOSEF? 46Q COPYBYTES 41Q SETFILEPTR 34Q SETFILEPTR 25Q COPYBYTES 22Q GETEOFPTR 10Q OPENFILE) (5 BOTH 2 {NODIRCORE}) () PARSE-AND-MAYBE-MERGE-HEADER D1 (P 3 CR P 2 STRING P 1 END-OF-HEADER P 0 MSG-HEADER-PARSE I 3 DIGEST-TO I 2 P2 I 1 P1 I 0 MESSAGE-STREAM F 4 \LAPARSE.FULL F 5 *DONT-UPDATE-HEADERS-FLAG*) M@@TABhi XdgUBgHYgH@l [oCK ZI IJ ԹBJ (111Q NCHARS 102Q NCHARS 74Q TEDIT.INSERT 67Q CONCAT 55Q CHARACTER 14Q LAFITE.PARSE.HEADER) (43Q To 33Q EOF 23Q ERROR) ( 62Q "To: ") SKIP-EOLS D1 (I 1 POSITION I 0 TEXTSTREAM) A@A l @ j@d k (32Q SETFILEPTR 25Q GETFILEPTR 6 SETFILEPTR) NIL () BACKUP-PTR D1 (I 0 STREAM) @d k (11Q SETFILEPTR 4 GETFILEPTR) NIL () TEDIT.FIND.NOT.CASELESS D1 (P 0 TEDIT:*CASE-FOLD-SEARCH-P* I 4 WILDCARDS? I 3 END# I 2 START# I 1 TARGETSTRING I 0 TEXTOBJ) @ABCD (13Q TEDIT.FIND) NIL () (PRETTYCOMPRINT UNDIGESTIFYCOMS) (RPAQQ UNDIGESTIFYCOMS ((INITVARS *DELETE-DIGEST-FLAG* *MOVE-TO-FIRST-DIGEST-MESSAGE-FLAG* *DONT-UPDATE-HEADERS-FLAG* SEPARATOR1 SEPARATOR2) (FNS INSTALL-UNDIGESTIFY LAFITE-DISPLAY LAFITE-TRUNCATE-FILE LAFITE-UNDIGESTIFY MOVE-TO-EOL OPEN-SPACE-IN-FILE PARSE-AND-MAYBE-MERGE-HEADER SKIP-EOLS BACKUP-PTR TEDIT.FIND.NOT.CASELESS) (DECLARE: EVAL@COMPILE DONTCOPY (FILES {ERIS}SOURCES>LAFITEDECLS)) (P (INSTALL-UNDIGESTIFY)))) (RPAQ? *DELETE-DIGEST-FLAG* NIL) (RPAQ? *MOVE-TO-FIRST-DIGEST-MESSAGE-FLAG* NIL) (RPAQ? *DONT-UPDATE-HEADERS-FLAG* NIL) (RPAQ? SEPARATOR1 NIL) (RPAQ? SEPARATOR2 NIL) (INSTALL-UNDIGESTIFY) (PUTPROPS UNDIGESTIFY COPYRIGHT ("Xerox Corporation" 1986)) NIL