From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 4 Jan 2016 22:03:16 +0000 (+0100)
Subject: shr-tag-video bug fix
X-Git-Tag: emacs-25.0.90~267^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9fb185aff7b1f36c30bd157ec446d9bad104d1ee;p=emacs.git

shr-tag-video bug fix

* shr.el (shr-tag-video): Protect against the `poster' being
empty.
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 979b0caeea5..0703171a436 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1361,7 +1361,7 @@ The preference is a float determined from `shr-prefer-media-type'."
         (start (point)))
     (unless url
       (setq url (car (shr--extract-best-source dom))))
-    (if image
+    (if (> (length image) 0)
         (shr-tag-img nil image)
       (shr-insert " [video] "))
     (shr-urlify start (shr-expand-url url))))