Function: gnus-score-func

gnus-score-func is a byte-compiled function defined in gnus-score.el.gz.

Signature

(gnus-score-func SCORES &optional TRACE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-score.el.gz
(defun gnus-score-func (scores &optional trace)
  (dolist (alist scores)
    (let ((articles gnus-scores-articles)
	  (entries (assoc 'score-fn alist)))
      (dolist (score-fn (cdr entries))
	(let ((score-fn (car score-fn))
	      article-alist score fn-score)
	  (dolist (art articles)
	    (setq article-alist
		  (cl-pairlis
		   '(number subject from date id
			    refs chars lines xref extra)
		   (car art))
		  score (cdr art))
	    (when (integerp (setq fn-score (funcall score-fn
						    article-alist score)))
	      (setcdr art (+ score fn-score)))
	    (setq score (cdr art))
	    (when (and trace
		       (integerp fn-score))
	      (push (cons (car-safe (rassq alist gnus-score-cache))
			  (list score-fn fn-score))
		    gnus-score-trace))))))))