2001-09-09 Simon Josefsson <jas@extundo.com>

	* gnus-srvr.el (gnus-server-mode-hook, gnus-server-exit-hook)
	(gnus-server-line-format, gnus-server-mode-line-format)
	(gnus-server-browse-in-group-buffer): Customize.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe3cf8d..3266a6e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-09  Simon Josefsson  <jas@extundo.com>
+
+       * gnus-srvr.el (gnus-server-mode-hook, gnus-server-exit-hook) 
+       (gnus-server-line-format, gnus-server-mode-line-format) 
+       (gnus-server-browse-in-group-buffer): Customize.
+
 2001-09-08 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nnml.el (nnml-marks-changed-p): Typo.

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index f10fedd..6137fdb 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -34,10 +34,17 @@
 (require 'gnus-int)
 (require 'gnus-range)
 
-(defvar gnus-server-mode-hook nil
-  "Hook run in `gnus-server-mode' buffers.")
+(defcustom gnus-server-mode-hook nil
+  "Hook run in `gnus-server-mode' buffers."
+  :group 'gnus-server
+  :type 'hook)
 
-(defconst gnus-server-line-format "     {%(%h:%w%)} %s%a\n"
+(defcustom gnus-server-exit-hook nil
+  "Hook run when exiting the server buffer."
+  :group 'gnus-server
+  :type 'hook)
+
+(defcustom gnus-server-line-format "     {%(%h:%w%)} %s%a\n"
   "Format of server lines.
 It works along the same lines as a normal formatting string,
 with some simple extensions.
@@ -48,16 +55,19 @@ The following specs are understood:
 %n name
 %w address
 %s status
-%a agent covered")
-
-(defvar gnus-server-mode-line-format "Gnus: %%b"
-  "The format specification for the server mode line.")
+%a agent covered"
+  :group 'gnus-server-visual
+  :type 'string)
 
-(defvar gnus-server-exit-hook nil
-  "*Hook run when exiting the server buffer.")
+(defcustom gnus-server-mode-line-format "Gnus: %%b"
+  "The format specification for the server mode line."
+  :group 'gnus-server-visual
+  :type 'string)
 
-(defvar gnus-server-browse-in-group-buffer nil
-  "Whether browse server in group buffer.")
+(defcustom gnus-server-browse-in-group-buffer nil
+  "Whether browse server in group buffer."
+  :group 'gnus-server-visual
+  :type 'string)
 
 ;;; Internal variables.