(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>
 
 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.
 
        * 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)
 
   :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
   "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
 
 ;;;
 ;;; Server Communication