X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-score.el;h=4840af1281fd71faad1acc6394bad0274f75f4ae;hp=4a47b738134dda22a90e3f83b530a10eebb20ee0;hb=829fe7e073a13eaf991e04e90b1e731b1ccce0c2;hpb=d6d90fbbda04a990e100832c709d6c746d872aa3

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index 4a47b7381..4840af128 100644
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -1,6 +1,6 @@
 ;;; gnus-score.el --- scoring code for Gnus
 
-;; Copyright (C) 1995-2012 Free Software Foundation, Inc.
+;; Copyright (C) 1995-2015 Free Software Foundation, Inc.
 
 ;; Author: Per Abrahamsen <amanda@iesd.auc.dk>
 ;;	Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -626,7 +626,7 @@ current score file."
 	      (if mimic
 		  (progn
 		    (sit-for 1) (message "%c %c-" prefix hchar))
-		(message "%s header '%s' with match type (%s?): "
+		(message "%s header `%s' with match type (%s?): "
 			 (if increase "Increase" "Lower")
 			 (nth 1 entry)
 			 (mapconcat (lambda (s) (char-to-string (car s)))
@@ -1071,10 +1071,15 @@ EXTRA is the possible non-standard header."
 	(push (cons article n) gnus-newsgroup-scored)))
     (gnus-summary-update-line)))
 
-(defun gnus-summary-current-score ()
-  "Return the score of the current article."
-  (interactive)
-  (gnus-message 1 "%s" (gnus-summary-article-score)))
+(defun gnus-summary-current-score (arg)
+  "Return the score of the current article.
+  With prefix ARG, return the total score of the current (sub)thread."
+  (interactive "P")
+  (gnus-message 1 "%s" (if arg
+			   (gnus-thread-total-score
+			    (gnus-id-to-thread
+			     (mail-header-id (gnus-summary-article-header))))
+			   (gnus-summary-article-score))))
 
 (defun gnus-score-change-score-file (file)
   "Change current score alist."