[Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus.el
diff -c emacs/lisp/gnus/gnus.el:1.42 emacs/lisp/gnus/gnus.el:1.43
*** emacs/lisp/gnus/gnus.el:1.42        Thu May 26 15:03:29 2005
--- emacs/lisp/gnus/gnus.el     Thu Jun 16 03:48:19 2005
***************
*** 357,363 ****
  ;; We define these group faces here to avoid the display
  ;; update forced when creating new faces.
  
! (defface gnus-group-news-1-face
    '((((class color)
        (background dark))
       (:foreground "PaleTurquoise" :bold t))
--- 357,363 ----
  ;; We define these group faces here to avoid the display
  ;; update forced when creating new faces.
  
! (defface gnus-group-news-1
    '((((class color)
        (background dark))
       (:foreground "PaleTurquoise" :bold t))
***************
*** 368,375 ****
       ()))
    "Level 1 newsgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-news-1-empty-face
    '((((class color)
        (background dark))
       (:foreground "PaleTurquoise"))
--- 368,377 ----
       ()))
    "Level 1 newsgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-1-face 'face-alias 'gnus-group-news-1)
  
! (defface gnus-group-news-1-empty
    '((((class color)
        (background dark))
       (:foreground "PaleTurquoise"))
***************
*** 380,387 ****
       ()))
    "Level 1 empty newsgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-news-2-face
    '((((class color)
        (background dark))
       (:foreground "turquoise" :bold t))
--- 382,391 ----
       ()))
    "Level 1 empty newsgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-1-empty-face 'face-alias 'gnus-group-news-1-empty)
  
! (defface gnus-group-news-2
    '((((class color)
        (background dark))
       (:foreground "turquoise" :bold t))
***************
*** 392,399 ****
       ()))
    "Level 2 newsgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-news-2-empty-face
    '((((class color)
        (background dark))
       (:foreground "turquoise"))
--- 396,405 ----
       ()))
    "Level 2 newsgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-2-face 'face-alias 'gnus-group-news-2)
  
! (defface gnus-group-news-2-empty
    '((((class color)
        (background dark))
       (:foreground "turquoise"))
***************
*** 404,411 ****
       ()))
    "Level 2 empty newsgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-news-3-face
    '((((class color)
        (background dark))
       (:bold t))
--- 410,419 ----
       ()))
    "Level 2 empty newsgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-2-empty-face 'face-alias 'gnus-group-news-2-empty)
  
! (defface gnus-group-news-3
    '((((class color)
        (background dark))
       (:bold t))
***************
*** 416,423 ****
       ()))
    "Level 3 newsgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-news-3-empty-face
    '((((class color)
        (background dark))
       ())
--- 424,433 ----
       ()))
    "Level 3 newsgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-3-face 'face-alias 'gnus-group-news-3)
  
! (defface gnus-group-news-3-empty
    '((((class color)
        (background dark))
       ())
***************
*** 428,435 ****
       ()))
    "Level 3 empty newsgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-news-4-face
    '((((class color)
        (background dark))
       (:bold t))
--- 438,447 ----
       ()))
    "Level 3 empty newsgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-3-empty-face 'face-alias 'gnus-group-news-3-empty)
  
! (defface gnus-group-news-4
    '((((class color)
        (background dark))
       (:bold t))
***************
*** 440,447 ****
       ()))
    "Level 4 newsgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-news-4-empty-face
    '((((class color)
        (background dark))
       ())
--- 452,461 ----
       ()))
    "Level 4 newsgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-4-face 'face-alias 'gnus-group-news-4)
  
! (defface gnus-group-news-4-empty
    '((((class color)
        (background dark))
       ())
***************
*** 452,459 ****
       ()))
    "Level 4 empty newsgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-news-5-face
    '((((class color)
        (background dark))
       (:bold t))
--- 466,475 ----
       ()))
    "Level 4 empty newsgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-4-empty-face 'face-alias 'gnus-group-news-4-empty)
  
! (defface gnus-group-news-5
    '((((class color)
        (background dark))
       (:bold t))
