From: teranisi <teranisi>
Date: Thu, 27 Dec 2001 03:29:14 +0000 (+0000)
Subject: * elmo-nmz.el (elmo-nmz-use-drive-letter): New variable.
X-Git-Tag: wl-2_9_5~51
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7a6d538b2686112991ac8e2dc1f82b1a02f52007;p=elisp%2Fwanderlust.git

* elmo-nmz.el (elmo-nmz-use-drive-letter): New variable.
(elmo-map-folder-list-message-locations): Do drive letter conversion
on Windows environment.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 31b9b34..d63e337 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2001-12-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-nmz.el (elmo-nmz-use-drive-letter): New variable.
+	(elmo-map-folder-list-message-locations): Do drive letter conversion
+	on Windows environment.
+
 2001-12-27  Kenichi OKADA  <okada@opaopa.org>
 
 	* elmo-nntp.el (elmo-nntp-read-response): Fixed for Response '400'
diff --git a/elmo/elmo-nmz.el b/elmo/elmo-nmz.el
index 5fb36b9..1d74132 100644
--- a/elmo/elmo-nmz.el
+++ b/elmo/elmo-nmz.el
@@ -60,6 +60,10 @@ If the value is a list, all elements are used as index paths for namazu."
 			       (repeat (directory :tag "Index Path")))))
   :group 'elmo)
 
+(defvar elmo-nmz-use-drive-letter (if (memq system-type
+					    '(OS/2 emx windows-nt)) t nil)
+  "*If non-nil, do a drive letter conversion (e.g. /a|/ => a:/).")
+
 ;;; "namazu search"
 (eval-and-compile
   (luna-define-class elmo-nmz-folder
@@ -234,7 +238,14 @@ If the value is a list, all elements are used as index paths for namazu."
       (goto-char (point-min))
       (while (not (eobp))
 	(beginning-of-line)
-	(setq bol (if (looking-at "^file://") (match-end 0)(point)))
+	;; convert url to file path.
+	(when (looking-at "^file://")
+	  (replace-match ""))
+	(when (and elmo-nmz-use-drive-letter
+		   (looking-at "^/\\([A-Za-z]\\)|/"))
+	  (replace-match "\\1:/")
+	  (beginning-of-line))
+	(setq bol (point))
 	(end-of-line)
 	(setq locations (cons (buffer-substring bol (point)) locations))
 	(forward-line 1))