lisp/gnus/gnus-sum.el (gnus-summary-exit): Stop animations

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 693483a5775f77f7d37ae7f1df1d6a655bf97d22..a983c86bcf45a4d9adfaf3636a36e311da56f8f5 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2013-12-25  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-sum.el (gnus-summary-exit): Stop animations.
+
 2013-12-19  Juri Linkov  <juri@jurta.org>
 
        * gnus.el (gnus-suppress-keymap):

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 6873db7f6bc79b7b551705f5d79b092cf82f5fa9..6dbe7bfef0f428f33fc5b7ad46dc8e3ba2fd0a2e 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -7278,6 +7278,7 @@ 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)
     (if temporary
        nil                             ;Nothing to do.
       (set-buffer buf)
@@ -7368,6 +7369,7 @@ If FORCE (the prefix), also save the .newsrc file(s)."
        (gnus-group-update-group group nil t))
       (when (equal (gnus-group-group-name) group)
        (gnus-group-next-unread-group 1))
+      (gnus-article-stop-animations)
       (when quit-config
        (gnus-handle-ephemeral-exit quit-config)))))