From 86b35a3760cb69dbcac3cdbc9470dc9338ac29b4 Mon Sep 17 00:00:00 2001
From: tsuchiya <tsuchiya>
Date: Thu, 6 Dec 2001 03:31:29 +0000
Subject: [PATCH] * lisp/gnus-namazu.el (gnus-namazu-need-path-normalization):
 New option. (gnus-namazu/normalize-results): Refined.

---
 ChangeLog           |    4 ++++
 lisp/gnus-namazu.el |   19 ++++++++++++-------
 2 files changed, 16 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 09fcf54..da791ae 100644
--- 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
--- 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)
-- 
1.7.10.4