Mercurial > emacs

diff lisp/gnus/gnus-score.el @ 96498:1f27a4bf06f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--devo--0 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1309
author Miles Bader <miles@gnu.org>
date Fri, 04 Jul 2008 00:07:47 +0000
parents f42ef85caf91
children c663881a61c6
line wrap: on
line diff
--- a/lisp/gnus/gnus-score.el	Thu Jul 03 15:18:32 2008 +0000
+++ b/lisp/gnus/gnus-score.el	Fri Jul 04 00:07:47 2008 +0000
@@ -2468,6 +2468,9 @@
 		   (file-name-nondirectory file)
 		   (abbreviate-file-name file))))
 	(insert
+	 (format "\nTotal score: %d"
+		 (apply '+ (mapcar 'caddr trace))))
+	(insert
 	 "\n\nQuick help:
 
 Type `e' to edit score file corresponding to the score rule on current line,