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.

1 files changed, 20 insertions, 10 deletions

diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index 1c2ba9447ff..cd7161aca0b 100644
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -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
+(put 'gnus-server-opened-face 'face-alias 'gnus-server-opened)
 
-(defface gnus-server-closed-face
+(defface gnus-server-closed
   '((((class color) (background light)) (:foreground "Steel Blue" :italic t))
     (((class color) (background dark))
      (:foreground "Light Steel Blue" :italic t))
     (t (:italic t)))
   "Face used for displaying CLOSED servers"
   :group 'gnus-server-visual)
+;; backward-compatibility alias
+(put 'gnus-server-closed-face 'face-alias 'gnus-server-closed)
 
-(defface gnus-server-denied-face
+(defface gnus-server-denied
   '((((class color) (background light)) (:foreground "Red" :bold t))
     (((class color) (background dark)) (:foreground "Pink" :bold t))
     (t (:inverse-video t :bold t)))
   "Face used for displaying DENIED servers"
   :group 'gnus-server-visual)
+;; backward-compatibility alias
+(put 'gnus-server-denied-face 'face-alias 'gnus-server-denied)
 
-(defface gnus-server-offline-face
+(defface gnus-server-offline
   '((((class color) (background light)) (:foreground "Orange" :bold t))
     (((class color) (background dark)) (:foreground "Yellow" :bold t))
     (t (:inverse-video t :bold t)))
   "Face used for displaying OFFLINE servers"
   :group 'gnus-server-visual)
+;; backward-compatibility alias
+(put 'gnus-server-offline-face 'face-alias 'gnus-server-offline)
 
-(defcustom gnus-server-agent-face 'gnus-server-agent-face
+(defcustom gnus-server-agent-face 'gnus-server-agent
   "Face name to use on AGENTIZED servers."
   :version "22.1"
   :group 'gnus-server-visual
   :type 'face)
 
-(defcustom gnus-server-opened-face 'gnus-server-opened-face
+(defcustom gnus-server-opened-face 'gnus-server-opened
   "Face name to use on OPENED servers."
   :version "22.1"
   :group 'gnus-server-visual
   :type 'face)
 
-(defcustom gnus-server-closed-face 'gnus-server-closed-face
+(defcustom gnus-server-closed-face 'gnus-server-closed
   "Face name to use on CLOSED servers."
   :version "22.1"
   :group 'gnus-server-visual
   :type 'face)
 
-(defcustom gnus-server-denied-face 'gnus-server-denied-face
+(defcustom gnus-server-denied-face 'gnus-server-denied
   "Face name to use on DENIED servers."
   :version "22.1"
   :group 'gnus-server-visual
   :type 'face)
 
-(defcustom gnus-server-offline-face 'gnus-server-offline-face
+(defcustom gnus-server-offline-face 'gnus-server-offline
   "Face name to use on OFFLINE servers."
   :version "22.1"
   :group 'gnus-server-visual