(gnus-article-stop-animations): Use `elt' instead of `aref' for XEmacs compatibiltiy.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 753a411..7811106 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-31  Marcus Harnisch  <marcus.harnisch@gmx.net>
+
+       * gnus-art.el (gnus-article-stop-animations): Use `elt' instead of
+       `aref' for XEmacs compatibiltiy.
+

 2011-07-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * spam.el (spam-fetch-field-fast): Rewrite slightly for clarity.
 2011-07-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * spam.el (spam-fetch-field-fast): Rewrite slightly for clarity.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index c29000f..28c6aca 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4541,7 +4541,7 @@ commands:
 (defun gnus-article-stop-animations ()
   (dolist (timer (and (boundp 'timer-list)
                      timer-list))
 (defun gnus-article-stop-animations ()
   (dolist (timer (and (boundp 'timer-list)
                      timer-list))

-    (when (eq (aref timer 5) 'image-animate-timeout)
+    (when (eq (elt timer 5) 'image-animate-timeout)

       (cancel-timer timer))))
 
 ;; Set article window start at LINE, where LINE is the number of lines
       (cancel-timer timer))))
 
 ;; Set article window start at LINE, where LINE is the number of lines