Super cool! Thanks Ted.
Ted Zlatanov <[email protected]> writes: > On Tue, 17 Feb 2009 17:53:37 +0800 poppyer <[email protected]> wrote: > > p> If you are talking about put some color in some keywords within the > p> *Article* view, you can write a simply function using article-goto-body, > p> re-search-forward and put-text-property; and add into > gnus-article-prepare-hook. > > I do this as follows (suggested by someone else long ago, of course): > > (defun tzz-highlighting-install () > (interactive) > (font-lock-mode -1) > (font-lock-mode 1) > (font-lock-add-keywords > nil > `( > ("\\(FIXME\\|TONOTE\\|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)) > > Obviously the list of modes, the keywords, and the face can be > customized, but the basic idea is simple. > > I forget why I turn font-lock-mode off and back on, it's been a while > and I forgot to comment it. > > Ted -- important and urgent problems of the technology of today are no longer the satisfactions of the primary needs or of archetypal wishes, but the reparation of the evils and damages by the technology of yesterday. ~Dennis Gabor, Innovations: Scientific, Technological and Social, 1970 _______________________________________________ info-gnus-english mailing list [email protected] http://lists.gnu.org/mailman/listinfo/info-gnus-english
