[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-srvr.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-srvr.el
diff -c emacs/lisp/gnus/gnus-srvr.el:1.18 emacs/lisp/gnus/gnus-srvr.el:1.19
*** emacs/lisp/gnus/gnus-srvr.el:1.18   Mon May 30 08:20:18 2005
--- emacs/lisp/gnus/gnus-srvr.el        Thu Jun 16 03:48:19 2005
***************
*** 168,234 ****
      "\C-c\C-i" gnus-info-find-node
      "\C-c\C-b" gnus-bug))
  
! (defface gnus-server-agent-face
    '((((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)
  
! (defface gnus-server-opened-face
    '((((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)
  
! (defface gnus-server-closed-face
    '((((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)
  
! (defface gnus-server-denied-face
    '((((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)
  
! (defface gnus-server-offline-face
    '((((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)
  
! (defcustom gnus-server-agent-face 'gnus-server-agent-face
    "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
    "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
    "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
    "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
    "Face name to use on OFFLINE servers."
    :version "22.1"
    :group 'gnus-server-visual
--- 168,244 ----
      "\C-c\C-i" gnus-info-find-node
      "\C-c\C-b" gnus-bug))
  
! (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
    '((((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
    '((((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
    '((((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
    '((((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 name to use on AGENTIZED servers."
    :version "22.1"
    :group 'gnus-server-visual
    :type '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 name to use on CLOSED servers."
    :version "22.1"
    :group 'gnus-server-visual
    :type '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 name to use on OFFLINE servers."
    :version "22.1"
    :group 'gnus-server-visual