Adding Style
<!doctype style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN"> (define memo-style (style font-family-name: "Arial")) (define para-style (style line-spacing: 13pt font-size: 12pt)) (define header-line-style (style line-spacing: 17pt font-size: 16pt)) (define heading-style (style font-size: 24pt line-spacing: 26pt quadding: 'center font-weight: 'bold)) (define (para-with-prefix prefix) (make paragraph use: header-line-style (make line-field field-width: 50pt (literal prefix)) (process-children-trim))) (default (process-children-trim)) (element MEMO (make sequence use: memo-style (process-children-trim))) (element P (make paragraph use: para-style space-before: 10pt)) (element main-heading (make paragraph use: heading-style space-before: 20pt)) (element sender (para-with-prefix "From:")) (element recipient (para-with-prefix "To:")) (element date (para-with-prefix "Date:")) (element sender (para-with-prefix "From:")) (element recipient (para-with-prefix "To:")) (element date (para-with-prefix "Date:")) (element links (empty-sosofo)) (element anchor (make paragraph (literal "[fragment of original message was here]")))