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

[Miles Bader]

Index: emacs/lisp/gnus/gnus-art.el
diff -c emacs/lisp/gnus/gnus-art.el:1.76 emacs/lisp/gnus/gnus-art.el:1.77
*** emacs/lisp/gnus/gnus-art.el:1.76    Sat Jun  4 22:27:57 2005
--- emacs/lisp/gnus/gnus-art.el Thu Jun 16 03:48:19 2005
***************
*** 645,665 ****
    :type 'face
    :group 'gnus-article-buttons)
  
! (defcustom gnus-signature-face 'gnus-signature-face
    "Face used for highlighting a signature in the article buffer.
! Obsolete; use the face `gnus-signature-face' for customizations instead."
    :type 'face
    :group 'gnus-article-highlight
    :group 'gnus-article-signature)
  
! (defface gnus-signature-face
    '((t
       (:italic t)))
    "Face used for highlighting a signature in the article buffer."
    :group 'gnus-article-highlight
    :group 'gnus-article-signature)
  
! (defface gnus-header-from-face
    '((((class color)
        (background dark))
       (:foreground "spring green"))
--- 645,667 ----
    :type 'face
    :group 'gnus-article-buttons)
  
! (defcustom gnus-signature-face 'gnus-signature
    "Face used for highlighting a signature in the article buffer.
! Obsolete; use the face `gnus-signature' for customizations instead."
    :type 'face
    :group 'gnus-article-highlight
    :group 'gnus-article-signature)
  
! (defface gnus-signature
    '((t
       (:italic t)))
    "Face used for highlighting a signature in the article buffer."
    :group 'gnus-article-highlight
    :group 'gnus-article-signature)
+ ;; backward-compatibility alias
+ (put 'gnus-signature-face 'face-alias 'gnus-signature)
  
! (defface gnus-header-from
    '((((class color)
        (background dark))
       (:foreground "spring green"))
***************
*** 671,678 ****
    "Face used for displaying from headers."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
  
! (defface gnus-header-subject-face
    '((((class color)
        (background dark))
       (:foreground "SeaGreen3"))
--- 673,682 ----
    "Face used for displaying from headers."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
+ ;; backward-compatibility alias
+ (put 'gnus-header-from-face 'face-alias 'gnus-header-from)
  
! (defface gnus-header-subject
    '((((class color)
        (background dark))
       (:foreground "SeaGreen3"))
***************
*** 684,691 ****
    "Face used for displaying subject headers."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
  
! (defface gnus-header-newsgroups-face
    '((((class color)
        (background dark))
       (:foreground "yellow" :italic t))
--- 688,697 ----
    "Face used for displaying subject headers."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
+ ;; backward-compatibility alias
+ (put 'gnus-header-subject-face 'face-alias 'gnus-header-subject)
  
! (defface gnus-header-newsgroups
    '((((class color)
        (background dark))
       (:foreground "yellow" :italic t))
***************
*** 699,706 ****
  articles."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
  
! (defface gnus-header-name-face
    '((((class color)
        (background dark))
       (:foreground "SeaGreen"))
--- 705,714 ----
  articles."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
+ ;; backward-compatibility alias
+ (put 'gnus-header-newsgroups-face 'face-alias 'gnus-header-newsgroups)
  
! (defface gnus-header-name
    '((((class color)
        (background dark))
       (:foreground "SeaGreen"))
***************
*** 712,719 ****
    "Face used for displaying header names."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
  
! (defface gnus-header-content-face
    '((((class color)
        (background dark))
       (:foreground "forest green" :italic t))
--- 720,729 ----
    "Face used for displaying header names."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
+ ;; backward-compatibility alias
+ (put 'gnus-header-name-face 'face-alias 'gnus-header-name)
  
! (defface gnus-header-content
    '((((class color)
        (background dark))
       (:foreground "forest green" :italic t))
***************
*** 724,735 ****
       (:italic t)))  "Face used for displaying header content."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
  
  (defcustom gnus-header-face-alist
!   '(("From" nil gnus-header-from-face)
!     ("Subject" nil gnus-header-subject-face)
!     ("Newsgroups:.*," nil gnus-header-newsgroups-face)
!     ("" gnus-header-name-face gnus-header-content-face))
    "*Controls highlighting of article headers.
  
  An alist of the form (HEADER NAME CONTENT).
--- 734,747 ----
       (:italic t)))  "Face used for displaying header content."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
+ ;; backward-compatibility alias
+ (put 'gnus-header-content-face 'face-alias 'gnus-header-content)
  
  (defcustom gnus-header-face-alist
!   '(("From" nil gnus-header-from)
!     ("Subject" nil gnus-header-subject)
!     ("Newsgroups:.*," nil gnus-header-newsgroups)
!     ("" gnus-header-name gnus-header-content))
    "*Controls highlighting of article headers.
  
  An alist of the form (HEADER NAME CONTENT).
***************
*** 6490,6496 ****
  (defun gnus-article-highlight-signature ()
    "Highlight the signature in an article.
  It does this by highlighting everything after
! `gnus-signature-separator' using `gnus-signature-face'."
    (interactive)
    (save-excursion
      (set-buffer gnus-article-buffer)
--- 6502,6508 ----
  (defun gnus-article-highlight-signature ()
    "Highlight the signature in an article.
  It does this by highlighting everything after
! `gnus-signature-separator' using the face `gnus-signature'."
    (interactive)
    (save-excursion
      (set-buffer gnus-article-buffer)