From: yamaoka <yamaoka>
Date: Wed, 22 Feb 2006 10:01:25 +0000 (+0000)
Subject: Addition.
X-Git-Tag: ngnus-0_4-doc-ja~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a8bdbc3dddafa6ea95053fa29b8d6a69ff16400d;p=elisp%2Fgnus-doc-ja.git

Addition.
---

diff --git a/README b/README
index cff329c..cd9ae73 100644
--- a/README
+++ b/README
@@ -19,6 +19,29 @@ specify the PATH environment variable if it is needed.  For example:
 
 % ./configure --with-emacs=emacs-21.4 --infodir=/usr/local/info
 
+If you prefer to read those Japanese Info manuals when typing `C-cC-i'
+in Gnus buffers or typing `M-x message-info' in message buffers, you
+can add the following advice to the ~/.gnus.el file:
+
+(defadvice Info-goto-node (around prefer-japanese-edition activate)
+  "Prefer Japanese edition of Gnus Info manuals."
+  (if (and (not (eq major-mode 'Info-mode))
+	   (string-match "\\`(\\(emacs-mime\\|gnus-coding\
+\\|gnus-faq\\|gnus\\|gnus-news\\|message\\|pgg\\|sasl\\|sieve\\))"
+			 (ad-get-arg 0)))
+      (let ((orig (ad-get-arg 0)))
+	(ad-set-arg 0 (concat (substring (ad-get-arg 0)
+					 0 (1- (match-end 0)))
+			      "-ja"
+			      (substring (ad-get-arg 0)
+					 (1- (match-end 0)))))
+	(condition-case nil
+	    ad-do-it
+	  (error
+	   (ad-set-arg 0 orig)
+	   ad-do-it)))
+    ad-do-it))
+
 Gnus version
 ============
 This package corresponds to the version of Gnus released from the Gnus
diff --git a/README.ja b/README.ja
index ccb2dd7..79fa601 100644
--- a/README.ja
+++ b/README.ja
@@ -16,6 +16,29 @@ Gnus の Info マニュアルの全訳です。No Gnus v0.4 に対応します。
 
 % ./configure --with-emacs=emacs-21.4 --infodir=/usr/local/info
 
+Gnus のバッファーで `C-c C-i' をタイプするか message バッファーで
+`M-x message-info' をタイプしたときに日本語版の Info マニュアルを読み
+たいならば、~/.gnus.el ファイルに以下の advice を加えることができます:
+
+(defadvice Info-goto-node (around prefer-japanese-edition activate)
+  "日本語版の Gnus マニュアルを優先する。"
+  (if (and (not (eq major-mode 'Info-mode))
+	   (string-match "\\`(\\(emacs-mime\\|gnus-coding\
+\\|gnus-faq\\|gnus\\|gnus-news\\|message\\|pgg\\|sasl\\|sieve\\))"
+			 (ad-get-arg 0)))
+      (let ((orig (ad-get-arg 0)))
+	(ad-set-arg 0 (concat (substring (ad-get-arg 0)
+					 0 (1- (match-end 0)))
+			      "-ja"
+			      (substring (ad-get-arg 0)
+					 (1- (match-end 0)))))
+	(condition-case nil
+	    ad-do-it
+	  (error
+	   (ad-set-arg 0 orig)
+	   ad-do-it)))
+    ad-do-it))
+
 Gnus の版
 =========
 Emacs に含まれているものではなく、Gnus タワーからリリースされる版に対