***************
*** 464,471 ****
       ()))
    "Level 5 newsgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-news-5-empty-face
    '((((class color)
        (background dark))
       ())
--- 480,489 ----
       ()))
    "Level 5 newsgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-5-face 'face-alias 'gnus-group-news-5)
  
! (defface gnus-group-news-5-empty
    '((((class color)
        (background dark))
       ())
***************
*** 476,483 ****
       ()))
    "Level 5 empty newsgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-news-6-face
    '((((class color)
        (background dark))
       (:bold t))
--- 494,503 ----
       ()))
    "Level 5 empty newsgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-5-empty-face 'face-alias 'gnus-group-news-5-empty)
  
! (defface gnus-group-news-6
    '((((class color)
        (background dark))
       (:bold t))
***************
*** 488,495 ****
       ()))
    "Level 6 newsgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-news-6-empty-face
    '((((class color)
        (background dark))
       ())
--- 508,517 ----
       ()))
    "Level 6 newsgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-6-face 'face-alias 'gnus-group-news-6)
  
! (defface gnus-group-news-6-empty
    '((((class color)
        (background dark))
       ())
***************
*** 500,507 ****
       ()))
    "Level 6 empty newsgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-news-low-face
    '((((class color)
        (background dark))
       (:foreground "DarkTurquoise" :bold t))
--- 522,531 ----
       ()))
    "Level 6 empty newsgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-6-empty-face 'face-alias 'gnus-group-news-6-empty)
  
! (defface gnus-group-news-low
    '((((class color)
        (background dark))
       (:foreground "DarkTurquoise" :bold t))
***************
*** 512,519 ****
       ()))
    "Low level newsgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-news-low-empty-face
    '((((class color)
        (background dark))
       (:foreground "DarkTurquoise"))
--- 536,545 ----
       ()))
    "Low level newsgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-low-face 'face-alias 'gnus-group-news-low)
  
! (defface gnus-group-news-low-empty
    '((((class color)
        (background dark))
       (:foreground "DarkTurquoise"))
***************
*** 524,531 ****
       ()))
    "Low level empty newsgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-mail-1-face
    '((((class color)
        (background dark))
       (:foreground "aquamarine1" :bold t))
--- 550,559 ----
       ()))
    "Low level empty newsgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-news-low-empty-face 'face-alias 'gnus-group-news-low-empty)
  
! (defface gnus-group-mail-1
    '((((class color)
        (background dark))
       (:foreground "aquamarine1" :bold t))
***************
*** 536,543 ****
       (:bold t)))
    "Level 1 mailgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-mail-1-empty-face
    '((((class color)
        (background dark))
       (:foreground "aquamarine1"))
--- 564,573 ----
       (:bold t)))
    "Level 1 mailgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-1-face 'face-alias 'gnus-group-mail-1)
  
! (defface gnus-group-mail-1-empty
    '((((class color)
        (background dark))
       (:foreground "aquamarine1"))
***************
*** 548,555 ****
       (:italic t :bold t)))
    "Level 1 empty mailgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-mail-2-face
    '((((class color)
        (background dark))
       (:foreground "aquamarine2" :bold t))
--- 578,587 ----
       (:italic t :bold t)))
    "Level 1 empty mailgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-1-empty-face 'face-alias 'gnus-group-mail-1-empty)
  
! (defface gnus-group-mail-2
    '((((class color)
        (background dark))
       (:foreground "aquamarine2" :bold t))
***************
*** 560,567 ****
       (:bold t)))
    "Level 2 mailgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-mail-2-empty-face
    '((((class color)
        (background dark))
       (:foreground "aquamarine2"))
--- 592,601 ----
       (:bold t)))
    "Level 2 mailgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-2-face 'face-alias 'gnus-group-mail-2)
  
! (defface gnus-group-mail-2-empty
    '((((class color)
        (background dark))
       (:foreground "aquamarine2"))
***************
*** 572,579 ****
       (:bold t)))
    "Level 2 empty mailgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-mail-3-face
    '((((class color)
        (background dark))
       (:foreground "aquamarine3" :bold t))
