home *** CD-ROM | disk | FTP | other *** search
- x-gateway: rodan.UU.NET from help-lucid-emacs to alt.lucid-emacs.help; Tue, 5 Jan 1993 11:24:50 EST
- From: amir@matis.ingr.com (Amir J Katz)
- Message-ID: <9301051618.AA10734@simpson.ingr.com>
- Subject: SUMMARY: highlighting in rmail mode
- Organization: SEE Technologies Ltd.
- Reply-To: amir@matis.ingr.com
- X-Mailer: ELM [version 2.3 PL11]
- Date: Tue, 5 Jan 1993 16:24:51 GMT
- Newsgroups: alt.lucid-emacs.help
- Path: sparky!uunet!wendy-fate.uu.net!help-lucid-emacs
- Sender: help-lucid-emacs-request@lucid.com
- Lines: 42
-
- I am using Mike Scheidler's (c23mts@kocrsv01.delcoelect.com) excellent
- lhilit package to highlight things in various modes. I extended his original
- code to support RMAIL mode:
-
- ;; RMAIL mode Added by AJK
-
- (setq rmail-mode-hilit
- '(
- ("^Subject\: .*" nil red-face)
- ("^From\: .*" nil blue-face)))
-
- (hilit::mode-list-update "RMAIL" rmail-mode-hilit)
-
- However, in order for it to work correctly in folders opened by the command
- 'rmail-input', I added the following in my .emacs:
-
- (add-hook 'rmail-show-message-hook
- '(lambda ()
- (hilit::hilit-buffer)))
-
- Thanks to Mike S. for his suggestions.
-
- Additional modes, just for fun:
-
- (setq nroff-mode-hilit
- '(
- ("^\\.[a-zA-Z]*$" nil red-face)
- ("^\\.[a-zA-Z][ \t]+.*$" nil red-face)
- ("^\\.[a-zA-Z][a-zA-Z]$" nil red-face)
- ("^\\.[a-zA-Z][a-zA-Z][ \t]+.*$" nil red-face)
- )
- )
-
- (hilit::mode-list-update "Nroff" nroff-mode-hilit)
-
- Where nroff mode is set if the file name ends with .ms or .nr.
- --
- /* ----------------------------------------------------------- */
- /* Amir J. Katz | amir@matis.ingr.COM */
- /* System Specialist | Voice: +972 52-584684 */
- /* SEE Technologies Ltd. | Fax: +972 52-543917 */
- /* ....... To Boldly Go Where No One Has Hacked Before....... */
-