From 7831cb788504d4b44221f4a898b6cabaaed4c422 Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Sun, 23 May 2010 11:59:27 +0200
Subject: [PATCH] Don't add url type if link is relative.

* org-html.el (org-html-make-link): Don't add url type if link
is relative.
---
 lisp/org-html.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org-html.el b/lisp/org-html.el
index d5f477558..221cbf6fb 100644
--- a/lisp/org-html.el
+++ b/lisp/org-html.el
@@ -640,7 +640,7 @@ MAY-INLINE-P allows inlining it as an image."
 	 (setq thefile 
 	    (let
 	       ((str (org-export-html-format-href thefile)))
-	       (if type
+	      (if (and type (string-match-p "^//" str))
 		  (concat type ":" str)
 		  str)))