Function: gnus-score-followup-article
gnus-score-followup-article is an autoloaded, interactive and
byte-compiled function defined in gnus-score.el.gz.
Signature
(gnus-score-followup-article &optional SCORE)
Documentation
Add SCORE to all followups to the article in the current buffer.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/gnus/gnus-score.el.gz
(defun gnus-score-followup-article (&optional score)
"Add SCORE to all followups to the article in the current buffer."
(interactive "P" gnus-article-mode gnus-summary-mode)
(setq score (gnus-score-delta-default score))
(when (gnus-buffer-live-p gnus-summary-buffer)
(save-excursion
(save-restriction
(message-narrow-to-headers)
(let ((id (mail-fetch-field "message-id")))
(when id
(set-buffer gnus-summary-buffer)
(gnus-summary-score-entry
"references" (concat id "[ \t]*$") 'r
score (current-time-string) nil t)))))))