--- a/lisp/gnus/messagexmas.el	Mon Aug 13 09:12:43 2007 +0200
+++ b/lisp/gnus/messagexmas.el	Mon Aug 13 09:13:56 2007 +0200
@@ -1,5 +1,5 @@
 ;;; messagexmas.el --- XEmacs extensions to message
-;; Copyright (C) 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1996,97 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
 ;; Keywords: mail, news
@@ -27,7 +27,7 @@
 
 (require 'nnheader)
 
-(defvar message-xmas-dont-activate-region nil
+(defvar message-xmas-dont-activate-region t
   "If t, don't activate region after yanking.")
 
 (defvar message-xmas-glyph-directory nil
@@ -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