--- gnus/lisp/gnus-srvr.el	Tue Jun 24 07:22:43 2003
+++ cvsgnus/lisp/gnus-srvr.el	Sat Aug  9 15:50:22 2003
@@ -202,38 +202,13 @@
   "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."
-  :group 'gnus-server-visual
-  :type 'face)
-
-(defcustom gnus-server-opened-face 'gnus-server-opened-face
-  "Face name to use on OPENED servers."
-  :group 'gnus-server-visual
-  :type 'face)
-
-(defcustom gnus-server-closed-face 'gnus-server-closed-face
-  "Face name to use on CLOSED servers."
-  :group 'gnus-server-visual
-  :type 'face)
-
-(defcustom gnus-server-denied-face 'gnus-server-denied-face
-  "Face name to use on DENIED servers."
-  :group 'gnus-server-visual
-  :type 'face)
-
-(defcustom gnus-server-offline-face 'gnus-server-offline-face
-  "Face name to use on OFFLINE servers."
-  :group 'gnus-server-visual
-  :type 'face)
-
 (defvar gnus-server-font-lock-keywords
   (list
-   '("(\\(agent\\))" 1 gnus-server-agent-face)
-   '("(\\(opened\\))" 1 gnus-server-opened-face)
-   '("(\\(closed\\))" 1 gnus-server-closed-face)
-   '("(\\(offline\\))" 1 gnus-server-offline-face)
-   '("(\\(denied\\))" 1 gnus-server-denied-face)))
+   '("(\\(agent\\))" 1 'gnus-server-agent-face)
+   '("(\\(opened\\))" 1 'gnus-server-opened-face)
+   '("(\\(closed\\))" 1 'gnus-server-closed-face)
+   '("(\\(offline\\))" 1 'gnus-server-offline-face)
+   '("(\\(denied\\))" 1 'gnus-server-denied-face)))
 
 (defun gnus-server-mode ()
   "Major mode for listing and editing servers.