--- 606,615 ----
       (:bold t)))
    "Level 2 empty mailgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-2-empty-face 'face-alias 'gnus-group-mail-2-empty)
  
! (defface gnus-group-mail-3
    '((((class color)
        (background dark))
       (:foreground "aquamarine3" :bold t))
***************
*** 584,591 ****
       (:bold t)))
    "Level 3 mailgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-mail-3-empty-face
    '((((class color)
        (background dark))
       (:foreground "aquamarine3"))
--- 620,629 ----
       (:bold t)))
    "Level 3 mailgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-3-face 'face-alias 'gnus-group-mail-3)
  
! (defface gnus-group-mail-3-empty
    '((((class color)
        (background dark))
       (:foreground "aquamarine3"))
***************
*** 596,603 ****
       ()))
    "Level 3 empty mailgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-mail-low-face
    '((((class color)
        (background dark))
       (:foreground "aquamarine4" :bold t))
--- 634,643 ----
       ()))
    "Level 3 empty mailgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-3-empty-face 'face-alias 'gnus-group-mail-3-empty)
  
! (defface gnus-group-mail-low
    '((((class color)
        (background dark))
       (:foreground "aquamarine4" :bold t))
***************
*** 608,615 ****
       (:bold t)))
    "Low level mailgroup face."
    :group 'gnus-group)
  
! (defface gnus-group-mail-low-empty-face
    '((((class color)
        (background dark))
       (:foreground "aquamarine4"))
--- 648,657 ----
       (:bold t)))
    "Low level mailgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-low-face 'face-alias 'gnus-group-mail-low)
  
! (defface gnus-group-mail-low-empty
    '((((class color)
        (background dark))
       (:foreground "aquamarine4"))
***************
*** 620,640 ****
       (:bold t)))
    "Low level empty mailgroup face."
    :group 'gnus-group)
  
  ;; Summary mode faces.
  
! (defface gnus-summary-selected-face '((t
!                                      (:underline t)))
    "Face used for selected articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-cancelled-face
    '((((class color))
       (:foreground "yellow" :background "black")))
    "Face used for cancelled articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-high-ticked-face
    '((((class color)
        (background dark))
       (:foreground "pink" :bold t))
--- 662,687 ----
       (:bold t)))
    "Low level empty mailgroup face."
    :group 'gnus-group)
+ ;; backward-compatibility alias
+ (put 'gnus-group-mail-low-empty-face 'face-alias 'gnus-group-mail-low-empty)
  
  ;; Summary mode faces.
  
! (defface gnus-summary-selected '((t (:underline t)))
    "Face used for selected articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-selected-face 'face-alias 'gnus-summary-selected)
  
! (defface gnus-summary-cancelled
    '((((class color))
       (:foreground "yellow" :background "black")))
    "Face used for cancelled articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-cancelled-face 'face-alias 'gnus-summary-cancelled)
  
! (defface gnus-summary-high-ticked
    '((((class color)
        (background dark))
       (:foreground "pink" :bold t))
***************
*** 645,652 ****
       (:bold t)))
    "Face used for high interest ticked articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-low-ticked-face
    '((((class color)
        (background dark))
       (:foreground "pink" :italic t))
--- 692,701 ----
       (:bold t)))
    "Face used for high interest ticked articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-high-ticked-face 'face-alias 'gnus-summary-high-ticked)
  
! (defface gnus-summary-low-ticked
    '((((class color)
        (background dark))
       (:foreground "pink" :italic t))
***************
*** 657,664 ****
       (:italic t)))
    "Face used for low interest ticked articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-normal-ticked-face
    '((((class color)
        (background dark))
       (:foreground "pink"))
--- 706,715 ----
       (:italic t)))
    "Face used for low interest ticked articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-low-ticked-face 'face-alias 'gnus-summary-low-ticked)
  
! (defface gnus-summary-normal-ticked
    '((((class color)
        (background dark))
       (:foreground "pink"))
***************
*** 669,676 ****
       ()))
    "Face used for normal interest ticked articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-high-ancient-face
    '((((class color)
        (background dark))
       (:foreground "SkyBlue" :bold t))
