/[emacs]/emacs/lisp/gnus/gnus-art.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-art.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.36 by pj, Thu Dec 20 18:57:30 2001 UTC revision 1.37 by zsh, Wed Jan 2 03:36:28 2002 UTC
# Line 1  Line 1 
1  ;;; gnus-art.el --- article mode commands for Gnus  ;;; gnus-art.el --- article mode commands for Gnus
2    
3  ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001  ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
4  ;;   Free Software Foundation, Inc.  ;;   Free Software Foundation, Inc.
5    
6  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
# Line 278  and the latter avoids underlining any wh Line 278  and the latter avoids underlining any wh
278    :group 'gnus-article-emphasis    :group 'gnus-article-emphasis
279    :type 'regexp)    :type 'regexp)
280    
281  (defface gnus-emphasis-bold '((t (:bold t)))  (defface gnus-emphasis-bold '((t (:weight bold)))
282    "Face used for displaying strong emphasized text (*word*)."    "Face used for displaying strong emphasized text (*word*)."
283    :group 'gnus-article-emphasis)    :group 'gnus-article-emphasis)
284    
285  (defface gnus-emphasis-italic '((t (:italic t)))  (defface gnus-emphasis-italic '((t (:slant italic)))
286    "Face used for displaying italic emphasized text (/word/)."    "Face used for displaying italic emphasized text (/word/)."
287    :group 'gnus-article-emphasis)    :group 'gnus-article-emphasis)
288    
# Line 290  and the latter avoids underlining any wh Line 290  and the latter avoids underlining any wh
290    "Face used for displaying underlined emphasized text (_word_)."    "Face used for displaying underlined emphasized text (_word_)."
291    :group 'gnus-article-emphasis)    :group 'gnus-article-emphasis)
292    
293  (defface gnus-emphasis-underline-bold '((t (:bold t :underline t)))  (defface gnus-emphasis-underline-bold '((t (:weight bold :underline t)))
294    "Face used for displaying underlined bold emphasized text (_*word*_)."    "Face used for displaying underlined bold emphasized text (_*word*_)."
295    :group 'gnus-article-emphasis)    :group 'gnus-article-emphasis)
296    
297  (defface gnus-emphasis-underline-italic '((t (:italic t :underline t)))  (defface gnus-emphasis-underline-italic '((t (:slant italic :underline t)))
298    "Face used for displaying underlined italic emphasized text (_/word/_)."    "Face used for displaying underlined italic emphasized text (_/word/_)."
299    :group 'gnus-article-emphasis)    :group 'gnus-article-emphasis)
300    
301  (defface gnus-emphasis-bold-italic '((t (:bold t :italic t)))  (defface gnus-emphasis-bold-italic '((t (:weight bold :slant italic)))
302    "Face used for displaying bold italic emphasized text (/*word*/)."    "Face used for displaying bold italic emphasized text (/*word*/)."
303    :group 'gnus-article-emphasis)    :group 'gnus-article-emphasis)
304    
305  (defface gnus-emphasis-underline-bold-italic  (defface gnus-emphasis-underline-bold-italic
306    '((t (:bold t :italic t :underline t)))    '((t (:weight bold :slant italic :underline t)))
307    "Face used for displaying underlined bold italic emphasized text.    "Face used for displaying underlined bold italic emphasized text.
308  Esample: (_/*word*/_)."  Esample: (_/*word*/_)."
309    :group 'gnus-article-emphasis)    :group 'gnus-article-emphasis)
# Line 489  Obsolete; use the face `gnus-signature-f Line 489  Obsolete; use the face `gnus-signature-f
489    
490  (defface gnus-signature-face  (defface gnus-signature-face
491    '((t    '((t
492       (:italic t)))       (:slant italic)))
493    "Face used for highlighting a signature in the article buffer."    "Face used for highlighting a signature in the article buffer."
494    :group 'gnus-article-highlight    :group 'gnus-article-highlight
495    :group 'gnus-article-signature)    :group 'gnus-article-signature)
# Line 502  Obsolete; use the face `gnus-signature-f Line 502  Obsolete; use the face `gnus-signature-f
502        (background light))        (background light))
503       (:foreground "red3"))       (:foreground "red3"))
504      (t      (t
505       (:italic t)))       (:slant italic)))
506    "Face used for displaying from headers."    "Face used for displaying from headers."
507    :group 'gnus-article-headers    :group 'gnus-article-headers
508    :group 'gnus-article-highlight)    :group 'gnus-article-highlight)
# Line 515  Obsolete; use the face `gnus-signature-f Line 515  Obsolete; use the face `gnus-signature-f
515        (background light))        (background light))
516       (:foreground "red4"))       (:foreground "red4"))
517      (t      (t
518       (:bold t :italic t)))       (:weight bold :slant italic)))
519    "Face used for displaying subject headers."    "Face used for displaying subject headers."
520    :group 'gnus-article-headers    :group 'gnus-article-headers
521    :group 'gnus-article-highlight)    :group 'gnus-article-highlight)
# Line 523  Obsolete; use the face `gnus-signature-f Line 523  Obsolete; use the face `gnus-signature-f
523  (defface gnus-header-newsgroups-face  (defface gnus-header-newsgroups-face
524    '((((class color)    '((((class color)
525        (background dark))        (background dark))
526       (:foreground "yellow" :italic t))       (:foreground "yellow" :slant italic))
527      (((class color)      (((class color)
528        (background light))        (background light))
529       (:foreground "MidnightBlue" :italic t))       (:foreground "MidnightBlue" :slant italic))
530      (t      (t
531       (:italic t)))       (:slant italic)))
532    "Face used for displaying newsgroups headers."    "Face used for displaying newsgroups headers."
533    :group 'gnus-article-headers    :group 'gnus-article-headers
534    :group 'gnus-article-highlight)    :group 'gnus-article-highlight)
# Line 541  Obsolete; use the face `gnus-signature-f Line 541  Obsolete; use the face `gnus-signature-f
541        (background light))        (background light))
542       (:foreground "maroon"))       (:foreground "maroon"))
543      (t      (t
544       (:bold t)))       (:weight bold)))
545    "Face used for displaying header names."    "Face used for displaying header names."
546    :group 'gnus-article-headers    :group 'gnus-article-headers
547    :group 'gnus-article-highlight)    :group 'gnus-article-highlight)
# Line 549  Obsolete; use the face `gnus-signature-f Line 549  Obsolete; use the face `gnus-signature-f
549  (defface gnus-header-content-face  (defface gnus-header-content-face
550    '((((class color)    '((((class color)
551        (background dark))        (background dark))
552       (:foreground "forest green" :italic t))       (:foreground "forest green" :slant italic))
553      (((class color)      (((class color)
554        (background light))        (background light))
555       (:foreground "indianred4" :italic t))       (:foreground "indianred4" :slant italic))
556      (t      (t
557       (:italic t)))  "Face used for displaying header content."       (:slant italic)))  "Face used for displaying header content."
558    :group 'gnus-article-headers    :group 'gnus-article-headers
559    :group 'gnus-article-highlight)    :group 'gnus-article-highlight)
560    

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26