Changes committed gnus/lisp (ChangeLog gnus-score.el)

"Reiner Steib" <[email protected]> Tue, 01 Jul 2008 22:17:42 +0200
Newsgroups gmane.emacs.gnus.commits
Message-ID <[email protected]>
Modified: ChangeLog gnus-score.el

(gnus-score-find-trace): Add "Total score" line.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1883 gnus/lisp/ChangeLog:7.1884
--- ChangeLog:7.1883	Mon Jun 16 02:03:09 2008
+++ ChangeLog	Tue Jul  1 22:17:41 2008
@@ -1,3 +1,7 @@
+2008-07-01  Rupert Swarbrick <[email protected]>  (tiny change)
+
+	* gnus-score.el (gnus-score-find-trace): Add "Total score" line.
+
 2008-06-16  Katsumi Yamaoka  <[email protected]>
 
 	* dgnushack.el: Autoload get-display-table and put-display-table for
Index: gnus-score.el
diff -u gnus/lisp/gnus-score.el:7.39 gnus/lisp/gnus-score.el:7.40
--- gnus-score.el:7.39	Mon May 19 10:47:42 2008
+++ gnus-score.el	Tue Jul  1 22:17:41 2008
@@ -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,