/[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.76 by teirllm, Sat Jun 4 22:27:57 2005 UTC revision 1.77 by miles, Thu Jun 16 03:48:19 2005 UTC
# Line 645  above them." Line 645  above them."
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"))
# Line 671  Obsolete; use the face `gnus-signature-f Line 673  Obsolete; use the face `gnus-signature-f
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"))
# Line 684  Obsolete; use the face `gnus-signature-f Line 688  Obsolete; use the face `gnus-signature-f
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))
# Line 699  In the default setup this face is only u Line 705  In the default setup this face is only u
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"))
# Line 712  articles." Line 720  articles."
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))
# Line 724  articles." Line 734  articles."
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).
# Line 6490  do the highlighting.  See the documentat Line 6502  do the highlighting.  See the documentat
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)

Legend:
Removed from v.1.76  
changed lines
  Added in v.1.77

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