diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-10-29 12:38:13 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-10-29 12:38:13 +0100 |
| commit | ada9b7c9cecdbc2dd6cbd08553d8f83cb80f793a (patch) | |
| tree | 5acf5204df9ffd936e322e1c0fdbc16714e250cf | |
| parent | 8cd0ce9b857f9d258e447cba13ca32ef5c1641fe (diff) | |
| download | emacs-ada9b7c9cecdbc2dd6cbd08553d8f83cb80f793a.tar.gz | |
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).
| -rw-r--r-- | lisp/gnus/gnus-art.el | 7 |
1 files changed, 4 insertions, 3 deletions
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. |