[mew-dist 25899] Re: mknmz

[Hideyuki SHIRAI ( 白井秀行 )]

## Windows で indexing-lang がちゃんと動くか実験していました。
## 動いたので問題なし。必然的に namazu-2.0.6 以降のみサポートと
## なります。

From: Shun-ichi TAHARA (田原 俊一) <jado at example.com> さん曰く
Subject: [mew-dist 25898] Re: mknmz
Message-ID: <20050107.174245.1071434512.jado at example.com>
Date: Fri, 07 Jan 2005 17:42:45 +0900 (JST)

> ロケールはあくまで表示のためのパラメータで、実際のデータの言語を規定す
> る Emacs の current-language-environment や mknmz の --indexing-lang
> は、LANG とは性質が違うものだと思ってます。

ぼくもこの田原さんの意見に大賛成です。

# 微妙に流行り(？)とは違うような気がしますが、ま、気にしないとい
# うことで。

ついでに、namazu にも argument を設定できるようにしました。使い
道は
(setq mew-nmz-prog-args '("--config=/home/hoge/Namazu/namazurc"))
とかぐらいかな。namazu の方の LANG は表示だけの違いだと思いまし
たので、通常の mew-nmz には関係ないでしょう。

-- 
白井秀行 (mailto:shirai at example.com)

Index: mew-nmz.el
===================================================================
RCS file: /cvsmew/mew/mew-nmz.el,v
retrieving revision 1.13
diff -u -u -r1.13 mew-nmz.el
--- mew-nmz.el	7 Jan 2005 04:31:03 -0000	1.13
+++ mew-nmz.el	7 Jan 2005 09:09:34 -0000
@@ -37,6 +37,11 @@
   :group 'mew-nmz
   :type 'string)
 
+(defcustom mew-nmz-prog-args nil
+  "*Namazu's arguments."
+  :group 'mew-nmz
+  :type '(repeat string))
+
 (defcustom mew-nmz-prog-mknmz "mknmz"
   "*Namazu make index program."
   :group 'mew-nmz
@@ -288,14 +293,19 @@
 	(setq continue t))
        ((and flddir nmzdir (file-directory-p flddir))
 	(setq args (delq nil
-			 (list "--no-encode-uri" "--mailnews"
-			       (when (and incfile (file-exists-p incfile))
-				 (format "--include=%s" incfile))
-			       "--allow=^[0-9]+$"
-			       (format "--exclude=%s"
-				       (expand-file-name "[^/]+/" flddir))
-			       (format "--output-dir=%s" nmzdir)
-			       flddir)))
+			 (append args
+				 (list "--no-encode-uri" "--mailnews"
+				       (when (and (boundp 'current-language-environment)
+						  (string= current-language-environment
+							   "Japanese"))
+					 "--indexing-lang=ja")
+				       (when (and incfile (file-exists-p incfile))
+					 (format "--include=%s" incfile))
+				       "--allow=^[0-9]+$"
+				       (format "--exclude=%s"
+					       (expand-file-name "[^/]+/" flddir))
+				       (format "--output-dir=%s" nmzdir)
+				       flddir))))
 	(unless (file-directory-p nmzdir)
 	  (mew-make-directory nmzdir))
 	(when remove
@@ -1059,9 +1069,10 @@
       (while (and nmzdirs
 		  (or (not catch)
 		      (and catch (null intmsgs))))
-	(setq prog-args (append (list "--all" "--list" "--no-decode-uri")
-				(list pattern)
-				(car nmzdirs)))
+	(setq prog-args (delq nil (append mew-nmz-prog-args
+					  (list "--all" "--list" "--no-decode-uri")
+					  (list pattern)
+					  (car nmzdirs))))
 	(erase-buffer)
 	(mew-piolet
 	 mew-cs-text-for-read mew-cs-text-for-write