master 35e3d00 2/3: Make gnus-article-stop-animations obsolete

[Lars Ingebrigtsen]

branch: master
commit 35e3d002d6cae1d1b7fc620b5748ac656cca23e4
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make gnus-article-stop-animations obsolete
    
    * lisp/gnus/gnus-art.el (gnus-article-stop-animations): Make
    obsolete now that animated images stop themselves automatically.
    (gnus-article-setup-buffer):
    * lisp/gnus/gnus-sum.el (gnus-summary-exit)
    (gnus-summary-exit-no-update, gnus-summary-show-article): Remove
    callers.
---
 lisp/gnus/gnus-art.el | 2 +-
 lisp/gnus/gnus-sum.el | 5 -----
 2 files changed, 1 insertion(+), 6 deletions(-)

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 89b4a63..78ce89d 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -4579,7 +4579,6 @@ commands:
        (let ((summary gnus-summary-buffer))
          (with-current-buffer name
             (setq-local gnus-article-edit-mode nil)
-           (gnus-article-stop-animations)
            (when gnus-article-mime-handles
              (mm-destroy-parts gnus-article-mime-handles)
              (setq gnus-article-mime-handles nil))
@@ -4605,6 +4604,7 @@ commands:
          (current-buffer))))))
 
 (defun gnus-article-stop-animations ()
+  (declare (obsolete nil "29.1"))
   (cancel-function-timers 'image-animate-timeout))
 
 (defun gnus-stop-downloads ()
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 3beeace..f066612 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -7206,7 +7206,6 @@ If FORCE (the prefix), also save the .newsrc file(s)."
     (gnus-dribble-save)))
 
 (declare-function gnus-cache-write-active "gnus-cache" (&optional force))
-(declare-function gnus-article-stop-animations "gnus-art" ())
 
 (defun gnus-summary-exit (&optional temporary leave-hidden)
   "Exit reading current newsgroup, and then return to group selection mode.
@@ -7270,7 +7269,6 @@ If FORCE (the prefix), also save the .newsrc file(s)."
                (not (string= group (gnus-group-group-name))))
       (gnus-group-next-unread-group 1))
     (setq group-point (point))
-    (gnus-article-stop-animations)
     (unless leave-hidden
       (gnus-configure-windows 'group 'force))
     (if temporary
@@ -7330,7 +7328,6 @@ If FORCE (the prefix), also save the .newsrc file(s)."
       (run-hooks 'gnus-summary-prepare-exit-hook)
       (when (gnus-buffer-live-p gnus-article-buffer)
        (with-current-buffer gnus-article-buffer
-         (gnus-article-stop-animations)
          (gnus-stop-downloads)
          (mm-destroy-parts gnus-article-mime-handles)
          ;; Set it to nil for safety reason.
@@ -7362,7 +7359,6 @@ If FORCE (the prefix), also save the .newsrc file(s)."
        (gnus-group-update-group group nil t))
       (when (gnus-group-goto-group group)
        (gnus-group-next-unread-group 1))
-      (gnus-article-stop-animations)
       (when quit-config
        (gnus-handle-ephemeral-exit quit-config)))))
 
@@ -9908,7 +9904,6 @@ article.  Normally, the keystroke is 
`\\[universal-argument] \\[gnus-summary-sho
       ;; Destroy any MIME parts.
       (when (gnus-buffer-live-p gnus-article-buffer)
        (with-current-buffer gnus-article-buffer
-         (gnus-article-stop-animations)
          (gnus-stop-downloads)
          (mm-destroy-parts gnus-article-mime-handles)
          ;; Set it to nil for safety reason.