* shr.el (shr-put-image): Use the new interface for animating images.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8953c42..2ad737f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-06-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * shr.el (shr-put-image): Use the new interface for animating images.
+
        * dgnushack.el: Bind `gnutls-available-p' to `ignore' on XEmacs to
        avoid compiler warnings.
 

diff --git a/lisp/shr.el b/lisp/shr.el
index 67effc0..e6d0af0 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -526,7 +526,9 @@ the URL of the image to the kill buffer instead."
          (when (and (> (current-column) 0)
                     (> (car (image-size image t)) 400))
            (insert "\n"))
-         (insert-image image (or alt "*")))
+         (insert-image image (or alt "*"))
+         (when (image-animated-p image)
+           (image-animate image)))
        image)
     (insert alt)))
 
@@ -557,10 +559,6 @@ the URL of the image to the kill buffer instead."
                                   :width window-width
                                   :ascent 100)
                     image)))
-      (when (and (fboundp 'create-animated-image)
-                (eq (image-type data nil t) 'gif))
-       (setq image (create-animated-image data 'gif t
-                                          :ascent 100)))
       image)))
 
 ;; url-cache-extract autoloads url-cache.