Commit 0f49874b authored by Miles Bader's avatar Miles Bader
Browse files

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-425

Remove "-face" suffix from gnus faces

2005-06-16  Miles Bader  <miles@gnu.org>

   * lisp/gnus/spam.el (spam): Remove "-face" suffix from face name.
   (spam-face): New backward-compatibility alias for renamed face.
   (spam-face, spam-initialize): Use renamed spam face.

   * lisp/gnus/message.el (message-header-to, message-header-cc)
   (message-header-subject, message-header-newsgroups)
   (message-header-other, message-header-name)
   (message-header-xheader, message-separator, message-cited-text)
   (message-mml): Remove "-face" suffix from face names.
   (message-header-to-face, message-header-cc-face)
   (message-header-subject-face, message-header-newsgroups-face)
   (message-header-other-face, message-header-name-face)
   (message-header-xheader-face, message-separator-face)
   (message-cited-text-face, message-mml-face):
   New backward-compatibility aliases for renamed faces.
   (message-font-lock-keywords): Use renamed message faces.

   * lisp/gnus/sieve-mode.el (sieve-control-commands, sieve-action-commands)
   (sieve-test-commands, sieve-tagged-arguments):
   Remove "-face" suffix from face names.
   (sieve-control-commands-face, sieve-action-commands-face)
   (sieve-test-commands-face, sieve-tagged-arguments-face):
   New backward-compatibility aliases for renamed faces.
   (sieve-control-commands-face, sieve-action-commands-face)
   (sieve-test-commands-face, sieve-tagged-arguments-face):
   Use renamed sieve faces.

   * lisp/gnus/gnus.el (gnus-group-news-1, gnus-group-news-1-empty)
   (gnus-group-news-2, gnus-group-news-2-empty, gnus-group-news-3)
   (gnus-group-news-3-empty, gnus-group-news-4)
   (gnus-group-news-4-empty, gnus-group-news-5)
   (gnus-group-news-5-empty, gnus-group-news-6)
   (gnus-group-news-6-empty, gnus-group-news-low)
   (gnus-group-news-low-empty, gnus-group-mail-1)
   (gnus-group-mail-1-empty, gnus-group-mail-2)
   (gnus-group-mail-2-empty, gnus-group-mail-3)
   (gnus-group-mail-3-empty, gnus-group-mail-low)
   (gnus-group-mail-low-empty, gnus-summary-selected)
   (gnus-summary-cancelled, gnus-summary-high-ticked)
   (gnus-summary-low-ticked, gnus-summary-normal-ticked)
   (gnus-summary-high-ancient, gnus-summary-low-ancient)
   (gnus-summary-normal-ancient, gnus-summary-high-undownloaded)
   (gnus-summary-low-undownloaded)
   (gnus-summary-normal-undownloaded, gnus-summary-high-unread)
   (gnus-summary-low-unread, gnus-summary-normal-unread)
   (gnus-summary-high-read, gnus-summary-low-read)
   (gnus-summary-normal-read, gnus-splash):
   Remove "-face" suffix from face names.
   (gnus-group-news-1-face, gnus-group-news-1-empty-face)
   (gnus-group-news-2-face, gnus-group-news-2-empty-face)
   (gnus-group-news-3-face, gnus-group-news-3-empty-face)
   (gnus-group-news-4-face, gnus-group-news-4-empty-face)
   (gnus-group-news-5-face, gnus-group-news-5-empty-face)
   (gnus-group-news-6-face, gnus-group-news-6-empty-face)
   (gnus-group-news-low-face, gnus-group-news-low-empty-face)
   (gnus-group-mail-1-face, gnus-group-mail-1-empty-face)
   (gnus-group-mail-2-face, gnus-group-mail-2-empty-face)
   (gnus-group-mail-3-face, gnus-group-mail-3-empty-face)
   (gnus-group-mail-low-face, gnus-group-mail-low-empty-face)
   (gnus-summary-selected-face, gnus-summary-cancelled-face)
   (gnus-summary-high-ticked-face, gnus-summary-low-ticked-face)
   (gnus-summary-normal-ticked-face)
   (gnus-summary-high-ancient-face, gnus-summary-low-ancient-face)
   (gnus-summary-normal-ancient-face)
   (gnus-summary-high-undownloaded-face)
   (gnus-summary-low-undownloaded-face)
   (gnus-summary-normal-undownloaded-face)
   (gnus-summary-high-unread-face, gnus-summary-low-unread-face)
   (gnus-summary-normal-unread-face, gnus-summary-high-read-face)
   (gnus-summary-low-read-face, gnus-summary-normal-read-face)
   (gnus-splash-face):
   New backward-compatibility aliases for renamed faces.
   (gnus-group-startup-message): Use renamed gnus faces.

   * lisp/gnus/gnus-srvr.el (gnus-server-agent, gnus-server-opened)
   (gnus-server-closed, gnus-server-denied, gnus-server-offline)
   (gnus-server-agent): Remove "-face" suffix from face names.
   (gnus-server-agent-face, gnus-server-opened-face)
   (gnus-server-closed-face, gnus-server-denied-face)
   (gnus-server-offline-face):
   New backward-compatibility aliases for renamed faces.
   (gnus-server-agent-face, gnus-server-opened-face)
   (gnus-server-closed-face, gnus-server-denied-face)
   (gnus-server-offline-face): Use renamed gnus faces.

   * lisp/gnus/gnus-picon.el (gnus-picon-xbm, gnus-picon):
   Remove "-face" suffix from face names.
   (gnus-picon-xbm-face, gnus-picon-face):
   New backward-compatibility aliases for renamed faces.

   * lisp/gnus/gnus-cite.el (gnus-cite-attribution, gnus-cite-1, gnus-cite-2)
   (gnus-cite-3, gnus-cite-4, gnus-cite-5, gnus-cite-6)
   (gnus-cite-7, gnus-cite-8, gnus-cite-9, gnus-cite-10)
   (gnus-cite-11): Remove "-face" suffix from face names.
   (gnus-cite-attribution-face, gnus-cite-face-1, gnus-cite-face-2)
   (gnus-cite-face-3, gnus-cite-face-4, gnus-cite-face-5)
   (gnus-cite-face-6, gnus-cite-face-7, gnus-cite-face-8)
   (gnus-cite-face-9, gnus-cite-face-10, gnus-cite-face-11):
   New backward-compatibility aliases for renamed faces.
   (gnus-cite-attribution-face, gnus-cite-face-list)
   (gnus-article-boring-faces): Use renamed gnus faces.

   * lisp/gnus/gnus-art.el (gnus-signature, gnus-header-from)
   (gnus-header-subject, gnus-header-newsgroups, gnus-header-name)
   (gnus-header-content): Remove "-face" suffix from face names.
   (gnus-signature-face, gnus-header-from-face)
   (gnus-header-subject-face, gnus-header-newsgroups-face)
   (gnus-header-name-face, gnus-header-content-face):
   New backward-compatibility aliases for renamed faces.
   (gnus-signature-face, gnus-header-face-alist): Use renamed gnus faces.

   * lisp/gnus/gnus-sum.el (gnus-summary-selected-face)
   (gnus-summary-highlight): Use renamed gnus faces.
   * lisp/gnus/gnus-group.el (gnus-group-highlight): Likewise.
