From a265806a4a019ae490789204e261351e3f334fff Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 13 Mar 2007 04:57:59 +0000 Subject: [PATCH] (gnus-message-citation-mode): Make sure to turn font-lock on when turning gnus-message-citation-mode on. --- lisp/ChangeLog | 3 ++- lisp/gnus-cite.el | 11 ++++++++--- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index efcb47315..7fe8ceef1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,8 @@ 2007-03-13 Katsumi Yamaoka * gnus-cite.el (font-lock-set-defaults): Autoload it for Emacs. - (gnus-message-citation-mode): Require font-lock for XEmacs. + (gnus-message-citation-mode): Require font-lock for XEmacs; make sure + to turn font-lock on when turning gnus-message-citation-mode on. 2007-03-06 Daiki Ueno diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el index 1e5dcabb9..5c2c033b0 100644 --- a/lisp/gnus-cite.el +++ b/lisp/gnus-cite.el @@ -1183,8 +1183,10 @@ Returns nil if there is no such line before LIMIT, t otherwise." "Toggle `gnus-message-citation-mode' in current buffer. This buffer local minor mode provides additional font-lock support for nested citations. -With prefix ARG, turn `gnus-message-citation-mode' on if and only if ARG is -positive." +With prefix ARG, turn `gnus-message-citation-mode' on if and only if ARG +is positive. +Automatically turn `font-lock-mode' on when `gnus-message-citation-mode' +is turned on." nil ;; init-value "" ;; lighter nil ;; keymap @@ -1217,7 +1219,10 @@ positive." font-lock-keywords nil)) (setq font-lock-set-defaults nil)) (font-lock-set-defaults) - (font-lock-fontify-buffer))) + (cond ((symbol-value 'font-lock-mode) + (font-lock-fontify-buffer)) + (gnus-message-citation-mode + (font-lock-mode 1))))) (defun turn-on-gnus-message-citation-mode () "Turn on `gnus-message-citation-mode'." -- 2.34.1