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

Modified: ChangeLog gnus-score.el

(gnus-score-find-trace): Handle default score in total score calculation
correctly.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1931 gnus/lisp/ChangeLog:7.1932
--- ChangeLog:7.1931	Tue Nov 11 15:38:16 2008
+++ ChangeLog	Mon Nov 24 21:15:36 2008
@@ -1,3 +1,8 @@
+2008-11-24  Reiner Steib  <[email protected]>
+
+	* gnus-score.el (gnus-score-find-trace): Handle default score in total
+	score calculation correctly.
+
 2008-11-11  Teodor Zlatanov  <[email protected]>
 
 	* nnrss.el (nnrss-make-hash-index): Debug message of full item.
@@ -1696,7 +1701,7 @@
 	* gnus-uu.el (gnus-uu-yenc-article): Use insert-buffer-substring.
 
 	* gnus-art.el, gnus-spec.el, gnus-sum.el, gnus-util.el:
-	* message.el, mm-view.el, sieve-manage, smime.el:
+	* message.el, mm-view.el, sieve-manage.el, smime.el:
 	Add declare-function compatibility definition.
 
 	* gnus-art.el (w3-region, w3m-region, Info-menu):
@@ -2075,10 +2080,6 @@
 	message-send-mail-function.  Adjust doc string.
 	(message-send-mail-with-mailclient): New function.
 
-2007-11-17  Richard Stallman  <[email protected]>
-
-	* assistant.el: Remove file.
-
 2007-11-16  Dan Nicolaescu  <[email protected]>
 
 	* smime.el (from):
Index: gnus-score.el
diff -u gnus/lisp/gnus-score.el:7.40 gnus/lisp/gnus-score.el:7.41
--- gnus-score.el:7.40	Tue Jul  1 22:17:41 2008
+++ gnus-score.el	Mon Nov 24 21:15:36 2008
@@ -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: