diff options
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/shr.el | 13 |
2 files changed, 11 insertions, 6 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 3cfca4525f0..b45abb618d8 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2013-05-30 Glenn Morris <rgm@gnu.org> + + * shr.el (shr-put-image): Silence compiler. + 2013-05-29 Glenn Morris <rgm@gnu.org> * gnus-ems.el (set-process-plist): Every supported Emacs has this. diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 2d2272d6c11..9284da4c4b3 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -631,12 +631,13 @@ size, and full-buffer size." (overlay-put overlay 'face 'default))) (insert-image image (or alt "*"))) (put-text-property start (point) 'image-size size) - (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)) + (when (cond ((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))) + ((fboundp 'image-animated-p) + (image-animated-p image))) (image-animate image nil 60))) image) (insert alt))) |