Revision: miles@gnu.org--gnu-2005/gnus--devo--0--patch-140

Update reference to renamed face in gnus-xmas.el

2005-06-16  Miles Bader  <miles@gnu.org>

   * lisp/gnus-xmas.el (gnus-xmas-group-startup-message):
   Use renamed gnus-splash face.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d554772..feeccc4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-06-16  Miles Bader  <miles@gnu.org>
 
+       * gnus-xmas.el (gnus-xmas-group-startup-message):
+       Use renamed gnus-splash face.
+
        * assistant.el (assistant-field): Remove "-face" suffix from face name.
        (assistant-field-face): New backward-compatibility alias for renamed
        face.

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 32804a9..e6b13ef 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -1,6 +1,6 @@
 ;;; gnus-xmas.el --- Gnus functions for XEmacs
 
-;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2005
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -517,7 +517,7 @@ call it with the value of the `gnus-data' text property."
           (rest (- wheight pheight)))
       (insert (make-string (max 0 (* 2 (/ rest 3))) ?\n)))
     ;; Paint it.
-    (put-text-property (point-min) (point-max) 'face 'gnus-splash-face)))
+    (put-text-property (point-min) (point-max) 'face 'gnus-splash)))
   (setq modeline-buffer-identification
        (list (concat gnus-version ": *Group*")))
   (set-buffer-modified-p t))