(gnus-namazu-index-directory): Abolished.
authortsuchiya <tsuchiya>
Wed, 5 Dec 2001 14:08:14 +0000 (14:08 +0000)
committertsuchiya <tsuchiya>
Wed, 5 Dec 2001 14:08:14 +0000 (14:08 +0000)
(gnus-namazu-index-directories): New option.
(gnus-namazu-coding-system): Changed the default value for Windows
and OS/2.
(gnus-namazu/setup): Follow the abolition of
`gnus-namazu-index-directory'.
(gnus-namazu/normalize-results): New inline function.
(gnus-namazu/call-namazu): Set `file-name-coding-system' and
`pathname-coding-system' to handle querys which include multibyte
characters.  Not reset locale environments.  Refer
`gnus-namazu-locale' and `gnus-namazu-index-directories'.
(gnus-namazu/search): Call `gnus-namazu/normalize-results'.
Modify a regular expression.
(gnus-namazu/get-target-groups): Modify a regular expression.
(gnus-namazu/get-current-query): Ditto.
(gnus-namazu/truncate-article-list): Ditto.

ChangeLog
lisp/gnus-namazu.el

index 819d6b8..09fcf54 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,22 @@
+2001-12-05  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
+
+       * lisp/gnus-namazu.el (gnus-namazu-index-directory): Abolished.
+       (gnus-namazu-index-directories): New option.
+       (gnus-namazu-coding-system): Changed the default value for Windows
+       and OS/2.
+       (gnus-namazu/setup): Follow the abolition of
+       `gnus-namazu-index-directory'.
+       (gnus-namazu/normalize-results): New inline function.
+       (gnus-namazu/call-namazu): Set `file-name-coding-system' and
+       `pathname-coding-system' to handle querys which include multibyte
+       characters.  Not reset locale environments.  Refer
+       `gnus-namazu-locale' and `gnus-namazu-index-directories'.
+       (gnus-namazu/search): Call `gnus-namazu/normalize-results'.
+       Modify a regular expression.
+       (gnus-namazu/get-target-groups): Modify a regular expression.
+       (gnus-namazu/get-current-query): Ditto.
+       (gnus-namazu/truncate-article-list): Ditto.
+
 2001-12-03  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/mm-url.el: Require `path-util'.
@@ -21,7 +40,7 @@
        * lisp/message.el (message-strip-special-text-properties): Default
        to t because of the new function `message-tamago-not-in-use-p'.
 
-2001-11-26  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+2001-11-26  Kai Gro\e.A\eN_johann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * make-x.bat: Use parameter "/copy" rather than "copy" for increased
        dwimishness for old-time DOS users.  From Frank Schmitt
 
        * lisp/message.el (rfc822-goto-eoh): Remove.
 
-2001-10-19  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+2001-10-19  Kai Gro\eN_johann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
        From Frank Schmitt <ich@Frank-Schmitt.net>.
 
        * make-x.bat: Use correct directory structure for XEmacs on Windows.
 
        * configure.in: Generate texi/ps/Makefile.
 
-2001-09-21  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+2001-09-21  Kai Gro\eN_johann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * make.bat: Use parameter "/copy" rather than "copy" for increased
        dwimishness for old-time DOS users.
index 67d3337..53e7023 100644 (file)
 ;;       % mknmz -a -h -O ~/News/namazu ~/Mail
 ;;
 ;; Furthermore, put these expressions to your ~/.gnus, to set the path
-;; of the index files to `gnus-namazu-index-directory'.
+;; of the index files to `gnus-namazu-index-directories'.
 ;;
-;;       (setq gnus-namazu-index-directory (expand-file-name "~/News/namazu"))
+;;    (setq gnus-namazu-index-directories
+;;          (list (expand-file-name "~/News/namazu")))
 
 ;; If you would like to use this module in Gnus (not T-gnus), put this
 ;; file into the lisp/ directory in the Gnus source tree and run `make
 ;; install'.  And then, put the following expressions into your ~/.gnus.
 ;;
