home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / alt / lucidem / help / 840 < prev    next >
Encoding:
Text File  |  1993-01-05  |  1.9 KB  |  56 lines

  1. x-gateway: rodan.UU.NET from help-lucid-emacs to alt.lucid-emacs.help; Tue, 5 Jan 1993 11:24:50 EST
  2. From: amir@matis.ingr.com (Amir J Katz)
  3. Message-ID: <9301051618.AA10734@simpson.ingr.com>
  4. Subject: SUMMARY: highlighting in rmail mode
  5. Organization: SEE Technologies Ltd.
  6. Reply-To: amir@matis.ingr.com
  7. X-Mailer: ELM [version 2.3 PL11]
  8. Date: Tue, 5 Jan 1993 16:24:51 GMT
  9. Newsgroups: alt.lucid-emacs.help
  10. Path: sparky!uunet!wendy-fate.uu.net!help-lucid-emacs
  11. Sender: help-lucid-emacs-request@lucid.com
  12. Lines: 42
  13.  
  14. I am using Mike Scheidler's (c23mts@kocrsv01.delcoelect.com) excellent
  15. lhilit package to highlight things in various modes. I extended his original
  16. code to support RMAIL mode:
  17.  
  18.       ;; RMAIL mode Added by AJK
  19.  
  20.       (setq rmail-mode-hilit
  21.         '(
  22.           ("^Subject\: .*" nil red-face)
  23.           ("^From\: .*"    nil blue-face)))
  24.  
  25.       (hilit::mode-list-update "RMAIL" rmail-mode-hilit)
  26.  
  27. However, in order for it to work correctly in folders opened by the command
  28. 'rmail-input', I added the following in my .emacs:
  29.  
  30.       (add-hook 'rmail-show-message-hook
  31.           '(lambda ()
  32.          (hilit::hilit-buffer)))
  33.  
  34. Thanks to Mike S. for his suggestions.
  35.  
  36. Additional modes, just for fun:
  37.  
  38.       (setq nroff-mode-hilit
  39.         '(
  40.           ("^\\.[a-zA-Z]*$"                nil red-face)
  41.           ("^\\.[a-zA-Z][ \t]+.*$"         nil red-face)
  42.           ("^\\.[a-zA-Z][a-zA-Z]$"         nil red-face)
  43.           ("^\\.[a-zA-Z][a-zA-Z][ \t]+.*$" nil red-face)
  44.           )
  45.         )
  46.  
  47.       (hilit::mode-list-update "Nroff" nroff-mode-hilit)
  48.  
  49. Where nroff mode is set if the file name ends with .ms or .nr.
  50. -- 
  51. /* ----------------------------------------------------------- */
  52. /*  Amir J. Katz             |   amir@matis.ingr.COM           */
  53. /*  System Specialist        |   Voice:  +972 52-584684        */
  54. /*  SEE Technologies Ltd.    |   Fax:    +972 52-543917        */
  55. /*  ....... To Boldly Go Where No One Has Hacked Before....... */
  56.