Lines Matching defs:score
33 (require 'gnus-score)
61 (defun gnus-score-advanced (rule &optional trace)
63 (let (new-score score multiple)
65 (when (setq multiple (gnus-advanced-score-rule (car rule)))
66 (setq new-score (or (nth 1 rule)
67 gnus-score-interactive-default-score))
69 (setq new-score (* multiple new-score)))
70 ;; This rule was successful, so we add the score to this
72 (if (setq score (assq (mail-header-number gnus-advanced-headers)
74 (setcdr score
75 (+ (cdr score) new-score))
77 new-score)
81 ;; Must be synced with `gnus-score-edit-file-at-point'.
82 gnus-score-trace)))))))
84 (defun gnus-advanced-score-rule (rule)
94 (gnus-advanced-score-rule (car rule)))
104 (not (gnus-advanced-score-rule (car rule))))
110 (not (gnus-advanced-score-rule (nth 1 rule))))
125 (gnus-advanced-score-rule (nth 1 rule)))))
128 (gnus-advanced-score-article rule))
131 (error "Unknown advanced score type: %s" rule)))))
133 (defun gnus-advanced-score-article (rule)
134 ;; `rule' is a semi-normal score rule, so we find out what function
140 ;; Call the score function.
165 (error "No such integer score type: %s" type)
180 (error "No such date score type: %s" type)))))