Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-score.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 585fb297b004
children 0132846995bd
line wrap: on
line diff
--- a/lisp/gnus/gnus-score.el	Mon Aug 13 09:38:27 2007 +0200
+++ b/lisp/gnus/gnus-score.el	Mon Aug 13 09:39:39 2007 +0200
@@ -2725,11 +2725,11 @@
 ;;;
 
 (defun gnus-decay-score (score)
-  "Decay SCORE."
+  "Decay SCORE according to `gnus-score-decay-constant' and `gnus-score-decay-scale'."
   (floor
    (- score
       (* (if (< score 0) 1 -1)
-	 (min score
+	 (min (abs score)
 	      (max gnus-score-decay-constant
 		   (* (abs score)
 		      gnus-score-decay-scale)))))))