# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 907274802 0
# Node ID 4882e505ccbc00bda43c6225074eda22d4099412
# Parent  86b5dc6c12f5c6f9d5c7a134979eb1fc78cc49e9
(gnus-orphan-score, gnus-score-default-header, gnus-score-default-type):
Fix type.

diff -r 86b5dc6c12f5 -r 4882e505ccbc lisp/gnus/gnus-score.el
--- a/lisp/gnus/gnus-score.el	Thu Oct 01 20:41:53 1998 +0000
+++ b/lisp/gnus/gnus-score.el	Thu Oct 01 20:46:42 1998 +0000
@@ -136,7 +136,8 @@
 (defcustom gnus-orphan-score nil
   "*All orphans get this score added.  Set in the score file."
   :group 'gnus-score-default
-  :type 'integer)
+  :type '(choice (const nil)
+		 integer))
 
 (defcustom gnus-decay-scores nil
   "*If non-nil, decay non-permanent scores."
@@ -307,7 +308,8 @@
 		 (const :tag "xref" x)
 		 (const :tag "lines" l)
 		 (const :tag "date" d)
-		 (const :tag "followup" f)))
+		 (const :tag "followup" f)
+		 (const :tag "ask" nil)))
 
 (defcustom gnus-score-default-type nil
   "Default match type when entering new scores.
@@ -336,7 +338,8 @@
 		 (const :tag "this date" n)
 		 (const :tag "less than number" <)
 		 (const :tag "greater than number" >)
-		 (const :tag "equal than number" =)))
+		 (const :tag "equal than number" =)
+		 (const :tag "ask" nil)))
 
 (defcustom gnus-score-default-fold nil
   "Use case folding for new score file entries iff not nil."