* net/eww.el (eww): Handle URLs without host part.

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index bff592c3fe263fcf4915f10d8d501ae8bb474302..fcd2b98797a76290672b29609acdad4ce9676090 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -261,9 +261,10 @@ word(s) will be searched for via `eww-search-prefix'."
   ;; IDNA characters.  If not, transform to punycode to indicate that
   ;; there may be funny business going on.
   (let ((parsed (url-generic-parse-url url)))
-    (unless (puny-highly-restrictive-domain-p (url-host parsed))
-      (setf (url-host parsed) (puny-encode-domain (url-host parsed)))
-      (setq url (url-recreate-url parsed))))
+    (when (url-host parsed)
+      (unless (puny-highly-restrictive-domain-p (url-host parsed))
+        (setf (url-host parsed) (puny-encode-domain (url-host parsed)))
+        (setq url (url-recreate-url parsed)))))
   (plist-put eww-data :url url)
   (plist-put eww-data :title "")
   (eww-update-header-line-format)