[gnus git] branch master updated: n0-17-94-gd17d364 =1= * shr.el (shr-put-image): Use the new interface for animating images.

       via  d17d36480aa6a22b1bb3de1f7bffcc95977a09f7 (commit)
      from  501115928385aaf06bc9c6350c889aa5e2e0f15f (commit)


- Log -----------------------------------------------------------------
commit d17d36480aa6a22b1bb3de1f7bffcc95977a09f7
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sun Jun 26 17:32:53 2011 +0200

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8953c42..2ad737f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-06-26  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* 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
--- 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.

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    2 ++
 lisp/shr.el    |    8 +++-----
 2 files changed, 5 insertions(+), 5 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project