(shr-rescale-image): Display all GIF images as animated images.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f3ca14b..7e5abde 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-01-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * shr.el (shr-rescale-image): Display all GIF images as animated images.
+
        * nnimap.el (nnimap-login): Refactored out into own function, and
        implement CRAM-MD5.
        (nnimap-wait-for-line): Refactored out.

diff --git a/lisp/shr.el b/lisp/shr.el
index 0ed73cd..6e681d6 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -507,6 +507,9 @@ redirects somewhere else."
                     (create-image data 'imagemagick t
                                   :width window-width)
                     image)))
+      (when (and (fboundp 'create-animated-image)
+                (eq (image-type data nil t) 'gif))
+       (setq image (create-animated-image data 'gif t)))
       image)))
 
 ;; url-cache-extract autoloads url-cache.