Commit 2b455160 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

shr.el (shr-expand-url): Protect against null urls.

parent dbd5ffad
2011-04-21 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-expand-url): Protect against null urls.
2011-04-20 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-base): New binding.
......
......@@ -397,7 +397,8 @@ redirects somewhere else."
(defun shr-expand-url (url)
(cond
;; Absolute URL.
((or (string-match "\\`[a-z]*:" url)
((or (not url)
(string-match "\\`[a-z]*:" url)
(not shr-base))
url)
((and (not (string-match "/\\'" shr-base))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment