Gnus development mailing list
 help / color / mirror / Atom feed
From: Ted Zlatanov <tzz@lifelogs.com>
Cc: ding@gnus.org
Subject: Re: message mode loses highlighting
Date: Fri, 11 Jul 2003 11:21:23 -0400	[thread overview]
Message-ID: <4nadblw0lo.fsf@lockgroove.bwh.harvard.edu> (raw)
In-Reply-To: <b9yd6gh5zgk.fsf@jpl.org> (Katsumi Yamaoka's message of "Fri, 11 Jul 2003 15:50:35 +0900")

I believe I fixed it - at least, it works for me now:

(defun tzz-highlighting-install ()
  (interactive)
  (font-lock-mode -1)
  (font-lock-mode 1)
  (font-lock-add-keywords
   nil 
   `(("^\\([^-A-Za-z0-9]+\\)$" (0 'font-lock-empty-line-face))
     ("\n" (0 'font-lock-empty-line-face))
     ("\\(FIXME\\|TODO\\)" (1 'font-lock-warning-face prepend)))))

(dolist  (hook '(emacs-lisp-mode-hook
		 cperl-mode-hook
		 shell-mode-hook
		 text-mode-hook
		 change-log-mode-hook
		 makefile-mode-hook
		 message-mode-hook
		 texinfo-mode-hook))
  (add-hook hook 'tzz-highlighting-install))

Both the 

  (font-lock-mode -1)
  (font-lock-mode 1)

and the message-mode-hook addition were necessary in order to get the
desired font-lock keywords in message-mode while retaining the beloved
"fruit salad" Gnus highlighting.

Thanks!

Ted



      reply	other threads:[~2003-07-11 15:21 UTC|newest]

Thread overview: 12+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2003-06-25 15:40 Ted Zlatanov
2003-06-25 23:26 ` Johan Bockgård
2003-06-26  4:42   ` Ted Zlatanov
2003-06-26  5:24     ` Harry Putnam
2003-06-26 11:38       ` Ted Zlatanov
2003-07-01 12:02         ` Katsumi Yamaoka
2003-07-07 14:36           ` Ted Zlatanov
2003-07-07 16:54             ` Wes Hardaker
2003-07-08  2:34             ` Katsumi Yamaoka
2003-07-10 20:33               ` Ted Zlatanov
2003-07-11  6:50                 ` Katsumi Yamaoka
2003-07-11 15:21                   ` Ted Zlatanov [this message]

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=4nadblw0lo.fsf@lockgroove.bwh.harvard.edu \
    --to=tzz@lifelogs.com \
    --cc=ding@gnus.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).