(shr-tag-img): Ignore image fetching errors.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 16422ae..c54f3fc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * shr.el (shr-tag-img): Shorten ALT texts and allow them to be
        line-broken.
+       (shr-tag-img): Ignore image fetching errors.
 
        * mm-decode.el (mm-shr): Require shr.
 

diff --git a/lisp/shr.el b/lisp/shr.el
index e3ca2fb..a0b9680 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -230,9 +230,10 @@ redirects somewhere else."
        (shr-put-image (shr-get-image-data url) (point) alt))
        (t
        (insert alt)
-       (url-retrieve url 'shr-image-fetched
-                     (list (current-buffer) start (point-marker))
-                     t)))
+       (ignore-errors
+         (url-retrieve url 'shr-image-fetched
+                       (list (current-buffer) start (point-marker))
+                       t))))
       (insert " ")
       (put-text-property start (point) 'keymap shr-map)
       (put-text-property start (point) 'shr-alt alt)