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

[Bastien Guerry]

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 <address@hidden>
> X-Patchwork-Id: 251
> Message-Id: <address@hidden>
> To: Achim Gratz <address@hidden>
> Cc: address@hidden
> 
> Achim Gratz <address@hidden> 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)))
>  
>