Mercurial > emacs

diff lisp/gnus/gnus-score.el @ 100260:c663881a61c6

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-1490
author Miles Bader <miles@gnu.org>
date Sat, 06 Dec 2008 17:26:18 +0000
parents 1f27a4bf06f5
children a9dc0e7c3f2b
line wrap: on
line diff
--- a/lisp/gnus/gnus-score.el	Sat Dec 06 03:57:16 2008 +0000
+++ b/lisp/gnus/gnus-score.el	Sat Dec 06 17:26:18 2008 +0000
@@ -2469,7 +2469,11 @@
 		   (abbreviate-file-name file))))
 	(insert
 	 (format "\nTotal score: %d"
-		 (apply '+ (mapcar 'caddr trace))))
+		 (apply '+ (mapcar
+			    (lambda (s)
+			      (or (caddr s)
+				  gnus-score-interactive-default-score))
+			    trace))))
 	(insert
 	 "\n\nQuick help: