From 1c412c000a5d61d1be7f6fa7e632a517b89de95b Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Fri, 1 Apr 2011 14:24:22 +0000 Subject: [PATCH] mm-view.el (mm-display-inline-fontify): Do not fontify with fundamental-mode. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/mm-view.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 2496453dd89..37faf83fd12 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-04-01 Julien Danjou + + * mm-view.el (mm-display-inline-fontify): Do not fontify with + fundamental-mode. + 2011-03-30 Lars Magne Ingebrigtsen * gnus-sum.el (gnus-update-marks): Revert intersection change, which diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index abd78b8de02..5a90f015aed 100644 --- a/lisp/gnus/mm-view.el +++ b/lisp/gnus/mm-view.el @@ -608,7 +608,9 @@ If MODE is not set, try to find mode automatically." (funcall mode) (set-auto-mode)) ;; The mode function might have already turned on font-lock. - (unless (symbol-value 'font-lock-mode) + ;; Do not fontify if the guess mode is fundamental. + (unless (or (symbol-value 'font-lock-mode) + (eq major-mode 'fundamental-mode)) (font-lock-fontify-buffer))) ;; By default, XEmacs font-lock uses non-duplicable text ;; properties. This code forces all the text properties -- 2.39.2