* gnus-score.el (gnus-score-edit-all-score): New.

* gnus-group.el (gnus-group-score-map): Bind it to W e.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b2ed4f9..0a82c4a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-12-28  Simon Josefsson  <jas@extundo.com>
+
+       * gnus-score.el (gnus-score-edit-all-score): New.
+       * gnus-group.el (gnus-group-score-map): Bind it to W e.
+
 2004-01-04  Simon Josefsson  <jas@extundo.com>
 
        * password.el: Add.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 5aa619c..4b0b02d 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1,5 +1,5 @@
 ;;; gnus-group.el --- group mode commands for Gnus
-;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
+;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -711,7 +711,8 @@ simple manner.")
   "?"  gnus-group-list-plus)
 
 (gnus-define-keys (gnus-group-score-map "W" gnus-group-mode-map)
-  "f" gnus-score-flush-cache)
+  "f" gnus-score-flush-cache
+  "e" gnus-score-edit-all-score)
 
 (gnus-define-keys (gnus-group-help-map "H" gnus-group-mode-map)
   "c" gnus-group-fetch-charter

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index f307539..3f5e2a5 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -1,5 +1,5 @@
 ;;; gnus-score.el --- scoring code for Gnus
-;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Per Abrahamsen <amanda@iesd.auc.dk>
@@ -1088,6 +1088,11 @@ EXTRA is the possible non-standard header."
      4 (substitute-command-keys
        "\\<gnus-score-mode-map>\\[gnus-score-edit-exit] to save edits"))))
 
+(defun gnus-score-edit-all-score (file)
+  "Edit the all.SCORE file."
+  (interactive)
+  (find-file (gnus-score-file-name "all")))
+
 (defun gnus-score-edit-file (file)
   "Edit a score file."
   (interactive