bug#17958: SHR: base handling broken (shr-parse-base, shr-expand-url)

[Lars Magne Ingebrigtsen]

Ivan Shmakov <ivan@siamics.net> writes:

> (let ((shr-base (shr-parse-base "http://example.org/";)))
>   (shr-tag-base '((:href . "/relative")))
>   shr-base)
> ;; ⇒
> ("" "/" nil "/relative")
>
>       With the patch MIMEd (which also fixes the issue described in my
>       initial bug report), it instead gives what I deem to be the
>       correct result:
>
> (let ((shr-base (shr-parse-base "http://example.org/";)))
>   (shr-tag-base '((:href . "/relative")))
>   shr-base)
> ;; ⇒
> ("http://example.org"; "/" "http" "http://example.org/relative";)

Thanks; applied.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no