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> |
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 |
|
|
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) |
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) |
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) |
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) |
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) |
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) |
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 |
|
|