org2blog/common/l2r-remote-url treats "file:///" prefix now

diff --git a/common/l2r.el b/common/l2r.el
index 297a494..ab2014c 100644 (file)
--- a/common/l2r.el
+++ b/common/l2r.el
@@ -52,8 +52,14 @@ remote URLs"
 ;;;_  . org2blog/common/l2r-remote-url
 (defun org2blog/common/l2r-remote-url (path)
    "Return the persisting translation of PATH."
+   (let*
+      (  (path
+           (if (string-match "file://" path)
+              (substring path (match-end 0))
+              path))
+        (true-path (expand-file-name path)))
    (cadr
-      (tinydb-alist-assoc org2blog/common/l2r-tq (expand-file-name path))))
+      (tinydb-alist-assoc org2blog/common/l2r-tq true-path))))
 
 ;;;_  . org2blog/common/l2r-cvt-link
 (defun org2blog/common/l2r-cvt-link (opt-plist type path)