[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 9f58ed1: Don't highlight article if gnus-visual-p i
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master 9f58ed1: Don't highlight article if gnus-visual-p is nil (bug#32706) |
Date: |
Wed, 12 Sep 2018 03:21:46 -0400 (EDT) |
branch: master
commit 9f58ed156974f6345a85da419c57c4235f549f2a
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
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).
---
lisp/gnus/deuglify.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/lisp/gnus/deuglify.el b/lisp/gnus/deuglify.el
index d2bc87c..b09f897 100644
--- 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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 9f58ed1: Don't highlight article if gnus-visual-p is nil (bug#32706),
Katsumi Yamaoka <=