From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 13 Sep 2020 15:06:35 +0000 (+0200)
Subject: Make the eww header work again even if the title is nil
X-Git-Tag: emacs-28.0.90~6085
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc01b992e27e91631e67bb94f32c23275f1eacfd;p=emacs.git

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.
---

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)