X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-group.el;h=1ff22b642de03314a0cb7c3f39c3ed36a900d4f0;hb=afec369d127a5a8d82dc059798e3dc98721482f5;hp=f974de20236fd19c10258e9b783222af609f2d31;hpb=f92a3b85852450c96bd792017921ccdf8aa4c732;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index f974de2..1ff22b6 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2250,7 +2250,17 @@ and NEW-NAME will be prompted for."
        (t "group info"))
       (gnus-group-decoded-name group))
      `(lambda (form)
-	(gnus-group-edit-group-done ',part ,group form)))))
+	(gnus-group-edit-group-done ',part ,group form)))
+    (local-set-key
+     "\C-c\C-i"
+     (gnus-create-info-command
+      (cond
+       ((eq part 'method)
+	"(gnus)Select Methods")
+       ((eq part 'params)
+	"(gnus)Group Parameters")
+       (t
+	"(gnus)Group Info"))))))
 
 (defun gnus-group-edit-group-method (group)
   "Edit the select method of GROUP."