--- 720,729 ----
       ()))
    "Face used for normal interest ticked articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-normal-ticked-face 'face-alias 'gnus-summary-normal-ticked)
  
! (defface gnus-summary-high-ancient
    '((((class color)
        (background dark))
       (:foreground "SkyBlue" :bold t))
***************
*** 681,688 ****
       (:bold t)))
    "Face used for high interest ancient articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-low-ancient-face
    '((((class color)
        (background dark))
       (:foreground "SkyBlue" :italic t))
--- 734,743 ----
       (:bold t)))
    "Face used for high interest ancient articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-high-ancient-face 'face-alias 'gnus-summary-high-ancient)
  
! (defface gnus-summary-low-ancient
    '((((class color)
        (background dark))
       (:foreground "SkyBlue" :italic t))
***************
*** 693,700 ****
       (:italic t)))
    "Face used for low interest ancient articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-normal-ancient-face
    '((((class color)
        (background dark))
       (:foreground "SkyBlue"))
--- 748,757 ----
       (:italic t)))
    "Face used for low interest ancient articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-low-ancient-face 'face-alias 'gnus-summary-low-ancient)
  
! (defface gnus-summary-normal-ancient
    '((((class color)
        (background dark))
       (:foreground "SkyBlue"))
***************
*** 705,712 ****
       ()))
    "Face used for normal interest ancient articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-high-undownloaded-face
     '((((class color)
         (background light))
        (:bold t :foreground "cyan4"))
--- 762,771 ----
       ()))
    "Face used for normal interest ancient articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-normal-ancient-face 'face-alias 
'gnus-summary-normal-ancient)
  
! (defface gnus-summary-high-undownloaded
     '((((class color)
         (background light))
        (:bold t :foreground "cyan4"))
***************
*** 715,722 ****
       (t (:inverse-video t :bold t)))
    "Face used for high interest uncached articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-low-undownloaded-face
     '((((class color)
         (background light))
        (:italic t :foreground "cyan4" :bold nil))
--- 774,783 ----
       (t (:inverse-video t :bold t)))
    "Face used for high interest uncached articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-high-undownloaded-face 'face-alias 
'gnus-summary-high-undownloaded)
  
! (defface gnus-summary-low-undownloaded
     '((((class color)
         (background light))
        (:italic t :foreground "cyan4" :bold nil))
***************
*** 725,732 ****
       (t (:inverse-video t :italic t)))
    "Face used for low interest uncached articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-normal-undownloaded-face
     '((((class color)
         (background light))
        (:foreground "cyan4" :bold nil))
--- 786,795 ----
       (t (:inverse-video t :italic t)))
    "Face used for low interest uncached articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-low-undownloaded-face 'face-alias 
'gnus-summary-low-undownloaded)
  
! (defface gnus-summary-normal-undownloaded
     '((((class color)
         (background light))
        (:foreground "cyan4" :bold nil))
***************
*** 735,760 ****
       (t (:inverse-video t)))
    "Face used for normal interest uncached articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-high-unread-face
    '((t
       (:bold t)))
    "Face used for high interest unread articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-low-unread-face
    '((t
       (:italic t)))
    "Face used for low interest unread articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-normal-unread-face
    '((t
       ()))
    "Face used for normal interest unread articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-high-read-face
    '((((class color)
        (background dark))
       (:foreground "PaleGreen"
--- 798,831 ----
       (t (:inverse-video t)))
    "Face used for normal interest uncached articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-normal-undownloaded-face 'face-alias 
'gnus-summary-normal-undownloaded)
  
! (defface gnus-summary-high-unread
    '((t
       (:bold t)))
    "Face used for high interest unread articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-high-unread-face 'face-alias 'gnus-summary-high-unread)
  
! (defface gnus-summary-low-unread
    '((t
       (:italic t)))
    "Face used for low interest unread articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-low-unread-face 'face-alias 'gnus-summary-low-unread)
  
! (defface gnus-summary-normal-unread
    '((t
       ()))
    "Face used for normal interest unread articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-normal-unread-face 'face-alias 'gnus-summary-normal-unread)
  
