Mercurial > emacs
changeset 23362:4882e505ccbc
(gnus-orphan-score, gnus-score-default-header, gnus-score-default-type):
Fix type.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 01 Oct 1998 20:46:42 +0000 |
| parents | 86b5dc6c12f5 |
| children | 41843e16f6ac |
| files | lisp/gnus/gnus-score.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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."