From: tsuchiya <tsuchiya>
Date: Tue, 4 Sep 2001 15:01:46 +0000 (+0000)
Subject: * lisp/nnir.el (top): Added code to avoid byte-compile warning
X-Git-Tag: semi-gnus~40
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2779de7b9959298ae78c060d7d3fd3aabf90e090;p=elisp%2Fgnus.git-

* lisp/nnir.el (top): Added code to avoid byte-compile warning
about `nnimap-server-buffer'.
(nnir-run-namazu): Disable locale of Namazu.
---

diff --git a/ChangeLog b/ChangeLog
index 161caed..5e57118 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-04  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
+
+	* lisp/nnir.el (top): Added code to avoid byte-compile warning
+	about `nnimap-server-buffer'.
+	(nnir-run-namazu): Disable locale of Namazu.
+
 2001-09-04  KOSEKI Yoshinori  <kose@meadowy.org>
 
 	* lisp/nnir.el (gnus-group-mode-hook): Fix typo.
diff --git a/lisp/nnir.el b/lisp/nnir.el
index fb76a79..dd98d5b 100644
--- a/lisp/nnir.el
+++ b/lisp/nnir.el
@@ -962,6 +962,9 @@ pairs (also vectors, actually)."
 ;; send queries as literals
 ;; handle errors
 
+(eval-when-compile
+  (defvar nnimap-server-buffer))
+
 (defun nnir-run-imap (query &optional group)
   (require 'imap)
   (require 'nnimap)
@@ -1214,13 +1217,17 @@ Tested with Namazu 2.0.6 on a GNU/Linux system."
                  ,nnir-namazu-index-directory ; index directory
                  ))
              (exitstatus
-              (progn
+	      (let ((process-environement process-environment))
+		;; Disable locale of Namazu.
+		(dolist (env process-environment)
+		  (when (string-match "\
+\\`\\(L\\(ANG\\|C_\\(ALL\\|CTYPE\\|COLLATE\\|TIME\\|NUMERIC\\|MONETARY\\|MESSAGES\\)\\)\\)=" env)
+		    (setenv (match-string 1 env) nil)))
+		(setenv "LANG" "C")
                 (message "%s args: %s" nnir-namazu-program
                          (mapconcat 'identity (cddddr cp-list) " "))
-		(let ((process-environement process-environment))
-		  (setenv "LANG" "C")
-		  (apply 'call-process cp-list)))))
-        (unless (or (null exitstatus)
+		(apply 'call-process cp-list))))
+	(unless (or (null exitstatus)
                     (zerop exitstatus))
           (nnheader-report 'nnir "Couldn't run namazu: %s" exitstatus)
           ;; Namazu failure reason is in this buffer, show it if