(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "24-Sep-2023 14:26:57" ("compiled on " {WMEDLEY}UNDIGESTIFY.;3) "23-Sep-2023 23:13:47" brecompiled exprs%: INSTALL-UNDIGESTIFY OPEN-SPACE-IN-FILE in "FULL 23-Sep-2023 ..." dated "23-Sep-2023 23:13:54") (FILECREATED "24-Sep-2023 14:26:57" {WMEDLEY}UNDIGESTIFY.;3 17040 :EDIT-BY rmk :CHANGES-TO (VARS UNDIGESTIFYCOMS) (FNS OPEN-SPACE-IN-FILE) :PREVIOUS-DATE "29-Jul-87 08:47:18" {WMEDLEY}UNDIGESTIFY.;1) INSTALL-UNDIGESTIFY :D8 (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µ‚±—` ²q```d`¿di ¿d`¿dg ¿dg¿jdnÿdhHdI ¿ ÉHdIñ¡¿I¿ichcdc oc ocdoô£±ÿYoI¿±ÿT(149 \INSUREWINDOW 144 MENUWINDOW 54 REGIONP 26 COPY 14 SASSOC) (115 DEFAULTMENUHELDFN 106 CLRPROMPT 97 LAFITEMENUFONT 83 LAFITEBROWSERMENUITEMS 76 |MENUTYPE#| 68 LAFITEBROWSERREGION 61 LAFITEBROWSERREGION 49 LAFITEBROWSERREGION 31 LAFITEBROWSERMENUITEMS 21 LAFITEBROWSERMENUITEMS 9 LAFITEBROWSERMENUITEMS) ( 210 ("Undigest" (QUOTE LAFITE-UNDIGESTIFY) "Unpacks network digest into separate messages.") 199 "Forward" 188 "--------" 181 "-----------------------------------------------------------------" 4 "Undigest") LAFITE-DISPLAY :D8 (I 4 KEY I 3 MENU I 2 ITEM I 1 MAILFOLDER I 0 WINDOW) +Ddgðœ¿@ABCD gð´ @ABCD (40 LAFITE-UNDIGESTIFY 20 \LAFITE.DISPLAY) (26 MIDDLE 6 LEFT) () LAFITE-TRUNCATE-FILE :D8 (I 1 LENGTH I 0 FILE) %@ @g Að­@gA ih(31 SETFILEINFO 16 GETFILEINFO 5 CLOSEF?) (25 LENGTH 11 LENGTH) () LAFITE-UNDIGESTIFYA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* P 15 N P 13 MSG-POS P 12 NEW-MESSAGE-DESCRIPTORS P 11 MSG-END P 10 MSG-START P 9 MSG-DESC P 8 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 I 0 SI::*CLEANUP-FORMS* F 16 MAILFOLDER F 17 MESSAGE-STREAM F 18 DIGEST-MSG-DESC F 19 LEN F 20 DIGEST-TO F 21 REPORTWINDOW F 22 MESSAGE-POSITIONS F 23 MESSAGES F 24 MSG1 F 25 DIGEST-HEADER-PARSE F 26 SEPARATOR1 F 27 SEPARATOR2 F 28 SI::*RESETFORMS* F 29 \LAPARSE.FULL F 30 *MOVE-TO-FIRST-DIGEST-MESSAGE-FLAG* F 31 *DELETE-DIGEST-FLAG*) YW É hg W É c.W0 c$W c"W$ W"W:jmÿhi c2gW2c(pW" ¸h¹W4 ºW6 »HW4k \¦o°/W"dLJØ ¼W"LdnèØW( gð².oW* ¿gc,W,gð²zoW* L½HW6M ]²:W"dMKØ ¾W"NdnèØW( gð’N°ËLMkÙhI¹N\°½l2W" LÙñ®LW" hIY€I ±ÿ~` W g _ggggW ÉhgW É2hhhhdW8c8Omÿ O _W É2Ùjðªo h_W,±®d O_¿O_¿`dO¿djÏ ¿d`χ¿dlÍ¿lOOÙØc&¿dW&¿_O_¿OW&Ø_¿O ¿W&O ¿lO ¿OlU ¿OlS ¿O` ¿Ol ¿W"OOO µ‚±ÿQW O _ W$W W>™W$W ¿W<²#W ¿OW ¿W O ¿±€W ÈW0kØOOó³gW.O _Êjð²_W W$g ¿W Og ¿W$jÏ¿OkÏ¿W OÍ¿W OÍ¿oW* hOkÔ_°(845 PRIN1 783 LA.SHOW.SELECTION 768 LA.SHOW.SELECTION 740 ELT 704 LAB.EXPOSEMESSAGE 693 SELECTMESSAGE 682 UNSELECTALLMESSAGES 670 DELETEMESSAGE 658 SEENMESSAGE 649 LAB.APPENDMESSAGES 642 DREVERSE 624 COPYBYTES 610 BOUT 600 BOUT 587 BOUT 577 BOUT 567 LA.PRINTCOUNT 557 LA.PRINTCOUNT 547 LA.PRINTSTAMP 446 HELP 421 GETFILEPTR 414 SETFILEPTR 337 \LAFITE.OPEN.FOLDER 319 DREVERSE 306 GETEOFPTR 294 GETEOFPTR 261 PARSE-AND-MAYBE-MERGE-HEADER 245 SKIP-EOLS 240 MOVE-TO-EOL 226 TEDIT.FIND.NOT.CASELESS 214 PRIN1 183 PRIN1 163 PARSE-AND-MAYBE-MERGE-HEADER 147 SKIP-EOLS 142 MOVE-TO-EOL 122 TEDIT.FIND.NOT.CASELESS 112 NCHARS 104 NCHARS 94 TEXTOBJ 70 LAFITE.PARSE.HEADER 55 LA.COPY.MESSAGE.TEXT 46 OPENTEXTSTREAM 37 ELT 19 OBTAIN.MONITORLOCK) (827 MAILFOLDER 815 MAILFOLDER 803 LAFITEMSG 791 LAFITEMSG 778 REPLACE 763 ERASE 747 LAFITEMSG 715 MAILFOLDER 595 SEENMARK 497 UNSEENMARK 478 |LAFITEMSGTYPE#| 430 MAILFOLDER 383 MAILFOLDER 376 QUOTE 366 MAILFOLDER 359 QUOTE 354 LAFITE-TRUNCATE-FILE 349 RESETSTATE 344 AND 332 OUTPUT 266 ERROR 199 ERROR 189 ERROR 168 ERROR 77 To 26 MAILFOLDER 14 WITH.MONITOR 6 MAILFOLDER) ( 838 " done. " 441 "Folder inconsistent with browser" 207 " Aborted." 176 "Can't parse header of digest message #1" 129 "Can't find first separator.") LAFITE-UNDIGESTIFYA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 10 SI::*RESETFORMS* P 9 SI::*LOCKED-MONITOR* P 8 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 I 0 SI::*CLEANUP-FORMS* F 11 MAILFOLDER F 12 ITEM F 13 MENU) v WW WÉ,XWÈYWÈZH I3™J3•IJÙjð­oH ¿°)oH ¿ g ¿$h(110 SI::MONITOR-UNWIND 105 \MVLIST 100 LAFITE-UNDIGESTIFYA0001A0002 86 PRIN1 72 PRIN1 47 CLEARW 8 LA.RESETSHADE) (95 SI::MONITOR-UNWIND 38 MAILFOLDER 28 MAILFOLDER 18 MAILFOLDER) ( 80 "Parsing digest... " 66 "Must select a single message.") LAFITE-UNDIGESTIFY :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 4 KEY I 3 MENU I 2 ITEM I 1 MAILFOLDER I 0 WINDOW F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 LAFITE-UNDIGESTIFYA0001) (8 SI::RESETUNWIND) () MOVE-TO-EOL :D8 (I 1 POSITION I 0 TEXTSTREAM) A—@A ¿l @ Ùjð²ù@ (24 GETFILEPTR 8 SETFILEPTR) NIL () OPEN-SPACE-IN-FILE :D8 (P 0 TEMP I 2 NCHARS I 1 POSITION I 0 FILE) ?gg @HA@ @ABØ Hj H@ H (60 CLOSEF? 54 COPYBYTES 47 SETFILEPTR 40 SETFILEPTR 31 COPYBYTES 26 GETEOFPTR 14 OPENSTREAM) (9 BOTH 4 {NODIRCORE}) () PARSE-AND-MAYBE-MERGE-HEADER :D8 (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*) `@@TABhi Xd¥gU‘BgHYgH³í@l [oCK ZI ¿IJ Ô¹BJ Ô(92 NCHARS 83 NCHARS 75 TEDIT.INSERT 68 CONCAT 55 CHARACTER 14 LAFITE.PARSE.HEADER) (43 To 33 EOF 23 ERROR) ( 61 "To: ") SKIP-EOLS :D8 (I 1 POSITION I 0 TEXTSTREAM) #A—@A ¿l @ Ùjð³ù@d kÙ (32 SETFILEPTR 25 GETFILEPTR 8 SETFILEPTR) NIL () BACKUP-PTR :D8 (I 0 STREAM) @d kÙ (13 SETFILEPTR 6 GETFILEPTR) NIL () TEDIT.FIND.NOT.CASELESS :D8 (P 0 TEDIT%:*CASE-FOLD-SEARCH-P* I 4 WILDCARDS? I 3 END# I 2 START# I 1 TARGETSTRING I 0 TEXTOBJ) @ABCD (13 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 (FROM library/LAFITE) 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 1987)) NIL