From 69bd0a656274b4380430964d7416dedb56692161 Mon Sep 17 00:00:00 2001
From: tsuchiya <tsuchiya>
Date: Tue, 6 Aug 2002 08:39:37 +0000
Subject: [PATCH] * lisp/gnus-namazu.el (gnus-namazu-need-path-normalization):
 Change its default value. (gnus-namazu/normalize-results):
 Remove `file://' prefix.

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

diff --git a/ChangeLog b/ChangeLog
index 9fac8b7..6fe63bb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2002-08-06  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
+	* lisp/gnus-namazu.el (gnus-namazu-need-path-normalization):
+	Change its default value.
+	(gnus-namazu/normalize-results): Remove `file://' prefix.
+
 	* texi/gnus-ja.texi (Namazu Groups): Update documents.
 
 	* lisp/gnus-namazu.el (gnus-namazu/update-p): Print error
diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el
index 83351b1..7fe511a 100644
--- a/lisp/gnus-namazu.el
+++ b/lisp/gnus-namazu.el
@@ -188,8 +188,8 @@ options make any sense in this context."
   :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."
+  (and (memq system-type '(windows-nt OS/2 emx)) t)
+  "*Non-nil means that outputs of namazu may contain drive letters."
   :type 'boolean
   :group 'gnus-namazu)
 
@@ -282,6 +282,9 @@ options make any sense in this context."
   "Normalize file names returned by Namazu in this current buffer."
   (goto-char (point-min))
   (while (not (eobp))
+    (when (looking-at "file://")
+      (delete-region (point) (match-end 0))
+      (forward-line 0))
     (when (if gnus-namazu-need-path-normalization
 	      (or (not (looking-at "/\\(.\\)|/"))
 		  (replace-match "\\1:/"))
-- 
1.7.10.4