XEROX UNDIGESTIFY 2 4 1 UNDIGESTIFY 1 4 By: Steven C. Bagley (Bagley.pa) This document last edited on May 27, 1986 INTRODUCTION This Lafite package allows you to unpack an Arpa Network digest, such as AIList, into its constituent messages. An new item, "Undigest," is placed on the browser menu. When a single message (presumably a digest) is selected, clicking on this item will delete the selected message, and append the constituent messages to the end of the mail folder. If the selected message is not a digest, or is a digest in a format that cannot be parsed properly, then a message will be printed and nothing will happen to the mail folder. USER OPTIONS *DELETE-DIGEST-FLAG*, if T means that the digest message should be deleted if it is successfully parsed. The default is T. *MOVE-TO-FIRST-DIGEST-MESSAGE-FLAG*, if T means to select the first constituent message, if NIL means to select the first undeleleted message after the digest message. The default is NIL. *DONT-UPDATE-HEADERS-FLAG*, if T means not to copy the To: field from the digest to each constituent message. The default is NIL. PLANNED ENHANCEMENTS Inserting the contained messages immediately after the digest, rather than appending. Moving the contained messages to a different mail folder. NOTES Many digests are not in the correct format. The parser used in this program tries to be very forgiving, and hence, is relatively slow (about 10 seconds to parse a digest on a Dorado). If everyone adhered to RFC934, the parser could be optimized for speed, but, alas, this is not the case. (LIST ((PAGE NIL (FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))(È(È(ŠŠ8(ŠŠ8DÈÈ PAGEHEADING RUNNINGHEADTERMINAL MODERN MODERN MODERN MODERNLOGO  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN "*  _3Y^V:#.Xzº