diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-11 15:27:45 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-11 15:27:45 +1100 |
| commit | 1ff3e583f58be4c2b56000baa83ab3a738011ab3 (patch) | |
| tree | 1afb74e9ea876e268b879bb8019437e3db754cb4 /lisp/gnus/gnus-score.el | |
| parent | 35953890c59f3d7fc6abe4a5f4aefc4c0d005ad4 (diff) | |
| download | emacs-1ff3e583f58be4c2b56000baa83ab3a738011ab3.tar.gz | |
Remove Gnus XEmacs compat functions
* lisp/gnus/gnus-registry.el: Remove XEmacs compat.
* lisp/gnus/gnus-salt.el: Remove XEmacs compat.
* lisp/gnus/gnus-score.el (gnus-decay-score): Remove XEmacs compat.
Diffstat (limited to 'lisp/gnus/gnus-score.el')
| -rw-r--r-- | lisp/gnus/gnus-score.el | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el index b486a05db09..82a804933b2 100644 --- a/lisp/gnus/gnus-score.el +++ b/lisp/gnus/gnus-score.el @@ -3050,19 +3050,12 @@ If ADAPT, return the home adaptive file instead." (defun gnus-decay-score (score) "Decay SCORE according to `gnus-score-decay-constant' and `gnus-score-decay-scale'." - (let ((n (- score - (* (if (< score 0) -1 1) - (min (abs score) - (max gnus-score-decay-constant - (* (abs score) - gnus-score-decay-scale))))))) - (if (and (featurep 'xemacs) - ;; XEmacs's floor can handle only the floating point - ;; number below the half of the maximum integer. - (> (abs n) (lsh -1 -2))) - (string-to-number - (car (split-string (number-to-string n) "\\."))) - (floor n)))) + (floor (- score + (* (if (< score 0) -1 1) + (min (abs score) + (max gnus-score-decay-constant + (* (abs score) + gnus-score-decay-scale))))))) (defun gnus-decay-scores (alist day) "Decay non-permanent scores in ALIST." |