[Emacs-diffs] master 712607b: Fix bug in shr-urlify introduced in previous patch

[Lars Ingebrigtsen]

branch: master
commit 712607b05ac7c28a35e4682269adc53257ab9337
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Fix bug in shr-urlify introduced in previous patch
    
    * lisp/net/shr.el (shr-urlify): Not all URLs have domains, so
    check for that before doing IDNA.
---
 lisp/net/shr.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 7b8c841..5ffaf15 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1221,8 +1221,9 @@ START, and END.  Note that START and END should be 
markers."
                       ;; decoded version in the mouseover to let the
                       ;; user know that there's something possibly
                       ;; fishy.
-                      (setf (url-host parsed)
-                            (puny-encode-domain (url-host parsed)))
+                      (when (url-host parsed)
+                        (setf (url-host parsed)
+                              (puny-encode-domain (url-host parsed))))
                       (setq iri (url-recreate-url parsed))
                      (if title
                           (format "%s (%s)" iri title)