namazu-ml(ring)


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

namazu.el for win32



こんにちは、白井です。

namazu.el なのですが、Win32 でありがちな(?)

/c|/home/shirai/Mail/inbox/1

形式だと、"namazu-view" で view-file してくれません。こうしてい
ただけるとありがたいです。(__)


--- namazu.el.orig      Fri Apr 23 09:11:16 1999
+++ namazu.el   Mon Apr 26 19:11:22 1999
@@ -435,6 +435,11 @@
          (and method (setq url (substring url 5)))
          (and (string-match "^//localhost" url)
               (setq url (substring url (match-end 0))))
+         (and (string-match "^/\\([a-zA-Z]\\)|\\(/.*\\)$" url)
+              (setq url
+                    (concat (substring url (match-beginning 1) (match-end 1))
+                            ":"
+                            (substring url (match-beginning 2) (match-end 2)))))
          (let ((ext '("" ".gz" ".Z")) path done)
            (while (and (null done) ext)
              (setq path (concat url (car ext)))