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.

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 7b8c841d9dcae9fd53368d52ddd1bcc4688cc8ba..5ffaf153c38717248fb0a8996ad9cadd9d074328 100644 (file)
--- 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)