From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Sat, 7 Dec 2013 01:44:15 +0000 (+0100)
Subject: * net/shr.el (shr-tag-img): Don't bug out on <img src=""> data.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~532
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e330b64699b4560bb270d00a89d3c09d91210057;p=emacs.git

* net/shr.el (shr-tag-img): Don't bug out on <img src=""> data.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4bad667aa50..5cac769f01b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* net/shr.el (shr-tag-img): Don't bug out on <img src="">
+	data.
+
 2013-12-06  Michael Albinus  <michael.albinus@gmx.de>
 
 	* progmodes/compile.el (compilation-start):
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 5857517684a..4c256f8d716 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1173,7 +1173,7 @@ The preference is a float determined from `shr-prefer-media-type'."
 (defun shr-tag-img (cont &optional url)
   (when (or url
 	    (and cont
-		 (cdr (assq :src cont))))
+		 (> (length (cdr (assq :src cont))) 0)))
     (when (and (> (current-column) 0)
 	       (not (eq shr-state 'image)))
       (insert "\n"))