From: yamaoka <yamaoka>
Date: Thu, 29 Oct 1998 07:44:56 +0000 (+0000)
Subject: (gnus-article-mime-edit-article-setup): Turn off `font-lock' after editing.
X-Git-Tag: pgnus-ichikawa-199811302358~128
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c7e606ef303884e3e19ca272b062193984303d5e;p=elisp%2Fgnus.git-

(gnus-article-mime-edit-article-setup): Turn off `font-lock' after editing.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 0a6bea5..f17cbc5 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3010,6 +3010,9 @@ groups."
 after replacing with the original article."
   (setq gnus-article-edit-done-function
 	`(lambda (&rest args)
+	   (when (featurep 'font-lock)
+	     (setq font-lock-defaults nil)
+	     (turn-off-font-lock))
 	   (mime-edit-exit)
 	   (let (case-fold-search)
 	     (goto-char (point-min))