From: tsuchiya <tsuchiya>
Date: Tue, 6 Aug 2002 08:39:37 +0000 (+0000)
Subject: * lisp/gnus-namazu.el (gnus-namazu-need-path-normalization): Change its default value.
X-Git-Tag: t-gnus-6_15_8-00-quimby~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=69bd0a656274b4380430964d7416dedb56692161;p=elisp%2Fgnus.git-

* lisp/gnus-namazu.el (gnus-namazu-need-path-normalization): Change its default value.
(gnus-namazu/normalize-results): Remove `file://' prefix.
---

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:/"))