Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
42474:270e55bf2adb 42475:1e4516b1d514
1 ;;; gnus-art.el --- article mode commands for Gnus 1 ;;; gnus-art.el --- article mode commands for Gnus
2 2
3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
7 ;; Keywords: news 7 ;; Keywords: news
8 8
276 and the latter avoids underlining any whitespace at all." 276 and the latter avoids underlining any whitespace at all."
277 :version "21.1" 277 :version "21.1"
278 :group 'gnus-article-emphasis 278 :group 'gnus-article-emphasis
279 :type 'regexp) 279 :type 'regexp)
280 280
281 (defface gnus-emphasis-bold '((t (:bold t))) 281 (defface gnus-emphasis-bold '((t (:weight bold)))
282 "Face used for displaying strong emphasized text (*word*)." 282 "Face used for displaying strong emphasized text (*word*)."
283 :group 'gnus-article-emphasis) 283 :group 'gnus-article-emphasis)
284 284
285 (defface gnus-emphasis-italic '((t (:italic t))) 285 (defface gnus-emphasis-italic '((t (:slant italic)))
286 "Face used for displaying italic emphasized text (/word/)." 286 "Face used for displaying italic emphasized text (/word/)."
287 :group 'gnus-article-emphasis) 287 :group 'gnus-article-emphasis)
288 288
289 (defface gnus-emphasis-underline '((t (:underline t))) 289 (defface gnus-emphasis-underline '((t (:underline t)))
290 "Face used for displaying underlined emphasized text (_word_)." 290 "Face used for displaying underlined emphasized text (_word_)."
291 :group 'gnus-article-emphasis) 291 :group 'gnus-article-emphasis)
292 292
293 (defface gnus-emphasis-underline-bold '((t (:bold t :underline t))) 293 (defface gnus-emphasis-underline-bold '((t (:weight bold :underline t)))
294 "Face used for displaying underlined bold emphasized text (_*word*_)." 294 "Face used for displaying underlined bold emphasized text (_*word*_)."
295 :group 'gnus-article-emphasis) 295 :group 'gnus-article-emphasis)
296 296
297 (defface gnus-emphasis-underline-italic '((t (:italic t :underline t))) 297 (defface gnus-emphasis-underline-italic '((t (:slant italic :underline t)))
298 "Face used for displaying underlined italic emphasized text (_/word/_)." 298 "Face used for displaying underlined italic emphasized text (_/word/_)."
299 :group 'gnus-article-emphasis) 299 :group 'gnus-article-emphasis)
300 300
301 (defface gnus-emphasis-bold-italic '((t (:bold t :italic t))) 301 (defface gnus-emphasis-bold-italic '((t (:weight bold :slant italic)))
302 "Face used for displaying bold italic emphasized text (/*word*/)." 302 "Face used for displaying bold italic emphasized text (/*word*/)."
303 :group 'gnus-article-emphasis) 303 :group 'gnus-article-emphasis)
304 304
305 (defface gnus-emphasis-underline-bold-italic 305 (defface gnus-emphasis-underline-bold-italic
306 '((t (:bold t :italic t :underline t))) 306 '((t (:weight bold :slant italic :underline t)))
307 "Face used for displaying underlined bold italic emphasized text. 307 "Face used for displaying underlined bold italic emphasized text.
308 Esample: (_/*word*/_)." 308 Esample: (_/*word*/_)."
309 :group 'gnus-article-emphasis) 309 :group 'gnus-article-emphasis)
310 310
311 (defface gnus-emphasis-highlight-words 311 (defface gnus-emphasis-highlight-words
487 :group 'gnus-article-highlight 487 :group 'gnus-article-highlight
488 :group 'gnus-article-signature) 488 :group 'gnus-article-signature)
489 489
490 (defface gnus-signature-face 490 (defface gnus-signature-face
491 '((t 491 '((t
492 (:italic t))) 492 (:slant italic)))
493 "Face used for highlighting a signature in the article buffer." 493 "Face used for highlighting a signature in the article buffer."
494 :group 'gnus-article-highlight 494 :group 'gnus-article-highlight
495 :group 'gnus-article-signature) 495 :group 'gnus-article-signature)
496 496
497 (defface gnus-header-from-face 497 (defface gnus-header-from-face
500 (:foreground "spring green")) 500 (:foreground "spring green"))
501 (((class color) 501 (((class color)
502 (background light)) 502 (background light))
503 (:foreground "red3")) 503 (:foreground "red3"))
504 (t 504 (t
505 (:italic t))) 505 (:slant italic)))
506 "Face used for displaying from headers." 506 "Face used for displaying from headers."
507 :group 'gnus-article-headers 507 :group 'gnus-article-headers
508 :group 'gnus-article-highlight) 508 :group 'gnus-article-highlight)
509 509
510 (defface gnus-header-subject-face 510 (defface gnus-header-subject-face
513 (:foreground "SeaGreen3")) 513 (:foreground "SeaGreen3"))
514 (((class color) 514 (((class color)
515 (background light)) 515 (background light))
516 (:foreground "red4")) 516 (:foreground "red4"))
517 (t 517 (t
518 (:bold t :italic t))) 518 (:weight bold :slant italic)))
519 "Face used for displaying subject headers." 519 "Face used for displaying subject headers."
520 :group 'gnus-article-headers 520 :group 'gnus-article-headers
521 :group 'gnus-article-highlight) 521 :group 'gnus-article-highlight)
522 522
523 (defface gnus-header-newsgroups-face 523 (defface gnus-header-newsgroups-face
524 '((((class color) 524 '((((class color)
525 (background dark)) 525 (background dark))
526 (:foreground "yellow" :italic t)) 526 (:foreground "yellow" :slant italic))
527 (((class color) 527 (((class color)
528 (background light)) 528 (background light))
529 (:foreground "MidnightBlue" :italic t)) 529 (:foreground "MidnightBlue" :slant italic))
530 (t 530 (t
531 (:italic t))) 531 (:slant italic)))
532 "Face used for displaying newsgroups headers." 532 "Face used for displaying newsgroups headers."
533 :group 'gnus-article-headers 533 :group 'gnus-article-headers
534 :group 'gnus-article-highlight) 534 :group 'gnus-article-highlight)
535 535
536 (defface gnus-header-name-face 536 (defface gnus-header-name-face
539 (:foreground "SeaGreen")) 539 (:foreground "SeaGreen"))
540 (((class color) 540 (((class color)
541 (background light)) 541 (background light))
542 (:foreground "maroon")) 542 (:foreground "maroon"))
543 (t 543 (t
544 (:bold t))) 544 (:weight bold)))
545 "Face used for displaying header names." 545 "Face used for displaying header names."
546 :group 'gnus-article-headers 546 :group 'gnus-article-headers
547 :group 'gnus-article-highlight) 547 :group 'gnus-article-highlight)
548 548
549 (defface gnus-header-content-face 549 (defface gnus-header-content-face
550 '((((class color) 550 '((((class color)
551 (background dark)) 551 (background dark))
552 (:foreground "forest green" :italic t)) 552 (:foreground "forest green" :slant italic))
553 (((class color) 553 (((class color)
554 (background light)) 554 (background light))
555 (:foreground "indianred4" :italic t)) 555 (:foreground "indianred4" :slant italic))
556 (t 556 (t
557 (:italic t))) "Face used for displaying header content." 557 (:slant italic))) "Face used for displaying header content."
558 :group 'gnus-article-headers 558 :group 'gnus-article-headers
559 :group 'gnus-article-highlight) 559 :group 'gnus-article-highlight)
560 560
561 (defcustom gnus-header-face-alist 561 (defcustom gnus-header-face-alist
562 '(("From" nil gnus-header-from-face) 562 '(("From" nil gnus-header-from-face)