Tweak previous article-treat-ansi-sequences fix

* lisp/gnus/gnus-art.el (article-treat-ansi-sequences): Redo the
previous fix to avoid a compilation warning (bug#44299).

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index f9a6dd6442707d740112b5b0bccc6870e708f3ae..1efc1d6f7d92fc36d36b9b6879aa5ec407d8f28b 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -2169,9 +2169,10 @@ MAP is an alist where the elements are on the form (\"from\" \"to\")."
   (interactive)
   (save-excursion
     (when (article-goto-body)
-      (let ((inhibit-read-only t))
-       (ansi-color-apply-on-region (point) (point-max)))))
-  (setq ansi-color-context-region nil))
+      (require 'ansi-color)
+      (let ((inhibit-read-only t)
+           (ansi-color-context-region nil))
+       (ansi-color-apply-on-region (point) (point-max))))))
 
 (defun gnus-article-treat-unfold-headers ()
   "Unfold folded message headers.