Don't highlight article if gnus-visual-p is nil (bug#32706)

* lisp/gnus/deuglify.el (gnus-outlook-display-article-buffer):
Don't highlight article if gnus-visual-p is nil (bug#32706).

diff --git a/lisp/gnus/deuglify.el b/lisp/gnus/deuglify.el
index d2bc87caa2770333f1b202c496bad43789c06606..b09f89772aa74835e37f40e6b708f0696081ce93 100644 (file)
--- a/lisp/gnus/deuglify.el
+++ b/lisp/gnus/deuglify.el
@@ -299,8 +299,14 @@ It is run after `gnus-article-prepare-hook'."
     ;; it. Calling `gnus-article-prepare-display' on an already
     ;; prepared article removes all MIME parts.  I'm unsure whether
     ;; this is a bug or not.
-    (gnus-article-highlight t)
-    (gnus-treat-article nil)
+    (when (gnus-visual-p 'article-highlight 'highlight)
+      (gnus-article-highlight t))
+    (save-excursion
+      (save-restriction
+       (widen)
+       (article-goto-body)
+       (narrow-to-region (point) (point-max))
+       (gnus-treat-article nil)))
     (gnus-run-hooks 'gnus-article-prepare-hook
                    'gnus-outlook-display-hook)))