From d208d5ba34e838464e525b232cf690ef5d7bb0f3 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Tue, 1 Jul 2008 20:17:41 +0000 Subject: [PATCH] (gnus-score-find-trace): Add "Total score" line. --- lisp/ChangeLog | 4 ++++ lisp/gnus-score.el | 3 +++ 2 files changed, 7 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ebae060d4..1b9bbfb6b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-07-01 Rupert Swarbrick (tiny change) + + * gnus-score.el (gnus-score-find-trace): Add "Total score" line. + 2008-06-16 Katsumi Yamaoka * dgnushack.el: Autoload get-display-table and put-display-table for diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index 599c8b019..1390db3ac 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -2467,6 +2467,9 @@ score in `gnus-newsgroup-scored' by SCORE." ;; .ADAPT directly: (file-name-nondirectory file) (abbreviate-file-name file)))) + (insert + (format "\nTotal score: %d" + (apply '+ (mapcar 'caddr trace)))) (insert "\n\nQuick help: -- 2.25.1