From: hayashi Date: Tue, 6 Oct 1998 03:17:33 +0000 (+0000) Subject: Choose Japanese or English when reading Info. X-Git-Tag: gnus-6_8-199811302358~77 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=55c5e2489fef9a0e512d8ff4af48c49a631ff82e;p=elisp%2Fgnus.git- Choose Japanese or English when reading Info. --- diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 95a3527..8c73a33 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -711,6 +711,8 @@ prompt the user for the name of an NNTP server to use." (gnus-group-first-unread-group) (gnus-configure-windows 'group) (gnus-group-set-mode-line) + ;; For reading Info. + (set-language-info "Japanese" 'gnus-info "gnus-ja") (gnus-run-hooks 'gnus-started-hook)))))) (defun gnus-start-draft-setup () diff --git a/lisp/gnus.el b/lisp/gnus.el index 1d6138f..aef3dab 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1490,14 +1490,24 @@ want." semi-gnus-ja@meadow.scphys.kyoto-u.ac.jp (In Japanese);" "The mail address of the Semi-gnus developers.") +(defcustom gnus-info-filename nil + "*Controls language of gnus Info. +If nil and current-language-environment is Japanese, go to gnus-ja. +Otherwise go to corresponding Info. +This variable can be nil, gnus or gnus-ja." + :group 'gnus-start + :type '(choice (const nil) + (const :tag "English" gnus) + (const :tag "Japanese" gnus-ja))) + (defvar gnus-info-nodes - '((gnus-group-mode "(gnus)The Group Buffer") - (gnus-summary-mode "(gnus)The Summary Buffer") - (gnus-article-mode "(gnus)The Article Buffer") - (mime/viewer-mode "(gnus)The Article Buffer") - (gnus-server-mode "(gnus)The Server Buffer") - (gnus-browse-mode "(gnus)Browse Foreign Server") - (gnus-tree-mode "(gnus)Tree Display")) + '((gnus-group-mode "The Group Buffer") + (gnus-summary-mode "The Summary Buffer") + (gnus-article-mode "The Article Buffer") + (mime/viewer-mode "The Article Buffer") + (gnus-server-mode "The Server Buffer") + (gnus-browse-mode "Browse Foreign Server") + (gnus-tree-mode "Tree Display")) "Alist of major modes and related Info nodes.") (defvar gnus-group-buffer "*Group*") @@ -2029,7 +2039,11 @@ If ARG, insert string at point." (interactive) ;; Enlarge info window if needed. (let (gnus-info-buffer) - (Info-goto-node (cadr (assq major-mode gnus-info-nodes))) + (Info-goto-node (format "(%s)%s" + (or gnus-info-filename + (get-language-info current-language-environment 'gnus-info) + "gnus") + (cadr (assq major-mode gnus-info-nodes)))) (setq gnus-info-buffer (current-buffer)) (gnus-configure-windows 'info)))