parent 51cd2a8c
2005-06-16 Miles Bader <miles@gnu.org>
* spam.el (spam): Remove "-face" suffix from face name.
(spam-face): New backward-compatibility alias for renamed face.
(spam-face, spam-initialize): Use renamed spam face.
* message.el (message-header-to, message-header-cc)
(message-header-subject, message-header-newsgroups)
(message-header-other, message-header-name)
(message-header-xheader, message-separator, message-cited-text)
(message-mml): Remove "-face" suffix from face names.
(message-header-to-face, message-header-cc-face)
(message-header-subject-face, message-header-newsgroups-face)
(message-header-other-face, message-header-name-face)
(message-header-xheader-face, message-separator-face)
(message-cited-text-face, message-mml-face):
New backward-compatibility aliases for renamed faces.
(message-font-lock-keywords): Use renamed message faces.
* sieve-mode.el (sieve-control-commands, sieve-action-commands)
(sieve-test-commands, sieve-tagged-arguments):
Remove "-face" suffix from face names.
(sieve-control-commands-face, sieve-action-commands-face)
(sieve-test-commands-face, sieve-tagged-arguments-face):
New backward-compatibility aliases for renamed faces.
(sieve-control-commands-face, sieve-action-commands-face)
(sieve-test-commands-face, sieve-tagged-arguments-face):
Use renamed sieve faces.
* gnus.el (gnus-group-news-1, gnus-group-news-1-empty)
(gnus-group-news-2, gnus-group-news-2-empty, gnus-group-news-3)
(gnus-group-news-3-empty, gnus-group-news-4)
(gnus-group-news-4-empty, gnus-group-news-5)
(gnus-group-news-5-empty, gnus-group-news-6)
(gnus-group-news-6-empty, gnus-group-news-low)
(gnus-group-news-low-empty, gnus-group-mail-1)
(gnus-group-mail-1-empty, gnus-group-mail-2)
(gnus-group-mail-2-empty, gnus-group-mail-3)
(gnus-group-mail-3-empty, gnus-group-mail-low)
(gnus-group-mail-low-empty, gnus-summary-selected)
(gnus-summary-cancelled, gnus-summary-high-ticked)
(gnus-summary-low-ticked, gnus-summary-normal-ticked)
(gnus-summary-high-ancient, gnus-summary-low-ancient)
(gnus-summary-normal-ancient, gnus-summary-high-undownloaded)
(gnus-summary-low-undownloaded)
(gnus-summary-normal-undownloaded, gnus-summary-high-unread)
(gnus-summary-low-unread, gnus-summary-normal-unread)
(gnus-summary-high-read, gnus-summary-low-read)
(gnus-summary-normal-read, gnus-splash):
Remove "-face" suffix from face names.
(gnus-group-news-1-face, gnus-group-news-1-empty-face)
(gnus-group-news-2-face, gnus-group-news-2-empty-face)
(gnus-group-news-3-face, gnus-group-news-3-empty-face)
(gnus-group-news-4-face, gnus-group-news-4-empty-face)
(gnus-group-news-5-face, gnus-group-news-5-empty-face)
(gnus-group-news-6-face, gnus-group-news-6-empty-face)
(gnus-group-news-low-face, gnus-group-news-low-empty-face)
(gnus-group-mail-1-face, gnus-group-mail-1-empty-face)
(gnus-group-mail-2-face, gnus-group-mail-2-empty-face)
(gnus-group-mail-3-face, gnus-group-mail-3-empty-face)
(gnus-group-mail-low-face, gnus-group-mail-low-empty-face)
(gnus-summary-selected-face, gnus-summary-cancelled-face)
(gnus-summary-high-ticked-face, gnus-summary-low-ticked-face)
(gnus-summary-normal-ticked-face)
(gnus-summary-high-ancient-face, gnus-summary-low-ancient-face)
(gnus-summary-normal-ancient-face)
(gnus-summary-high-undownloaded-face)
(gnus-summary-low-undownloaded-face)
(gnus-summary-normal-undownloaded-face)
(gnus-summary-high-unread-face, gnus-summary-low-unread-face)
(gnus-summary-normal-unread-face, gnus-summary-high-read-face)
(gnus-summary-low-read-face, gnus-summary-normal-read-face)
(gnus-splash-face):
New backward-compatibility aliases for renamed faces.
(gnus-group-startup-message): Use renamed gnus faces.
* gnus-srvr.el (gnus-server-agent, gnus-server-opened)
(gnus-server-closed, gnus-server-denied, gnus-server-offline)
(gnus-server-agent): Remove "-face" suffix from face names.
(gnus-server-agent-face, gnus-server-opened-face)
(gnus-server-closed-face, gnus-server-denied-face)
(gnus-server-offline-face):
New backward-compatibility aliases for renamed faces.
(gnus-server-agent-face, gnus-server-opened-face)
(gnus-server-closed-face, gnus-server-denied-face)
(gnus-server-offline-face): Use renamed gnus faces.
* gnus-picon.el (gnus-picon-xbm, gnus-picon):
Remove "-face" suffix from face names.
(gnus-picon-xbm-face, gnus-picon-face):
New backward-compatibility aliases for renamed faces.
* gnus-cite.el (gnus-cite-attribution, gnus-cite-1, gnus-cite-2)
(gnus-cite-3, gnus-cite-4, gnus-cite-5, gnus-cite-6)
(gnus-cite-7, gnus-cite-8, gnus-cite-9, gnus-cite-10)
(gnus-cite-11): Remove "-face" suffix from face names.
(gnus-cite-attribution-face, gnus-cite-face-1, gnus-cite-face-2)
(gnus-cite-face-3, gnus-cite-face-4, gnus-cite-face-5)
(gnus-cite-face-6, gnus-cite-face-7, gnus-cite-face-8)
(gnus-cite-face-9, gnus-cite-face-10, gnus-cite-face-11):
New backward-compatibility aliases for renamed faces.
(gnus-cite-attribution-face, gnus-cite-face-list)
(gnus-article-boring-faces): Use renamed gnus faces.
* gnus-art.el (gnus-signature, gnus-header-from)
(gnus-header-subject, gnus-header-newsgroups, gnus-header-name)
(gnus-header-content): Remove "-face" suffix from face names.
(gnus-signature-face, gnus-header-from-face)
(gnus-header-subject-face, gnus-header-newsgroups-face)
(gnus-header-name-face, gnus-header-content-face):
New backward-compatibility aliases for renamed faces.
(gnus-signature-face, gnus-header-face-alist): Use renamed gnus faces.
* gnus-sum.el (gnus-summary-selected-face)
(gnus-summary-highlight): Use renamed gnus faces.
* gnus-group.el (gnus-group-highlight): Likewise.
2005-06-14 Juanma Barranquero <lekktu@gmail.com>
* gnus-sieve.el (gnus-sieve-article-add-rule):
......
......@@ -645,21 +645,23 @@ above them."
:type 'face
:group 'gnus-article-buttons)
(defcustom gnus-signature-face 'gnus-signature-face
(defcustom gnus-signature-face 'gnus-signature
"Face used for highlighting a signature in the article buffer.
Obsolete; use the face `gnus-signature-face' for customizations instead."
Obsolete; use the face `gnus-signature' for customizations instead."
:type 'face
:group 'gnus-article-highlight
:group 'gnus-article-signature)
(defface gnus-signature-face
(defface gnus-signature
'((t
(:italic t)))
"Face used for highlighting a signature in the article buffer."
:group 'gnus-article-highlight
:group 'gnus-article-signature)
;; backward-compatibility alias
(put 'gnus-signature-face 'face-alias 'gnus-signature)
(defface gnus-header-from-face
(defface gnus-header-from
'((((class color)
(background dark))
(:foreground "spring green"))
......@@ -671,8 +673,10 @@ Obsolete; use the face `gnus-signature-face' for customizations instead."
"Face used for displaying from headers."
:group 'gnus-article-headers
:group 'gnus-article-highlight)
;; backward-compatibility alias
(put 'gnus-header-from-face 'face-alias 'gnus-header-from)
(defface gnus-header-subject-face
(defface gnus-header-subject
'((((class color)
(background dark))
(:foreground "SeaGreen3"))
......@@ -684,8 +688,10 @@ Obsolete; use the face `gnus-signature-face' for customizations instead."
"Face used for displaying subject headers."
:group 'gnus-article-headers
:group 'gnus-article-highlight)
;; backward-compatibility alias
(put 'gnus-header-subject-face 'face-alias 'gnus-header-subject)
(defface gnus-header-newsgroups-face
(defface gnus-header-newsgroups
'((((class color)
(background dark))
(:foreground "yellow" :italic t))
......@@ -699,8 +705,10 @@ In the default setup this face is only used for crossposted
articles."
:group 'gnus-article-headers
:group 'gnus-article-highlight)
;; backward-compatibility alias
(put 'gnus-header-newsgroups-face 'face-alias 'gnus-header-newsgroups)
(defface gnus-header-name-face
(defface gnus-header-name
'((((class color)
(background dark))
(:foreground "SeaGreen"))
......@@ -712,8 +720,10 @@ articles."
"Face used for displaying header names."
:group 'gnus-article-headers
:group 'gnus-article-highlight)
;; backward-compatibility alias
(put 'gnus-header-name-face 'face-alias 'gnus-header-name)
(defface gnus-header-content-face
(defface gnus-header-content
'((((class color)
(background dark))
(:foreground "forest green" :italic t))
......@@ -724,12 +734,14 @@ articles."
(:italic t))) "Face used for displaying header content."
:group 'gnus-article-headers
:group 'gnus-article-highlight)
;; backward-compatibility alias
(put 'gnus-header-content-face 'face-alias 'gnus-header-content)
(defcustom gnus-header-face-alist
'(("From" nil gnus-header-from-face)
("Subject" nil gnus-header-subject-face)
("Newsgroups:.*," nil gnus-header-newsgroups-face)
("" gnus-header-name-face gnus-header-content-face))
'(("From" nil gnus-header-from)
("Subject" nil gnus-header-subject)
("Newsgroups:.*," nil gnus-header-newsgroups)
("" gnus-header-name gnus-header-content))
"*Controls highlighting of article headers.
An alist of the form (HEADER NAME CONTENT).
......@@ -6490,7 +6502,7 @@ do the highlighting. See the documentation for those functions."
(defun gnus-article-highlight-signature ()
"Highlight the signature in an article.
It does this by highlighting everything after
`gnus-signature-separator' using `gnus-signature-face'."
`gnus-signature-separator' using the face `gnus-signature'."
(interactive)
(save-excursion
(set-buffer gnus-article-buffer)
......
......@@ -137,143 +137,165 @@ the envelope From line."
:group 'gnus-cite
:type 'boolean)
(defface gnus-cite-attribution-face '((t
(:italic t)))
(defface gnus-cite-attribution '((t (:italic t)))
"Face used for attribution lines."
:group 'gnus-cite)
;; backward-compatibility alias
(put 'gnus-cite-attribution-face 'face-alias 'gnus-cite-attribution)
(defcustom gnus-cite-attribution-face 'gnus-cite-attribution-face
(defcustom gnus-cite-attribution-face 'gnus-cite-attribution
"Face used for attribution lines.
It is merged with the face for the cited text belonging to the attribution."
:version "22.1"
:group 'gnus-cite
:type 'face)
(defface gnus-cite-face-1 '((((class color)
(background dark))
(:foreground "light blue"))
(((class color)
(background light))
(:foreground "MidnightBlue"))
(t
(:italic t)))
(defface gnus-cite-1 '((((class color)
(background dark))
(:foreground "light blue"))
(((class color)
(background light))
(:foreground "MidnightBlue"))
(t
(:italic t)))
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-2 '((((class color)
(background dark))
(:foreground "light cyan"))
(((class color)
(background light))
(:foreground "firebrick"))
(t
(:italic t)))
;; backward-compatibility alias
(put 'gnus-cite-face-1 'face-alias 'gnus-cite-1)
(defface gnus-cite-2 '((((class color)
(background dark))
(:foreground "light cyan"))
(((class color)
(background light))
(:foreground "firebrick"))
(t
(:italic t)))
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-3 '((((class color)
(background dark))
(:foreground "light yellow"))
(((class color)
(background light))
(:foreground "dark green"))
(t
(:italic t)))
;; backward-compatibility alias
(put 'gnus-cite-face-2 'face-alias 'gnus-cite-2)
(defface gnus-cite-3 '((((class color)
(background dark))
(:foreground "light yellow"))
(((class color)
(background light))
(:foreground "dark green"))
(t
(:italic t)))
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-4 '((((class color)
(background dark))
(:foreground "light pink"))
(((class color)
(background light))
(:foreground "OrangeRed"))
(t
(:italic t)))
;; backward-compatibility alias
(put 'gnus-cite-face-3 'face-alias 'gnus-cite-3)
(defface gnus-cite-4 '((((class color)
(background dark))
(:foreground "light pink"))
(((class color)
(background light))
(:foreground "OrangeRed"))
(t
(:italic t)))
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-5 '((((class color)
(background dark))
(:foreground "pale green"))
(((class color)
(background light))
(:foreground "dark khaki"))
(t
(:italic t)))
;; backward-compatibility alias
(put 'gnus-cite-face-4 'face-alias 'gnus-cite-4)
(defface gnus-cite-5 '((((class color)
(background dark))
(:foreground "pale green"))
(((class color)
(background light))
(:foreground "dark khaki"))
(t
(:italic t)))
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-6 '((((class color)
(background dark))
(:foreground "beige"))
(((class color)
(background light))
(:foreground "dark violet"))
(t
(:italic t)))
;; backward-compatibility alias
(put 'gnus-cite-face-5 'face-alias 'gnus-cite-5)
(defface gnus-cite-6 '((((class color)
(background dark))
(:foreground "beige"))
(((class color)
(background light))
(:foreground "dark violet"))
(t
(:italic t)))
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-7 '((((class color)
(background dark))
(:foreground "orange"))
(((class color)
(background light))
(:foreground "SteelBlue4"))
(t
(:italic t)))
;; backward-compatibility alias
(put 'gnus-cite-face-6 'face-alias 'gnus-cite-6)
(defface gnus-cite-7 '((((class color)
(background dark))
(:foreground "orange"))
(((class color)
(background light))
(:foreground "SteelBlue4"))
(t
(:italic t)))
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-8 '((((class color)
(background dark))
(:foreground "magenta"))
(((class color)
(background light))
(:foreground "magenta"))
(t
(:italic t)))
;; backward-compatibility alias
(put 'gnus-cite-face-7 'face-alias 'gnus-cite-7)
(defface gnus-cite-8 '((((class color)
(background dark))
(:foreground "magenta"))
(((class color)
(background light))
(:foreground "magenta"))
(t
(:italic t)))
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-9 '((((class color)
(background dark))
(:foreground "violet"))
(((class color)
(background light))
(:foreground "violet"))
(t
(:italic t)))
;; backward-compatibility alias
(put 'gnus-cite-face-8 'face-alias 'gnus-cite-8)
(defface gnus-cite-9 '((((class color)
(background dark))
(:foreground "violet"))
(((class color)
(background light))
(:foreground "violet"))
(t
(:italic t)))
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-10 '((((class color)
(background dark))
(:foreground "medium purple"))
(((class color)
(background light))
(:foreground "medium purple"))
(t
(:italic t)))
;; backward-compatibility alias
(put 'gnus-cite-face-9 'face-alias 'gnus-cite-9)
(defface gnus-cite-10 '((((class color)
(background dark))
(:foreground "medium purple"))
(((class color)
(background light))
(:foreground "medium purple"))
(t
(:italic t)))
"Citation face."
:group 'gnus-cite)
(defface gnus-cite-face-11 '((((class color)
(background dark))
(:foreground "turquoise"))
(((class color)
(background light))
(:foreground "turquoise"))
(t
(:italic t)))
;; backward-compatibility alias
(put 'gnus-cite-face-10 'face-alias 'gnus-cite-10)
(defface gnus-cite-11 '((((class color)
(background dark))
(:foreground "turquoise"))
(((class color)
(background light))
(:foreground "turquoise"))
(t
(:italic t)))
"Citation face."
:group 'gnus-cite)
;; backward-compatibility alias
(put 'gnus-cite-face-11 'face-alias 'gnus-cite-11)
(defcustom gnus-cite-face-list
'(gnus-cite-face-1 gnus-cite-face-2 gnus-cite-face-3 gnus-cite-face-4
gnus-cite-face-5 gnus-cite-face-6 gnus-cite-face-7 gnus-cite-face-8
gnus-cite-face-9 gnus-cite-face-10 gnus-cite-face-11)
'(gnus-cite-1 gnus-cite-2 gnus-cite-3 gnus-cite-4 gnus-cite-5 gnus-cite-6
gnus-cite-7 gnus-cite-8 gnus-cite-9 gnus-cite-10 gnus-cite-11)
"*List of faces used for highlighting citations.
When there are citations from multiple articles in the same message,
......@@ -299,8 +321,7 @@ This should make it easier to see who wrote what."
;; This has to go here because its default value depends on
;; gnus-cite-face-list.
(defcustom gnus-article-boring-faces (cons 'gnus-signature-face
gnus-cite-face-list)
(defcustom gnus-article-boring-faces (cons 'gnus-signature gnus-cite-face-list)
"List of faces that are not worth reading.
If an article has more pages below the one you are looking at, but
nothing on those pages is a word of at least three letters that is not
......@@ -352,7 +373,7 @@ in a boring face, then the pages will be skipped."
Each citation in the article will be highlighted with a different face.
The faces are taken from `gnus-cite-face-list'.
Attribution lines are highlighted with the same face as the
corresponding citation merged with `gnus-cite-attribution-face'.
corresponding citation merged with the face `gnus-cite-attribution'.
Text is considered cited if at least `gnus-cite-minimum-match-count'
lines matches `message-cite-prefix-regexp' with the same prefix.
......
......@@ -309,50 +309,50 @@ variable."
(defcustom gnus-group-highlight
'(;; Mail.
((and mailp (= unread 0) (eq level 1)) .
gnus-group-mail-1-empty-face)
gnus-group-mail-1-empty)
((and mailp (eq level 1)) .
gnus-group-mail-1-face)
gnus-group-mail-1)
((and mailp (= unread 0) (eq level 2)) .
gnus-group-mail-2-empty-face)
gnus-group-mail-2-empty)
((and mailp (eq level 2)) .
gnus-group-mail-2-face)
gnus-group-mail-2)
((and mailp (= unread 0) (eq level 3)) .
gnus-group-mail-3-empty-face)
gnus-group-mail-3-empty)
((and mailp (eq level 3)) .
gnus-group-mail-3-face)
gnus-group-mail-3)
((and mailp (= unread 0)) .
gnus-group-mail-low-empty-face)
gnus-group-mail-low-empty)
((and mailp) .
gnus-group-mail-low-face)
gnus-group-mail-low)
;; News.
((and (= unread 0) (eq level 1)) .
gnus-group-news-1-empty-face)
gnus-group-news-1-empty)
((and (eq level 1)) .
gnus-group-news-1-face)
gnus-group-news-1)
((and (= unread 0) (eq level 2)) .
gnus-group-news-2-empty-face)
gnus-group-news-2-empty)
((and (eq level 2)) .
gnus-group-news-2-face)
gnus-group-news-2)
((and (= unread 0) (eq level 3)) .
gnus-group-news-3-empty-face)
gnus-group-news-3-empty)
((and (eq level 3)) .
gnus-group-news-3-face)
gnus-group-news-3)
((and (= unread 0) (eq level 4)) .
gnus-group-news-4-empty-face)
gnus-group-news-4-empty)
((and (eq level 4)) .
gnus-group-news-4-face)
gnus-group-news-4)
((and (= unread 0) (eq level 5)) .
gnus-group-news-5-empty-face)
gnus-group-news-5-empty)
((and (eq level 5)) .
gnus-group-news-5-face)
gnus-group-news-5)
((and (= unread 0) (eq level 6)) .
gnus-group-news-6-empty-face)
gnus-group-news-6-empty)
((and (eq level 6)) .
gnus-group-news-6-face)
gnus-group-news-6)
((and (= unread 0)) .
gnus-group-news-low-empty-face)
gnus-group-news-low-empty)
(t .
gnus-group-news-low-face))
gnus-group-news-low))
"*Controls the highlighting of group buffer lines.
Below is a list of `Form'/`Face' pairs. When deciding how a a
......
......@@ -74,13 +74,17 @@ Some people may want to add \"unknown\" to this list."
:type '(repeat string)
:group 'gnus-picon)
(defface gnus-picon-xbm-face '((t (:foreground "black" :background "white")))
(defface gnus-picon-xbm '((t (:foreground "black" :background "white")))
"Face to show xbm picon in."
:group 'gnus-picon)
;; backward-compatibility alias
(put 'gnus-picon-xbm-face 'face-alias 'gnus-picon-xbm)
(defface gnus-picon-face '((t (:foreground "black" :background "white")))
(defface gnus-picon '((t (:foreground "black" :background "white")))
"Face to show picon in."
:group 'gnus-picon)
;; backward-compatibility alias
(put 'gnus-picon-face 'face-alias 'gnus-picon)
;;; Internal variables:
......
......@@ -168,67 +168,77 @@ If nil, a faster, but more primitive, buffer is used instead."
"\C-c\C-i" gnus-info-find-node
"\C-c\C-b" gnus-bug))
(defface gnus-server-agent-face
(defface gnus-server-agent
'((((class color) (background light)) (:foreground "PaleTurquoise" :bold t))
(((class color) (background dark)) (:foreground "PaleTurquoise" :bold t))
(t (:bold t)))
"Face used for displaying AGENTIZED servers"
:group 'gnus-server-visual)
;; backward-compatibility alias
(put 'gnus-server-agent-face 'face-alias 'gnus-server-agent)
(defface gnus-server-opened-face
(defface gnus-server-opened
'((((class color) (background light)) (:foreground "Green3" :bold t))
(((class color) (background dark)) (:foreground "Green1" :bold t))
(t (:bold t)))
"Face used for displaying OPENED servers"
:group 'gnus-server-visual)
;; backward-compatibility alias