diff options
| author | Miles Bader <miles@gnu.org> | 2008-12-06 17:26:18 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2008-12-06 17:26:18 +0000 |
| commit | 030cca007e151c7bb58ae1b241e5968d7e0602af (patch) | |
| tree | 548da45ed1a29c9debe904124aca88bb5fc6a06a /lisp/gnus/gnus-score.el | |
| parent | 56f37e53c9713f1ff3823bfd649cf2c9827d6068 (diff) | |
| download | emacs-030cca007e151c7bb58ae1b241e5968d7e0602af.tar.gz | |
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1490
Diffstat (limited to 'lisp/gnus/gnus-score.el')
| -rw-r--r-- | lisp/gnus/gnus-score.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el index 1390db3acd0..7f936bae333 100644 --- a/lisp/gnus/gnus-score.el +++ b/lisp/gnus/gnus-score.el @@ -2469,7 +2469,11 @@ score in `gnus-newsgroup-scored' by SCORE." (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: |