* gnus-clfns.el (coerce, copy-list, merge, string, subseq): Comment out those

[elisp/gnus.git-] / lisp / nnir.el

diff --git a/lisp/nnir.el b/lisp/nnir.el
index ac7b08f..846db89 100644 (file)
--- a/lisp/nnir.el
+++ b/lisp/nnir.el
@@ -1,8 +1,6 @@
 ;;; nnir.el --- search mail with various search engines
 ;; Copyright (C) 1998 Kai Großjohann
 
-;; $Id: nnir.el,v 1.72 2001/08/17 11:15:13 grossjoh Exp $
-
 ;; Author: Kai Großjohann <grossjohann@ls6.cs.uni-dortmund.de>
 ;; Keywords: news, mail, searching, ir, glimpse, wais
 
@@ -287,7 +285,7 @@
 
 ;;; Setup Code:
 
-(defconst nnir-version "$Id: nnir.el,v 1.72 2001/08/17 11:15:13 grossjoh Exp $"
+(defconst nnir-version "1.72"
   "Version of NNIR.")
 
 (require 'cl)
@@ -1242,11 +1240,7 @@ Tested with Namazu 2.0.6 on a GNU/Linux system."
              (exitstatus
              (let ((process-environment (copy-sequence process-environment)))
                ;; Disable locale.
-               (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")
+               (setenv "LC_ALL" "C")
                 (message "%s args: %s" nnir-namazu-program
                          (mapconcat 'identity (cddddr cp-list) " "))
                (apply 'call-process cp-list))))