Mercurial > hg > xemacs-beta

comparison 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 (2007-08-13)
parents 585fb297b004
children 0132846995bd
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
2723 ;;; 2723 ;;;
2724 ;;; Score decays 2724 ;;; Score decays
2725 ;;; 2725 ;;;
2726 2726
2727 (defun gnus-decay-score (score) 2727 (defun gnus-decay-score (score)
2728 "Decay SCORE." 2728 "Decay SCORE according to `gnus-score-decay-constant' and `gnus-score-decay-scale'."
2729 (floor 2729 (floor
2730 (- score 2730 (- score
2731 (* (if (< score 0) 1 -1) 2731 (* (if (< score 0) 1 -1)
2732 (min score 2732 (min (abs score)
2733 (max gnus-score-decay-constant 2733 (max gnus-score-decay-constant
2734 (* (abs score) 2734 (* (abs score)
2735 gnus-score-decay-scale))))))) 2735 gnus-score-decay-scale)))))))
2736 2736
2737 (defun gnus-decay-scores (alist day) 2737 (defun gnus-decay-scores (alist day)