Re: font-lock when writing message

Re: font-lock when writing message

[Serge Olkhowik]

On Thu, 18 Sep 2003 00:52:11 GMT
 punkind  (punkind) wrote:

 >> I have a trouble with my Gnus. When writing any message (new or reply)
 >> there is no font coloring while font-lock-mode is on. So I have to do
 >> M-x font-lock-mode twice and I see colors.
 >> 
 >> turn-on-font-lock is in message-setup-hook, but it doesn't work.

 punkind> (add-hook 'message-setup-hook 'font-lock-mode) should do.

No, it doesn't work.

Here are my settings:

* default settings for all modes; run with hooks

(defun so-minor-modes-emacs ()
  (show-paren-mode t)
  (setq paren-mode 'paren-highlight))

(defun so-minor-modes-xemacs ()
  (setq paren-mode 'sexp))

(defun so-minor-modes ()
  (interactive)
  (so-pc-select)
  (abbrev-mode t)
  (auto-fill-mode t)
;  (font-lock-mode t)
  (turn-on-font-lock)
  (turn-on-lazy-lock)
  (line-number-mode t)
  (column-number-mode t)
  (setq fill-column 75
	truncate-lines t)
  (if (featurep 'filladapt)
      (filladapt-mode t))
  (if (so-emacs-xemacs)
      (so-minor-modes-xemacs)
    (so-minor-modes-emacs)))

* and gnus settings

  (setq gnus-inhibit-startup-message t
	gnus-interactive-exit nil
	gnus-asynchronous nil
	gnus-check-new-newsgroups 'ask-server
	gnus-subscribe-newsgroup-method 'gnus-subscribe-interactively
	gnus-save-killed-list nil
	gnus-use-dribble-file nil
	gnus-group-line-format "%S %5y %M :%(%g%)\n"
	gnus-summary-line-format "%U%R%z%e%3t%5V%I %-15,15n %s\n"
	gnus-auto-select-first t
	gnus-thread-indent-level 3
	gnus-thread-hide-subtree t
	gnus-article-highlight-citation t
	gnus-cite-minimum-match-count 1
	gnus-treat-display-smileys t
	gnus-treat-display-xface t
	gnus-treat-hide-boring-headers t
	news-reply-header-hook nil
	gnus-nov-is-evil nil
	gnus-play-startup-jingle t
	gnus-confirm-mail-reply-to-news t
	gnus-score-thread-simplify t
	gnus-score-expiry-days 14
	gnus-thread-sort-functions '(gnus-thread-sort-by-number
				     gnus-thread-sort-by-date
				     gnus-thread-sort-by-score)
	gnus-visible-headers '("^From:" "^X-Comment-To:" "^To:" "^Cc:"
			       "^Comment-To:" "^Subject:" "^Date:")
	gnus-parameters '(("^\\(nnimap\\|nnml\\):.*"
			   (gnus-use-scoring nil))
			  ("^\\(nnimap\\|nnml\\):.*\\(ML\\|lists\\)\\.*"
			   (gnus-use-scoring t)
			   (subscribed . t))))

  (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
  (add-hook 'gnus-summary-mode-hook
	    '(lambda ()
	       (local-set-key [tab] 'gnus-summary-next-unread-article)
	       (local-set-key [(control tab)] 'gnus-summary-next-thread)
	       (local-set-key [(control shift tab)] 'gnus-summary-prev-thread)))
  (add-hook 'gnus-article-display-hook
	    '(lambda ()
	       (gnus-article-highlight)
	       (gnus-article-hide-headers-if-wanted)
	       (article-emphasize)))
  (add-hook 'gnus-exit-group-hook 'gnus-save-newsrc-file)
  (setq message-mail-user-agent t
	message-kill-buffer-on-exit t
	message-default-charset 'koi8-r)
  (add-hook 'message-header-setup-hook 'so-gnus-headers)
  (add-hook 'message-mode-hook 'so-minor-modes)
  (add-hook 'message-sent-hook 'gnus-score-followup-article)
  (add-hook 'message-sent-hook 'gnus-score-followup-thread)
  (add-hook 'message-setup-hook
	    '(lambda ()
	       (local-set-key [return] 'so-gnus-new-line)))

I'm using two own functions so-gnus-headers (insert X-Comment-To) and
so-gnus-new-line (break cited line).

That's all my settings and I realy have no idea why there is no font
coloring when writing messages :(

font-lock-mode is on when composing message but I have to run M-x
font-lock-mode twice to get colors.

Does anybody have idea?

-- 
Serge Olkhowik <solo@isd.dp.ua>
ISD Configuration Management Team <cm@isd.dp.ua>