Mercurial > emacs
comparison lisp/gnus/message.el @ 42475:1e4516b1d514
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 | a96c3ddfa03e |
children | e14b8be37d7d |
comparison
equal
deleted
inserted
replaced
42474:270e55bf2adb | 42475:1e4516b1d514 |
---|---|
1 ;;; message.el --- composing mail and news messages -*- coding: iso-latin-1 -*- | 1 ;;; message.el --- composing mail and news messages -*- coding: iso-latin-1 -*- |
2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 | 2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002 |
3 ;; Free Software Foundation, Inc. | 3 ;; Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
6 ;; Keywords: mail, news | 6 ;; Keywords: mail, news |
7 | 7 |
714 Defaults to `text-mode-abbrev-table'.") | 714 Defaults to `text-mode-abbrev-table'.") |
715 | 715 |
716 (defface message-header-to-face | 716 (defface message-header-to-face |
717 '((((class color) | 717 '((((class color) |
718 (background dark)) | 718 (background dark)) |
719 (:foreground "green2" :bold t)) | 719 (:foreground "green2" :weight bold)) |
720 (((class color) | 720 (((class color) |
721 (background light)) | 721 (background light)) |
722 (:foreground "MidnightBlue" :bold t)) | 722 (:foreground "MidnightBlue" :weight bold)) |
723 (t | 723 (t |
724 (:bold t :italic t))) | 724 (:weight bold :slant italic))) |
725 "Face used for displaying From headers." | 725 "Face used for displaying From headers." |
726 :group 'message-faces) | 726 :group 'message-faces) |
727 | 727 |
728 (defface message-header-cc-face | 728 (defface message-header-cc-face |
729 '((((class color) | 729 '((((class color) |
730 (background dark)) | 730 (background dark)) |
731 (:foreground "green4" :bold t)) | 731 (:foreground "green4" :weight bold)) |
732 (((class color) | 732 (((class color) |
733 (background light)) | 733 (background light)) |
734 (:foreground "MidnightBlue")) | 734 (:foreground "MidnightBlue")) |
735 (t | 735 (t |
736 (:bold t))) | 736 (:weight bold))) |
737 "Face used for displaying Cc headers." | 737 "Face used for displaying Cc headers." |
738 :group 'message-faces) | 738 :group 'message-faces) |
739 | 739 |
740 (defface message-header-subject-face | 740 (defface message-header-subject-face |
741 '((((class color) | 741 '((((class color) |
742 (background dark)) | 742 (background dark)) |
743 (:foreground "green3")) | 743 (:foreground "green3")) |
744 (((class color) | 744 (((class color) |
745 (background light)) | 745 (background light)) |
746 (:foreground "navy blue" :bold t)) | 746 (:foreground "navy blue" :weight bold)) |
747 (t | 747 (t |
748 (:bold t))) | 748 (:weight bold))) |
749 "Face used for displaying subject headers." | 749 "Face used for displaying subject headers." |
750 :group 'message-faces) | 750 :group 'message-faces) |
751 | 751 |
752 (defface message-header-newsgroups-face | 752 (defface message-header-newsgroups-face |
753 '((((class color) | 753 '((((class color) |
754 (background dark)) | 754 (background dark)) |
755 (:foreground "yellow" :bold t :italic t)) | 755 (:foreground "yellow" :weight bold :slant italic)) |
756 (((class color) | 756 (((class color) |
757 (background light)) | 757 (background light)) |
758 (:foreground "blue4" :bold t :italic t)) | 758 (:foreground "blue4" :weight bold :slant italic)) |
759 (t | 759 (t |
760 (:bold t :italic t))) | 760 (:weight bold :slant italic))) |
761 "Face used for displaying newsgroups headers." | 761 "Face used for displaying newsgroups headers." |
762 :group 'message-faces) | 762 :group 'message-faces) |
763 | 763 |
764 (defface message-header-other-face | 764 (defface message-header-other-face |
765 '((((class color) | 765 '((((class color) |
767 (:foreground "#b00000")) | 767 (:foreground "#b00000")) |
768 (((class color) | 768 (((class color) |
769 (background light)) | 769 (background light)) |
770 (:foreground "steel blue")) | 770 (:foreground "steel blue")) |
771 (t | 771 (t |
772 (:bold t :italic t))) | 772 (:weight bold :slant italic))) |
773 "Face used for displaying newsgroups headers." | 773 "Face used for displaying newsgroups headers." |
774 :group 'message-faces) | 774 :group 'message-faces) |
775 | 775 |
776 (defface message-header-name-face | 776 (defface message-header-name-face |
777 '((((class color) | 777 '((((class color) |
779 (:foreground "DarkGreen")) | 779 (:foreground "DarkGreen")) |
780 (((class color) | 780 (((class color) |
781 (background light)) | 781 (background light)) |
782 (:foreground "cornflower blue")) | 782 (:foreground "cornflower blue")) |
783 (t | 783 (t |
784 (:bold t))) | 784 (:weight bold))) |
785 "Face used for displaying header names." | 785 "Face used for displaying header names." |
786 :group 'message-faces) | 786 :group 'message-faces) |
787 | 787 |
788 (defface message-header-xheader-face | 788 (defface message-header-xheader-face |
789 '((((class color) | 789 '((((class color) |
791 (:foreground "blue")) | 791 (:foreground "blue")) |
792 (((class color) | 792 (((class color) |
793 (background light)) | 793 (background light)) |
794 (:foreground "blue")) | 794 (:foreground "blue")) |
795 (t | 795 (t |
796 (:bold t))) | 796 (:weight bold))) |
797 "Face used for displaying X-Header headers." | 797 "Face used for displaying X-Header headers." |
798 :group 'message-faces) | 798 :group 'message-faces) |
799 | 799 |
800 (defface message-separator-face | 800 (defface message-separator-face |
801 '((((class color) | 801 '((((class color) |
803 (:foreground "blue3")) | 803 (:foreground "blue3")) |
804 (((class color) | 804 (((class color) |
805 (background light)) | 805 (background light)) |
806 (:foreground "brown")) | 806 (:foreground "brown")) |
807 (t | 807 (t |
808 (:bold t))) | 808 (:weight bold))) |
809 "Face used for displaying the separator." | 809 "Face used for displaying the separator." |
810 :group 'message-faces) | 810 :group 'message-faces) |
811 | 811 |
812 (defface message-cited-text-face | 812 (defface message-cited-text-face |
813 '((((class color) | 813 '((((class color) |
815 (:foreground "red")) | 815 (:foreground "red")) |
816 (((class color) | 816 (((class color) |
817 (background light)) | 817 (background light)) |
818 (:foreground "red")) | 818 (:foreground "red")) |
819 (t | 819 (t |
820 (:bold t))) | 820 (:weight bold))) |
821 "Face used for displaying cited text names." | 821 "Face used for displaying cited text names." |
822 :group 'message-faces) | 822 :group 'message-faces) |
823 | 823 |
824 (defface message-mml-face | 824 (defface message-mml-face |
825 '((((class color) | 825 '((((class color) |
827 (:foreground "ForestGreen")) | 827 (:foreground "ForestGreen")) |
828 (((class color) | 828 (((class color) |
829 (background light)) | 829 (background light)) |
830 (:foreground "ForestGreen")) | 830 (:foreground "ForestGreen")) |
831 (t | 831 (t |
832 (:bold t))) | 832 (:weight bold))) |
833 "Face used for displaying MML." | 833 "Face used for displaying MML." |
834 :group 'message-faces) | 834 :group 'message-faces) |
835 | 835 |
836 (defvar message-font-lock-keywords | 836 (defvar message-font-lock-keywords |
837 (let* ((cite-prefix "[:alpha:]") | 837 (let* ((cite-prefix "[:alpha:]") |