From: yamaoka <yamaoka>
Date: Wed, 17 Dec 2003 00:56:36 +0000 (+0000)
Subject: (gnus-group-edit-group): Let the `C-c C-i' command choose the language
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5387aaa9f9ab36d215ad4381dd9d0c707e06524e;p=elisp%2Fgnus.git-

(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
--- 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
--- 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."