[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-score.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     08/07/04 00:07:47

Index: lisp/gnus/gnus-score.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-score.el,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- lisp/gnus/gnus-score.el     6 May 2008 03:54:59 -0000       1.37
+++ lisp/gnus/gnus-score.el     4 Jul 2008 00:07:46 -0000       1.38
@@ -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,