Mercurial > hg > xemacs-beta

diff lisp/gnus/messagexmas.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 0293115a14e9
children 4103f0995bd7
line wrap: on
line diff
--- a/lisp/gnus/messagexmas.el	Mon Aug 13 08:50:06 2007 +0200
+++ b/lisp/gnus/messagexmas.el	Mon Aug 13 08:50:29 2007 +0200
@@ -92,6 +92,13 @@
 
 (fset 'message-exchange-point-and-mark 'message-xmas-exchange-point-and-mark)
 
+(defun message-xmas-maybe-fontify ()
+  (when (and (featurep 'font-lock)
+	     font-lock-auto-fontify)
+    (turn-on-font-lock)))
+
+(add-hook 'message-mode-hook 'message-xmas-maybe-fontify)
+
 (provide 'messagexmas)
 
 ;;; messagexmas.el ends here