(gnus-server-unopen-status): Defcustom.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a91b37e..90b80e4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2002-09-26  Simon Josefsson  <jas@extundo.com>
 
+       * gnus-int.el (gnus-server-unopen-status): Defcustom.
+
        * mml-sec.el (mml-signencrypt-style): Docstring to font-lock
        better.
 

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 936abaa..32ecfa7 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -35,12 +35,16 @@
   :group 'gnus-start
   :type 'hook)
 
-(defvar gnus-server-unopen-status nil
+(defcustom gnus-server-unopen-status nil
   "The default status if the server is not able to open.
 If the server is covered by Gnus agent, the possible values are
 `denied', set the server denied; `offline', set the server offline;
 `nil', ask user.  If the server is not covered by Gnus agent, set the
-server denied.")
+server denied."
+  :group 'gnus-start
+  :type '(choice (const :tag "Ask" nil)
+                (const :tag "Deny server" denied)
+                (const :tag "Unplugg Agent" offline)))
 
 ;;;
 ;;; Server Communication