;;; 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>
" based on " gnus-original-product-name " v"
gnus-original-version-number "\n")
(end-of-line 0)
- (put-text-property (point-min) (point) 'face 'gnus-splash-face)
+ (put-text-property (point-min) (point) 'face 'gnus-splash)
(insert-char ?\ (prog1
(max 0 (/ (- (window-width) (point)) 2))
(goto-char (point-min))))
(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)))
(goto-char (point-min))
(setq modeline-buffer-identification
(list (concat gnus-version ": *Group*")))