! (defface gnus-summary-high-read
    '((((class color)
        (background dark))
       (:foreground "PaleGreen"
***************
*** 767,774 ****
       (:bold t)))
    "Face used for high interest read articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-low-read-face
    '((((class color)
        (background dark))
       (:foreground "PaleGreen"
--- 838,847 ----
       (:bold t)))
    "Face used for high interest read articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-high-read-face 'face-alias 'gnus-summary-high-read)
  
! (defface gnus-summary-low-read
    '((((class color)
        (background dark))
       (:foreground "PaleGreen"
***************
*** 781,788 ****
       (:italic t)))
    "Face used for low interest read articles."
    :group 'gnus-summary)
  
! (defface gnus-summary-normal-read-face
    '((((class color)
        (background dark))
       (:foreground "PaleGreen"))
--- 854,863 ----
       (:italic t)))
    "Face used for low interest read articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-low-read-face 'face-alias 'gnus-summary-low-read)
  
! (defface gnus-summary-normal-read
    '((((class color)
        (background dark))
       (:foreground "PaleGreen"))
***************
*** 793,798 ****
--- 868,875 ----
       ()))
    "Face used for normal interest read articles."
    :group 'gnus-summary)
+ ;; backward-compatibility alias
+ (put 'gnus-summary-normal-read-face 'face-alias 'gnus-summary-normal-read)
  
  
  ;;;
***************
*** 836,842 ****
  (eval-and-compile
    (autoload 'gnus-play-jingle "gnus-audio"))
  
! (defface gnus-splash-face
    '((((class color)
        (background dark))
       (:foreground "#888888"))
--- 913,919 ----
  (eval-and-compile
    (autoload 'gnus-play-jingle "gnus-audio"))
  
! (defface gnus-splash
    '((((class color)
        (background dark))
       (:foreground "#888888"))
***************
*** 847,852 ****
--- 924,931 ----
       ()))
    "Face for the splash screen."
    :group 'gnus)
+ ;; backward-compatibility alias
+ (put 'gnus-splash-face 'face-alias 'gnus-splash)
  
  (defun gnus-splash ()
    (save-excursion
***************
*** 925,935 ****
                              ("background" . ,(face-background 'default))))
                      (:type pbm :file "gnus.pbm"
                             ;; Account for the pbm's blackground.
!                            :background ,(face-foreground 'gnus-splash-face)
                             :foreground ,(face-background 'default))
                      (:type xbm :file "gnus.xbm"
                             ;; Account for the xbm's blackground.
!                            :background ,(face-foreground 'gnus-splash-face)
                             :foreground ,(face-background 'default))))))
         (when image
         (let ((size (image-size image)))
--- 1004,1014 ----
                              ("background" . ,(face-background 'default))))
                      (:type pbm :file "gnus.pbm"
                             ;; Account for the pbm's blackground.
!                            :background ,(face-foreground 'gnus-splash)
                             :foreground ,(face-background 'default))
                      (:type xbm :file "gnus.xbm"
                             ;; Account for the xbm's blackground.
!                            :background ,(face-foreground 'gnus-splash)
                             :foreground ,(face-background 'default))))))
         (when image
         (let ((size (image-size image)))
***************
*** 973,979 ****
           (rest (- wheight pheight)))
        (insert (make-string (max 0 (* 2 (/ rest 3))) ?\n)))
      ;; Fontify some.
!     (put-text-property (point-min) (point-max) 'face 'gnus-splash-face)
      (setq gnus-simple-splash t)))
    (goto-char (point-min))
    (setq mode-line-buffer-identification (concat " " gnus-version))
--- 1052,1058 ----
           (rest (- wheight pheight)))
        (insert (make-string (max 0 (* 2 (/ rest 3))) ?\n)))
      ;; Fontify some.
!     (put-text-property (point-min) (point-max) 'face 'gnus-splash)
      (setq gnus-simple-splash t)))
    (goto-char (point-min))
    (setq mode-line-buffer-identification (concat " " gnus-version))