From: tsuchiya <tsuchiya>
Date: Thu, 6 Dec 2001 03:31:29 +0000 (+0000)
Subject: * lisp/gnus-namazu.el (gnus-namazu-need-path-normalization): New option.
X-Git-Tag: t-gnus-6_15_4-09-quimby-last-~38
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=86b35a3760cb69dbcac3cdbc9470dc9338ac29b4;p=elisp%2Fgnus.git-

* 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
--- 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)