-;;      (require 'gnus-namazu)
-;;       (gnus-namazu-insinuate)
+;;    (require 'gnus-namazu)
+;;    (gnus-namazu-insinuate)
 
 
 ;;; Usage:
 (eval-and-compile
   (autoload 'regexp-opt "regexp-opt"))
 
+;; To suppress byte-compile warning.
+(eval-when-compile
+  (defvar nnml-directory)
+  (defvar nnmh-directory))
+
 (defgroup gnus-namazu nil
   "Search nnmh and nnml groups in Gnus with Namazu."
   :group 'namazu
   :type '(repeat gnus-select-method)
   :group 'gnus-namazu)
 
-(defcustom gnus-namazu-index-directory
-  (if (boundp 'nnir-namazu-index-directory)
-      (symbol-value 'nnir-namazu-index-directory)
-    (expand-file-name "namazu" gnus-directory))
+(defcustom gnus-namazu-index-directories
+  (list
+   (cond
+    ((boundp 'nnir-namazu-index-directory)
+     (symbol-value 'nnir-namazu-index-directory))
+    ((boundp 'gnus-namazu-index-directory)
+     (symbol-value 'gnus-namazu-index-directory))
+    (t
+     (expand-file-name "namazu" gnus-directory))))
   "*Index directory of Namazu."
-  :type 'directory
+  :type '(repeat directory)
   :group 'gnus-namazu)
 
 (defcustom gnus-namazu-command
@@ -115,7 +126,9 @@ options make any sense in this context."
   :group 'gnus-namazu)
 
 (defcustom gnus-namazu-coding-system
-  (if (>= emacs-major-version 20) 'euc-japan '*euc-japan*)
+  (if (memq system-type '(windows-nt OS/2 emx))
+      (if (>= emacs-major-version 20) 'shift_jis '*sjis*)
+    (if (>= emacs-major-version 20) 'euc-japan '*euc-japan*))
   "*Coding system for Namazu process."
   :type 'coding-system
   :group 'gnus-namazu)
@@ -138,17 +151,16 @@ options make any sense in this context."
                              gnus-secondary-select-methods)))))
   (unless gnus-namazu-indexed-servers
     (error "%s" "Can't find either nnml backend or nnmh backend"))
-  (unless (and (stringp gnus-namazu-index-directory)
-              (file-directory-p gnus-namazu-index-directory)
-              (file-readable-p
-               (expand-file-name "NMZ.i" gnus-namazu-index-directory)))
-    (error "%s" "Can't find index.  Check `gnus-namazu-index-directory'")))
-
-
-;; To suppress byte-compile warning.
-(eval-when-compile
-  (defvar nnml-directory)
-  (defvar nnmh-directory))
+  (when (or (not gnus-namazu-index-directories)
+           (memq nil (mapcar
+                      (lambda (dir)
+                        (and (stringp dir)
+                             (file-directory-p dir)
+                             (file-readable-p
+                              (expand-file-name "NMZ.i" dir))
+                             dir))
+                      gnus-namazu-index-directories)))
+    (error "%s" "Can't find index.  Check `gnus-namazu-index-directories'")))
 
 (defun gnus-namazu/server-directory (server)
   "Return the top directory of articles in SERVER."
@@ -159,21 +171,27 @@ options make any sense in this context."
                              nnml-directory
                            nnmh-directory)))))
 
-
 ;;; Functions to call Namazu.
+(defsubst gnus-namazu/normalize-results ()
+  (goto-char (point-min))
+  (while (not (eobp))
+    (cond
+     ((eq ?~ (char-after (point)))
+      (insert (expand-file-name (buffer-substring (gnus-point-at-bol)
+                                                 (gnus-point-at-eol))))
+      (delete-region (point) (gnus-point-at-eol)))
+     ((and (eq system-type 'windows-nt)
+          (looking-at "/\\(.\\)|/"))
+      (replace-match "\\1:/")))
+    (forward-line 1)))
+
 (defsubst gnus-namazu/call-namazu (query)
   (let ((coding-system-for-read gnus-namazu-coding-system)
        (coding-system-for-write gnus-namazu-coding-system)
        (default-process-coding-system
          (cons gnus-namazu-coding-system gnus-namazu-coding-system))
-       (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")
+       (file-name-coding-system gnus-namazu-coding-system)
+       (pathname-coding-system gnus-namazu-coding-system))
     (apply 'call-process
           `(,gnus-namazu-command
             nil                        ; input from /dev/null
@@ -184,7 +202,7 @@ options make any sense in this context."
             "-l"                       ; use list format
             ,@gnus-namazu-additional-arguments
             ,query
-            ,gnus-namazu-index-directory))))
+            ,@gnus-namazu-index-directories))))
 
 (defun gnus-namazu/search (groups query)
   (with-temp-buffer
@@ -200,6 +218,7 @@ options make any sense in this context."
                       gnus-namazu-indexed-servers))))
             (topdir-regexp
              (regexp-opt (mapcar 'car server-alist) t)))
+       (gnus-namazu/normalize-results)
        (goto-char (point-min))
        (while (not (eobp))
          (let (server group file)
@@ -207,7 +226,7 @@ options make any sense in this context."
                 (setq server (cdr (assoc (match-string 1) server-alist))
                       file (buffer-substring-no-properties
                             (match-end 0) (point-at-eol)))
-                (string-match "/\\([0-9]+\\)$" file)
+                (string-match "/\\([0-9]+\\)\\'" file)
                 (progn
                   (setq group (substring file 0 (match-beginning 0))
                         file (match-string 1 file))
@@ -238,7 +257,7 @@ options make any sense in this context."
     (if current-prefix-arg
        (list (gnus-read-group "Group: "))
       (if (and (gnus-ephemeral-group-p gnus-newsgroup-name)
-              (string-match "^nnvirtual:namazu-search" gnus-newsgroup-name))
+              (string-match "\\`nnvirtual:namazu-search" gnus-newsgroup-name))
          (cadr (assq 'gnus-namazu-target-groups
                      (gnus-info-method (gnus-get-info gnus-newsgroup-name))))
        (list gnus-newsgroup-name))))))
@@ -246,7 +265,7 @@ options make any sense in this context."
 (defun gnus-namazu/get-current-query ()
   (and (eq major-mode 'gnus-summary-mode)
        (gnus-ephemeral-group-p gnus-newsgroup-name)
-       (string-match "^nnvirtual:namazu-search" gnus-newsgroup-name)
+       (string-match "\\`nnvirtual:namazu-search" gnus-newsgroup-name)
        (cadr (assq 'gnus-namazu-current-query
                   (gnus-info-method (gnus-get-info gnus-newsgroup-name))))))
 
@@ -375,7 +394,7 @@ options make any sense in this context."
                  "Too many articles were retrieved.  How many articles (max %d): "
                  hit)
                 (cons (number-to-string gnus-large-newsgroup) 0)))))
-       (unless (string-match "^[ \t]*$" input)
+       (unless (string-match "\\`[ \t]*\\'" input)
          (setcdr (nthcdr (min (1- (string-to-number input)) hit) articles)
                  nil))))
     articles))