Make the eww header work again even if the title is nil

* lisp/net/eww.el (eww-update-header-line-format): Don't bug out
if the title isn't set at all.

1 files changed, 8 insertions, 7 deletions

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 5fd44901936..69dc2d47d67 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -729,14 +729,15 @@ Currently this means either text/html or application/xhtml+xml."
 (defun eww-update-header-line-format ()
   (setq header-line-format
         (and eww-header-line-format
-             (let ((title (propertize (plist-get eww-data :title)
-                                      'face 'variable-pitch))
-                   (peer (plist-get eww-data :peer))
+             (let ((peer (plist-get eww-data :peer))
                    (url (propertize (plist-get eww-data :url)
-                                    'face 'variable-pitch)))
-               (when (zerop (length title))
-                 (setq title (propertize  "[untitled]" 'face 'variable-pitch)))
-               ;; This connection has is https.
+                                    'face 'variable-pitch))
+                   (title (propertize
+                           (if (zerop (length (plist-get eww-data :title)))
+                               "[untitled]"
+                             (plist-get eww-data :title))
+                           'face 'variable-pitch)))
+               ;; This connection is https.
                (when peer
                  (add-face-text-property 0 (length title)
                                          (if (plist-get peer :warnings)