(gnus-group-edit-group): Let the `C-c C-i' command choose the language

 specific info file.

diff --git a/ChangeLog b/ChangeLog
index 5c567a1..d80852a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-12-17  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-group.el (gnus-group-edit-group): Let the `C-c C-i' command
+       choose the language specific info file.
+
 2003-12-16  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/gnus-art.el: Require `mime-image' when Emacs is running on

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 6930311..118788c 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2434,13 +2434,16 @@ and NEW-NAME will be prompted for."
     (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"))))))
+      (format "(%s)%s"
+             (or gnus-info-filename
+                 (get-language-info current-language-environment 'gnus-info)
+                 "gnus")
+             (cond ((eq part 'method)
+                    "Select Methods")
+                   ((eq part 'params)
+                    "Group Parameters")
+                   (t
+                    "Group Info")))))))
 
 (defun gnus-group-edit-group-method (group)
   "Edit the select method of GROUP."