(FILECREATED "18-Mar-86 18:02:53" {ERIS}<NUYENS>GREGCO>LAFITEHIGHLIGHT.;5
 1666   

      changes to:  (FNS HIGHLIGHT)
                   (ADVICE \LAFITE.DO.DISPLAY)
                   (VARS LAFITEHIGHLIGHTCOMS)

      previous date: "11-Mar-86 12:32:26" {ERIS}<NUYENS>GREGCO>LAFITEHIGHLIGHT.;3)


(PRETTYCOMPRINT LAFITEHIGHLIGHTCOMS)

(RPAQQ LAFITEHIGHLIGHTCOMS
 ([INITVARS (HIGHLIGHT.LOOKS (QUOTE (WEIGHT BOLD)))
                                       (HIGHLIGHT.KEYS (QUOTE ("From:" "To:" "Subject:"]
                                (FNS HIGHLIGHT)
                                (ADVISE \LAFITE.DO.DISPLAY)))

(RPAQ? HIGHLIGHT.LOOKS
 (QUOTE (WEIGHT BOLD)))

(RPAQ? HIGHLIGHT.KEYS
 (QUOTE ("From:" "To:" "Subject:")))
(DEFINEQ

(HIGHLIGHT

  [LAMBDA (W)
                                                      (* edited: 
                                                                       "18-Mar-86 17:55")

    (LET ((TXT (TEXTSTREAM W))
          LEFT RIGHT)
         (SETQ POS (SORT (bind
 CHOICE for
 K in
 HIGHLIGHT.KEYS
                            when
 (NUMBERP (SETQ CHOICE (TEDIT.FIND TXT K 1))) collect
 CHOICE)
                         ))
         [for
 P in
 POS do
 (SETFILEPTR TXT P)
                                     (TEDIT.LOOKS TXT HIGHLIGHT.LOOKS P
                                            (ADD1 (SUM
 1 until
 (EQ (BIN TXT)
                                                                           (CHARCODE EOL]
         (TEDIT.SETSEL TXT 1 0])
)

(PUTPROPS \LAFITE.DO.DISPLAY READVICE
 (NIL (AFTER NIL (HIGHLIGHT !VALUE))))
(READVISE \LAFITE.DO.DISPLAY)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (736 1533 (HIGHLIGHT 746 . 1531)))))
STOP