(shr-put-image): Animate for 60 seconds.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ad737f..b869dd2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2011-06-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * shr.el (shr-put-image): Use the new interface for animating images.
+       (shr-put-image): Animate for 60 seconds.
 
        * 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 e6d0af0..f8a8557 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -528,7 +528,7 @@ the URL of the image to the kill buffer instead."
            (insert "\n"))
          (insert-image image (or alt "*"))
          (when (image-animated-p image)
-           (image-animate image)))
+           (image-animate image nil 60)))
        image)
     (insert alt)))