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

[ShengHuo ZHU]

Index: emacs/lisp/gnus/gnus-art.el
diff -c emacs/lisp/gnus/gnus-art.el:1.36 emacs/lisp/gnus/gnus-art.el:1.37
*** emacs/lisp/gnus/gnus-art.el:1.36    Thu Dec 20 13:57:30 2001
--- emacs/lisp/gnus/gnus-art.el Tue Jan  1 22:36:28 2002
***************
*** 1,6 ****
  ;;; gnus-art.el --- article mode commands for Gnus
  
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001
  ;;   Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,6 ----
  ;;; gnus-art.el --- article mode commands for Gnus
  
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
  ;;   Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 278,288 ****
    :group 'gnus-article-emphasis
    :type 'regexp)
  
! (defface gnus-emphasis-bold '((t (:bold t)))
    "Face used for displaying strong emphasized text (*word*)."
    :group 'gnus-article-emphasis)
  
! (defface gnus-emphasis-italic '((t (:italic t)))
    "Face used for displaying italic emphasized text (/word/)."
    :group 'gnus-article-emphasis)
  
--- 278,288 ----
    :group 'gnus-article-emphasis
    :type 'regexp)
  
! (defface gnus-emphasis-bold '((t (:weight bold)))
    "Face used for displaying strong emphasized text (*word*)."
    :group 'gnus-article-emphasis)
  
! (defface gnus-emphasis-italic '((t (:slant italic)))
    "Face used for displaying italic emphasized text (/word/)."
    :group 'gnus-article-emphasis)
  
***************
*** 290,309 ****
    "Face used for displaying underlined emphasized text (_word_)."
    :group 'gnus-article-emphasis)
  
! (defface gnus-emphasis-underline-bold '((t (:bold t :underline t)))
    "Face used for displaying underlined bold emphasized text (_*word*_)."
    :group 'gnus-article-emphasis)
  
! (defface gnus-emphasis-underline-italic '((t (:italic t :underline t)))
    "Face used for displaying underlined italic emphasized text (_/word/_)."
    :group 'gnus-article-emphasis)
  
! (defface gnus-emphasis-bold-italic '((t (:bold t :italic t)))
    "Face used for displaying bold italic emphasized text (/*word*/)."
    :group 'gnus-article-emphasis)
  
  (defface gnus-emphasis-underline-bold-italic
!   '((t (:bold t :italic t :underline t)))
    "Face used for displaying underlined bold italic emphasized text.
  Esample: (_/*word*/_)."
    :group 'gnus-article-emphasis)
--- 290,309 ----
    "Face used for displaying underlined emphasized text (_word_)."
    :group 'gnus-article-emphasis)
  
! (defface gnus-emphasis-underline-bold '((t (:weight bold :underline t)))
    "Face used for displaying underlined bold emphasized text (_*word*_)."
    :group 'gnus-article-emphasis)
  
! (defface gnus-emphasis-underline-italic '((t (:slant italic :underline t)))
    "Face used for displaying underlined italic emphasized text (_/word/_)."
    :group 'gnus-article-emphasis)
  
! (defface gnus-emphasis-bold-italic '((t (:weight bold :slant italic)))
    "Face used for displaying bold italic emphasized text (/*word*/)."
    :group 'gnus-article-emphasis)
  
  (defface gnus-emphasis-underline-bold-italic
!   '((t (:weight bold :slant italic :underline t)))
    "Face used for displaying underlined bold italic emphasized text.
  Esample: (_/*word*/_)."
    :group 'gnus-article-emphasis)
***************
*** 489,495 ****
  
  (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)
--- 489,495 ----
  
  (defface gnus-signature-face
    '((t
!      (:slant italic)))
    "Face used for highlighting a signature in the article buffer."
    :group 'gnus-article-highlight
    :group 'gnus-article-signature)
***************
*** 502,508 ****
        (background light))
       (:foreground "red3"))
      (t
!      (:italic t)))
    "Face used for displaying from headers."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
--- 502,508 ----
        (background light))
       (:foreground "red3"))
      (t
!      (:slant italic)))
    "Face used for displaying from headers."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
***************
*** 515,521 ****
        (background light))
       (:foreground "red4"))
      (t
!      (:bold t :italic t)))
    "Face used for displaying subject headers."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
--- 515,521 ----
        (background light))
       (:foreground "red4"))
      (t
!      (:weight bold :slant italic)))
    "Face used for displaying subject headers."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
***************
*** 523,534 ****
  (defface gnus-header-newsgroups-face
    '((((class color)
        (background dark))
!      (:foreground "yellow" :italic t))
      (((class color)
        (background light))
!      (:foreground "MidnightBlue" :italic t))
      (t
!      (:italic t)))
    "Face used for displaying newsgroups headers."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
--- 523,534 ----
  (defface gnus-header-newsgroups-face
    '((((class color)
        (background dark))
!      (:foreground "yellow" :slant italic))
      (((class color)
        (background light))
!      (:foreground "MidnightBlue" :slant italic))
      (t
!      (:slant italic)))
    "Face used for displaying newsgroups headers."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
***************
*** 541,547 ****
        (background light))
       (:foreground "maroon"))
      (t
!      (:bold t)))
    "Face used for displaying header names."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
--- 541,547 ----
        (background light))
       (:foreground "maroon"))
      (t
!      (:weight bold)))
    "Face used for displaying header names."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
***************
*** 549,560 ****
  (defface gnus-header-content-face
    '((((class color)
        (background dark))
!      (:foreground "forest green" :italic t))
      (((class color)
        (background light))
!      (:foreground "indianred4" :italic t))
      (t
!      (:italic t)))  "Face used for displaying header content."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)
  
--- 549,560 ----
  (defface gnus-header-content-face
    '((((class color)
        (background dark))
!      (:foreground "forest green" :slant italic))
      (((class color)
        (background light))
!      (:foreground "indianred4" :slant italic))
      (t
!      (:slant italic)))  "Face used for displaying header content."
    :group 'gnus-article-headers
    :group 'gnus-article-highlight)