Fix gnus-group-mode-map breakage from previous patch

* lisp/gnus/gnus-group.el (:keymap): Restore gnus-group-list-map
key strokes to the correct location.

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 7c879741cf18410cf2c664938a5b3854eccac60a..2a4c84c94b0ab9b355f5ff447c2184e935d367c8 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -718,46 +718,46 @@ simple manner."
         "l" #'gnus-group-list-level
         "c" #'gnus-group-list-cached
         "?" #'gnus-group-list-dormant
-        "!" #'gnus-group-list-ticked)
-
-  "/" (define-keymap :prefix 'gnus-group-list-limit-map
-        "k" #'gnus-group-list-limit
-        "z" #'gnus-group-list-limit
-        "s" #'gnus-group-list-limit
-        "u" #'gnus-group-list-limit
-        "A" #'gnus-group-list-limit
-        "m" #'gnus-group-list-limit
-        "M" #'gnus-group-list-limit
-        "l" #'gnus-group-list-limit
-        "c" #'gnus-group-list-limit
-        "?" #'gnus-group-list-limit
-        "!" #'gnus-group-list-limit)
-
-  "f" (define-keymap :prefix 'gnus-group-list-flush-map
-        "k" #'gnus-group-list-flush
-        "z" #'gnus-group-list-flush
-        "s" #'gnus-group-list-flush
-        "u" #'gnus-group-list-flush
-        "A" #'gnus-group-list-flush
-        "m" #'gnus-group-list-flush
-        "M" #'gnus-group-list-flush
-        "l" #'gnus-group-list-flush
-        "c" #'gnus-group-list-flush
-        "?" #'gnus-group-list-flush
-        "!" #'gnus-group-list-flush)
-
-  "p" (define-keymap :prefix 'gnus-group-list-plus-map
-        "k" #'gnus-group-list-plus
-        "z" #'gnus-group-list-plus
-        "s" #'gnus-group-list-plus
-        "u" #'gnus-group-list-plus
-        "A" #'gnus-group-list-plus
-        "m" #'gnus-group-list-plus
-        "M" #'gnus-group-list-plus
-        "l" #'gnus-group-list-plus
-        "c" #'gnus-group-list-plus
-        "?" #'gnus-group-list-plus
-        "!" #'gnus-group-list-plus)
+        "!" #'gnus-group-list-ticked
+
+        "/" (define-keymap :prefix 'gnus-group-list-limit-map
+              "k" #'gnus-group-list-limit
+              "z" #'gnus-group-list-limit
+              "s" #'gnus-group-list-limit
+              "u" #'gnus-group-list-limit
+              "A" #'gnus-group-list-limit
+              "m" #'gnus-group-list-limit
+              "M" #'gnus-group-list-limit
+              "l" #'gnus-group-list-limit
+              "c" #'gnus-group-list-limit
+              "?" #'gnus-group-list-limit
+              "!" #'gnus-group-list-limit)
+
+        "f" (define-keymap :prefix 'gnus-group-list-flush-map
+              "k" #'gnus-group-list-flush
+              "z" #'gnus-group-list-flush
+              "s" #'gnus-group-list-flush
+              "u" #'gnus-group-list-flush
+              "A" #'gnus-group-list-flush
+              "m" #'gnus-group-list-flush
+              "M" #'gnus-group-list-flush
+              "l" #'gnus-group-list-flush
+              "c" #'gnus-group-list-flush
+              "?" #'gnus-group-list-flush
+              "!" #'gnus-group-list-flush)
+
+        "p" (define-keymap :prefix 'gnus-group-list-plus-map
+              "k" #'gnus-group-list-plus
+              "z" #'gnus-group-list-plus
+              "s" #'gnus-group-list-plus
+              "u" #'gnus-group-list-plus
+              "A" #'gnus-group-list-plus
+              "m" #'gnus-group-list-plus
+              "M" #'gnus-group-list-plus
+              "l" #'gnus-group-list-plus
+              "c" #'gnus-group-list-plus
+              "?" #'gnus-group-list-plus
+              "!" #'gnus-group-list-plus))
 
   "W" (define-keymap :prefix 'gnus-group-score-map
         "f" #'gnus-score-flush-cache