[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-score.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-score.el
diff -c emacs/lisp/gnus/gnus-score.el:1.24 emacs/lisp/gnus/gnus-score.el:1.25
*** emacs/lisp/gnus/gnus-score.el:1.24  Sat Sep 24 13:46:19 2005
--- emacs/lisp/gnus/gnus-score.el       Tue Oct 25 23:34:40 2005
***************
*** 221,233 ****
                 (function :value fun)))
  
  (defcustom gnus-default-adaptive-score-alist
!   '((gnus-kill-file-mark)
      (gnus-unread-mark)
!     (gnus-read-mark (from 3) (subject 30))
!     (gnus-catchup-mark (subject -10))
!     (gnus-killed-mark (from -1) (subject -20))
!     (gnus-del-mark (from -2) (subject -15)))
!   "*Alist of marks and scores."
    :group 'gnus-score-adapt
    :type '(repeat (cons (symbol :tag "Mark")
                       (repeat (list (choice :tag "Header"
--- 221,242 ----
                 (function :value fun)))
  
  (defcustom gnus-default-adaptive-score-alist
!   `((gnus-kill-file-mark)
      (gnus-unread-mark)
!     (gnus-read-mark
!      (from , (+ 2 gnus-score-decay-constant))
!      (subject , (+ 27 gnus-score-decay-constant)))
!     (gnus-catchup-mark
!      (subject , (+ -7 (* -1 gnus-score-decay-constant))))
!     (gnus-killed-mark
!      (from , (- -1 gnus-score-decay-constant))
!      (subject , (+ -17 (* -1 gnus-score-decay-constant))))
!     (gnus-del-mark
!      (from , (- -1 gnus-score-decay-constant))
!      (subject , (+ -12 (* -1 gnus-score-decay-constant)))))
!   "Alist of marks and scores.
! If you use score decays, you might want to set values higher than
! `gnus-score-decay-constant'."
    :group 'gnus-score-adapt
    :type '(repeat (cons (symbol :tag "Mark")
                       (repeat (list (choice :tag "Header"