From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 1 Oct 1998 20:46:42 +0000 (+0000)
Subject: (gnus-orphan-score, gnus-score-default-header, gnus-score-default-type):
X-Git-Tag: emacs-20.4~1587
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a5f06018e145bba96209d6779854d218b2c38c75;p=emacs.git

(gnus-orphan-score, gnus-score-default-header, gnus-score-default-type):
Fix type.
---

diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el
index 7d223d11c25..19c9c3ae51e 100644
--- a/lisp/gnus/gnus-score.el
+++ b/lisp/gnus/gnus-score.el
@@ -136,7 +136,8 @@ will be expired along with non-matching score entries."
 (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 @@ If nil, the user will be asked for a header."
 		 (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 @@ If nil, the user will be asked for a match type."
 		 (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."