* lisp/gnus-namazu.el (gnus-namazu-need-path-normalization): New option.

(gnus-namazu/normalize-results): Refined.

diff --git a/ChangeLog b/ChangeLog
index 09fcf54..da791ae 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2001-12-05  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
+       * lisp/gnus-namazu.el (gnus-namazu-need-path-normalization): New
+       option.
+       (gnus-namazu/normalize-results): Refined.
+
        * 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

diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el
index 53e7023..ad12933 100644 (file)
--- a/lisp/gnus-namazu.el
+++ b/lisp/gnus-namazu.el
@@ -133,6 +133,12 @@ options make any sense in this context."
   :type 'coding-system
   :group 'gnus-namazu)
 
+(defcustom gnus-namazu-need-path-normalization
+  (eq system-type 'windows-nt)
+  "*Non-nil means that outputs of namazu may contain a not normalized path."
+  :type 'boolean
+  :group 'gnus-namazu)
+
 
 (defmacro gnus-namazu/make-article (group number)
   `(cons ,group ,number))
@@ -175,14 +181,13 @@ options make any sense in this context."
 (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))))
+    (when (if gnus-namazu-need-path-normalization
+             (or (not (looking-at "/\\(.\\)|/"))
+                 (replace-match "\\1:/"))
+           (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)