645 |
:type 'face |
:type 'face |
646 |
:group 'gnus-article-buttons) |
:group 'gnus-article-buttons) |
647 |
|
|
648 |
(defcustom gnus-signature-face 'gnus-signature-face |
(defcustom gnus-signature-face 'gnus-signature |
649 |
"Face used for highlighting a signature in the article buffer. |
"Face used for highlighting a signature in the article buffer. |
650 |
Obsolete; use the face `gnus-signature-face' for customizations instead." |
Obsolete; use the face `gnus-signature' for customizations instead." |
651 |
:type 'face |
:type 'face |
652 |
:group 'gnus-article-highlight |
:group 'gnus-article-highlight |
653 |
:group 'gnus-article-signature) |
:group 'gnus-article-signature) |
654 |
|
|
655 |
(defface gnus-signature-face |
(defface gnus-signature |
656 |
'((t |
'((t |
657 |
(:italic t))) |
(:italic t))) |
658 |
"Face used for highlighting a signature in the article buffer." |
"Face used for highlighting a signature in the article buffer." |
659 |
:group 'gnus-article-highlight |
:group 'gnus-article-highlight |
660 |
:group 'gnus-article-signature) |
:group 'gnus-article-signature) |
661 |
|
;; backward-compatibility alias |
662 |
|
(put 'gnus-signature-face 'face-alias 'gnus-signature) |
663 |
|
|
664 |
(defface gnus-header-from-face |
(defface gnus-header-from |
665 |
'((((class color) |
'((((class color) |
666 |
(background dark)) |
(background dark)) |
667 |
(:foreground "spring green")) |
(:foreground "spring green")) |
673 |
"Face used for displaying from headers." |
"Face used for displaying from headers." |
674 |
:group 'gnus-article-headers |
:group 'gnus-article-headers |
675 |
:group 'gnus-article-highlight) |
:group 'gnus-article-highlight) |
676 |
|
;; backward-compatibility alias |
677 |
|
(put 'gnus-header-from-face 'face-alias 'gnus-header-from) |
678 |
|
|
679 |
(defface gnus-header-subject-face |
(defface gnus-header-subject |
680 |
'((((class color) |
'((((class color) |
681 |
(background dark)) |
(background dark)) |
682 |
(:foreground "SeaGreen3")) |
(:foreground "SeaGreen3")) |
688 |
"Face used for displaying subject headers." |
"Face used for displaying subject headers." |
689 |
:group 'gnus-article-headers |
:group 'gnus-article-headers |
690 |
:group 'gnus-article-highlight) |
:group 'gnus-article-highlight) |
691 |
|
;; backward-compatibility alias |
692 |
|
(put 'gnus-header-subject-face 'face-alias 'gnus-header-subject) |
693 |
|
|
694 |
(defface gnus-header-newsgroups-face |
(defface gnus-header-newsgroups |
695 |
'((((class color) |
'((((class color) |
696 |
(background dark)) |
(background dark)) |
697 |
(:foreground "yellow" :italic t)) |
(:foreground "yellow" :italic t)) |
705 |
articles." |
articles." |
706 |
:group 'gnus-article-headers |
:group 'gnus-article-headers |
707 |
:group 'gnus-article-highlight) |
:group 'gnus-article-highlight) |
708 |
|
;; backward-compatibility alias |
709 |
|
(put 'gnus-header-newsgroups-face 'face-alias 'gnus-header-newsgroups) |
710 |
|
|
711 |
(defface gnus-header-name-face |
(defface gnus-header-name |
712 |
'((((class color) |
'((((class color) |
713 |
(background dark)) |
(background dark)) |
714 |
(:foreground "SeaGreen")) |
(:foreground "SeaGreen")) |
720 |
"Face used for displaying header names." |
"Face used for displaying header names." |
721 |
:group 'gnus-article-headers |
:group 'gnus-article-headers |
722 |
:group 'gnus-article-highlight) |
:group 'gnus-article-highlight) |
723 |
|
;; backward-compatibility alias |
724 |
|
(put 'gnus-header-name-face 'face-alias 'gnus-header-name) |
725 |
|
|
726 |
(defface gnus-header-content-face |
(defface gnus-header-content |
727 |
'((((class color) |
'((((class color) |
728 |
(background dark)) |
(background dark)) |
729 |
(:foreground "forest green" :italic t)) |
(:foreground "forest green" :italic t)) |
734 |
(:italic t))) "Face used for displaying header content." |
(:italic t))) "Face used for displaying header content." |
735 |
:group 'gnus-article-headers |
:group 'gnus-article-headers |
736 |
:group 'gnus-article-highlight) |
:group 'gnus-article-highlight) |
737 |
|
;; backward-compatibility alias |
738 |
|
(put 'gnus-header-content-face 'face-alias 'gnus-header-content) |
739 |
|
|
740 |
(defcustom gnus-header-face-alist |
(defcustom gnus-header-face-alist |
741 |
'(("From" nil gnus-header-from-face) |
'(("From" nil gnus-header-from) |
742 |
("Subject" nil gnus-header-subject-face) |
("Subject" nil gnus-header-subject) |
743 |
("Newsgroups:.*," nil gnus-header-newsgroups-face) |
("Newsgroups:.*," nil gnus-header-newsgroups) |
744 |
("" gnus-header-name-face gnus-header-content-face)) |
("" gnus-header-name gnus-header-content)) |
745 |
"*Controls highlighting of article headers. |
"*Controls highlighting of article headers. |
746 |
|
|
747 |
An alist of the form (HEADER NAME CONTENT). |
An alist of the form (HEADER NAME CONTENT). |
6502 |
(defun gnus-article-highlight-signature () |
(defun gnus-article-highlight-signature () |
6503 |
"Highlight the signature in an article. |
"Highlight the signature in an article. |
6504 |
It does this by highlighting everything after |
It does this by highlighting everything after |
6505 |
`gnus-signature-separator' using `gnus-signature-face'." |
`gnus-signature-separator' using the face `gnus-signature'." |
6506 |
(interactive) |
(interactive) |
6507 |
(save-excursion |
(save-excursion |
6508 |
(set-buffer gnus-article-buffer) |
(set-buffer gnus-article-buffer) |