1
0
mirror of synced 2026-01-12 00:42:56 +00:00
Interlisp.medley/lispusers/UNDIGESTIFY.TEDIT
2020-11-15 19:22:14 -08:00

7 lines
3.7 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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)))))(<01>(<01>(<00><00>8(<00><00>8D<01><01> PAGEHEADING RUNNINGHEADTERMINAL
MODERN
MODERN
MODERN MODERNLOGO  HRULE.GETFNMODERN
 HRULE.GETFNMODERN
 HRULE.GETFNMODERN
  HRULE.GETFNMODERN  HRULE.GETFNMODERN "* 
_3Y^V:#.Xz<58>