Function: gnus-score-add-followups

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

Signature

(gnus-score-add-followups HEADER SCORE SCORES &optional THREAD)

Documentation

Add a score entry to the adapt file.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-score.el.gz
(defun gnus-score-add-followups (header score scores &optional thread)
  "Add a score entry to the adapt file."
  (with-current-buffer gnus-summary-buffer
    (let* ((id (mail-header-id header))
	   (scores (car scores))
	   entry dont)
      ;; Don't enter a score if there already is one.
      (while (setq entry (pop scores))
	(and (equal "references" (car entry))
	     (or (null (nth 3 (cadr entry)))
		 (eq 's (nth 3 (cadr entry))))
	     (assoc id entry)
	     (setq dont t)))
      (unless dont
	(gnus-summary-score-entry
	 (if thread "thread" "references")
	 id 's score (current-time-string) nil t)))))