Mercurial > emacs

diff lisp/gnus/gnus-art.el @ 42475:1e4516b1d514

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2002-01-01 ShengHuo ZHU <zsh@cs.rochester.edu> * message.el, gnus-art.el, gnus.el, gnus-cite.el: Adapt face definitions to use :weight and :slant.
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Wed, 02 Jan 2002 03:36:29 +0000
parents 0f4506820432
children aa31e3865857
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el	Tue Jan 01 22:14:32 2002 +0000
+++ b/lisp/gnus/gnus-art.el	Wed Jan 02 03:36:29 2002 +0000
@@ -1,6 +1,6 @@
 ;;; gnus-art.el --- article mode commands for Gnus
 
-;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001
+;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
 ;;   Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -278,11 +278,11 @@
   :group 'gnus-article-emphasis
   :type 'regexp)
 
-(defface gnus-emphasis-bold '((t (:bold t)))
+(defface gnus-emphasis-bold '((t (:weight bold)))
   "Face used for displaying strong emphasized text (*word*)."
   :group 'gnus-article-emphasis)
 
-(defface gnus-emphasis-italic '((t (:italic t)))
+(defface gnus-emphasis-italic '((t (:slant italic)))
   "Face used for displaying italic emphasized text (/word/)."
   :group 'gnus-article-emphasis)
 
@@ -290,20 +290,20 @@
   "Face used for displaying underlined emphasized text (_word_)."
   :group 'gnus-article-emphasis)
 
-(defface gnus-emphasis-underline-bold '((t (:bold t :underline t)))
+(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 (:italic t :underline t)))
+(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 (:bold t :italic t)))
+(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 (:bold t :italic t :underline t)))
+  '((t (:weight bold :slant italic :underline t)))
   "Face used for displaying underlined bold italic emphasized text.
 Esample: (_/*word*/_)."
   :group 'gnus-article-emphasis)
@@ -489,7 +489,7 @@
 
 (defface gnus-signature-face
   '((t
-     (:italic t)))
+     (:slant italic)))
   "Face used for highlighting a signature in the article buffer."
   :group 'gnus-article-highlight
   :group 'gnus-article-signature)
@@ -502,7 +502,7 @@
       (background light))
      (:foreground "red3"))
     (t
-     (:italic t)))
+     (:slant italic)))
   "Face used for displaying from headers."
   :group 'gnus-article-headers
   :group 'gnus-article-highlight)
@@ -515,7 +515,7 @@
       (background light))
      (:foreground "red4"))
     (t
-     (:bold t :italic t)))
+     (:weight bold :slant italic)))
   "Face used for displaying subject headers."
   :group 'gnus-article-headers
   :group 'gnus-article-highlight)
@@ -523,12 +523,12 @@
 (defface gnus-header-newsgroups-face
   '((((class color)
       (background dark))
-     (:foreground "yellow" :italic t))
+     (:foreground "yellow" :slant italic))
     (((class color)
       (background light))
-     (:foreground "MidnightBlue" :italic t))
+     (:foreground "MidnightBlue" :slant italic))
     (t
-     (:italic t)))
+     (:slant italic)))
   "Face used for displaying newsgroups headers."
   :group 'gnus-article-headers
   :group 'gnus-article-highlight)
@@ -541,7 +541,7 @@
       (background light))
      (:foreground "maroon"))
     (t
-     (:bold t)))
+     (:weight bold)))
   "Face used for displaying header names."
   :group 'gnus-article-headers
   :group 'gnus-article-highlight)
@@ -549,12 +549,12 @@
 (defface gnus-header-content-face
   '((((class color)
       (background dark))
-     (:foreground "forest green" :italic t))
+     (:foreground "forest green" :slant italic))
     (((class color)
       (background light))
-     (:foreground "indianred4" :italic t))
+     (:foreground "indianred4" :slant italic))
     (t
-     (:italic t)))  "Face used for displaying header content."
+     (:slant italic)))  "Face used for displaying header content."
   :group 'gnus-article-headers
   :group 'gnus-article-highlight)