From a52b7d346d2269460ff16e36ab9d4950d3a4874b Mon Sep 17 00:00:00 2001 From: Marcus Harnisch Date: Sun, 31 Jul 2011 18:27:02 +0200 Subject: [PATCH] (gnus-article-stop-animations): Use `elt' instead of `aref' for XEmacs compatibiltiy. --- lisp/ChangeLog | 5 +++++ lisp/gnus-art.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 753a411b6..781110643 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-07-31 Marcus Harnisch + + * gnus-art.el (gnus-article-stop-animations): Use `elt' instead of + `aref' for XEmacs compatibiltiy. + 2011-07-31 Lars Magne Ingebrigtsen * spam.el (spam-fetch-field-fast): Rewrite slightly for clarity. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index c29000f46..28c6aca36 100644 --- 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)) - (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 -- 2.25.1