From bfc58a84b276919f675b0c65e84ea97238833033 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 16 Feb 2013 16:38:03 -0800 Subject: [PATCH] * lisp/gnus/shr.el (shr-put-image): Use image-multi-frame-p if available. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/shr.el | 8 ++++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 5030da8767..dd6d20969f 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2013-02-17 Glenn Morris + + * shr.el (shr-put-image): Use image-multi-frame-p if available. + 2013-02-16 Glenn Morris * shr.el (shr-put-image): Only animate images that specify a delay. diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 1294ca7cd6..886f4da53d 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -615,8 +615,12 @@ size, and full-buffer size." (overlay-put overlay 'face 'default))) (insert-image image (or alt "*"))) (put-text-property start (point) 'image-size size) - ;; Only animate multi-frame things that specify a delay. FIXME? - (when (cdr (image-animated-p image)) + (when (if (fboundp 'image-multi-frame-p) + ;; Only animate multi-frame things that specify a + ;; delay; eg animated gifs as opposed to + ;; multi-page tiffs. FIXME? + (cdr (image-multi-frame-p image)) + (image-animated-p image)) (image-animate image nil 60))) image) (insert alt))) -- 2.20.1