From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 29 Oct 2020 11:38:13 +0000 (+0100)
Subject: Tweak previous article-treat-ansi-sequences fix
X-Git-Tag: emacs-28.0.90~5356^2~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ada9b7c9cecdbc2dd6cbd08553d8f83cb80f793a;p=emacs.git

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 f9a6dd64427..1efc1d6f7d9 100644
--- 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.