[Accepted] Re: html-export mangels mailto: links

[Bastien Guerry <bzg@altern.org>]

Patch 251 (http://patchwork.newartisans.com/patch/251/) is now "Accepted".

Maintainer comment: Applied a slightly modified version: better handling of absolute filenames.

This relates to the following submission:

http://mid.gmane.org/%3C87iq2o3b5s.fsf%40noorul.maa.corp.collab.net%3E

Here is the original message containing the patch:

> Content-Type: text/plain; charset="utf-8"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Subject: [Orgmode] Re: html-export mangels mailto: links
> Date: Thu, 02 Sep 2010 11:35:43 -0000
> From: Noorul Islam <noorul@noorul.com>
> X-Patchwork-Id: 251
> Message-Id: <87iq2o3b5s.fsf@noorul.maa.corp.collab.net>
> To: Achim Gratz <Stromeko@nexgo.de>
> Cc: emacs-orgmode@gnu.org
> 
> Achim Gratz <Stromeko@nexgo.de> writes:
> 
> > HTML export removes the "mailto:" from a link, which will then be
> > interpreted as a local link by the browser.
> >
> > For an example, see the link to this mailing list in
> > ORGWEBPAGE/index.org and the corresponding HTML export on orgmode-org
> > (or just the local file).
> >
> 
> org-html.el : Fix exporting file, mailto, news and ftp protocols.
> 
> * lisp/org-html.el (org-html-make-link): (expand-file-name
> ) removes one "/" from "///path-to-file", so add one. Anything other
> than 'file' type should be exported along with the type.
> 
> TINYCHANGE
> 
> Thanks and Regards
> Noorul
> 
> 
> diff --git a/lisp/org-html.el b/lisp/org-html.el
> index 099b2e3..4430768 100644
> --- a/lisp/org-html.el
> +++ b/lisp/org-html.el
> @@ -720,7 +720,7 @@ MAY-INLINE-P allows inlining it as an image."
>  			   ;;Substitute just if original path was absolute.
>  			   ;;(Otherwise path must remain relative)
>  			   (if (file-name-absolute-p path)
> -			      (expand-file-name path)
> +			      (concat "/" (expand-file-name path))
>  			      path)))
>  		     ((string= type "")
>  			(list nil path))
> @@ -756,8 +756,7 @@ MAY-INLINE-P allows inlining it as an image."
>  	 (setq thefile
>  	    (let
>  	       ((str (org-export-html-format-href thefile)))
> -	      (if (and type (not (string= "file" type))
> -		       (org-string-match-p "^//" str))
> +	      (if (and type (not (string= "file" type)))
>  		  (concat type ":" str)
>  		  str)))
>  
>