namazu-ml(ring)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
namazu.el for win32
- From: Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>
- Date: Mon, 26 Apr 1999 19:50:44 +0900
こんにちは、白井です。
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)))