From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 28 Jun 2019 12:03:58 +0000 (+0200)
Subject: * lisp/gnus/gnus-art.el (gnus-article-stop-animations):
X-Git-Tag: emacs-27.0.90~2167
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9fec778c072d7f6869dfc035243ed285bb0ed15a;p=emacs.git

* lisp/gnus/gnus-art.el (gnus-article-stop-animations):

Use `cancel-function-timers'.
---

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index d826faca5bd..601ea00810d 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -4559,10 +4559,7 @@ commands:
 	  (current-buffer))))))
 
 (defun gnus-article-stop-animations ()
-  (dolist (timer (and (boundp 'timer-list)
-		      timer-list))
-    (when (eq (timer--function timer) 'image-animate-timeout)
-      (cancel-timer timer))))
+  (cancel-function-timers 'image-animate-timeout))
 
 (defun gnus-stop-downloads ()
   (when (boundp 'url-queue)