* shr.el (shr-tag-img): Don't bug out on images that don't have a SRC.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79dca4a..020fbc6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-10-22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * shr.el (shr-tag-img): Don't bug out on images that don't have a SRC.
+
        * gnus-group.el (gnus-group-mark-group): Use gnus-group-position-point
        instead of the summary one.
 

diff --git a/lisp/shr.el b/lisp/shr.el
index a25fc2c..6646cec 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -487,7 +487,8 @@ Return a string with image data."
   (browse-url-url-encode-chars url "[)$ ]"))
 
 (defun shr-tag-img (cont)
-  (when cont
+  (when (and cont
+            (cdr (assq :src cont)))
     (when (and (> (current-column) 0)
               (not (eq shr-state 'image)))
       (insert "\n"))