Re: Emacs 23.2 with Gnus 5.13 = Loss of color

[Sébastien Vauban]

Hi Lars and Alun,

Alun Evans wrote:
> On Mon 08 Nov '10 at 12:20 Lars Magne Ingebrigtsen <larsi@gnus.org> wrote:
>> Alun Evans <alun@bSaPdAgMeSrPoAuMs.net> writes:
>>
>>> I've been running for quite a while, well ok, a hell of a long time, with:
>>>
>>>   Emacs 21.3.1 + No Gnus v0.6
>>>
>>> I tried recently to switch to Emacs 23.2 and its bundled Gnus, but in
>>> the Group and Summary modes I lose all colors, with the exception of
>>> some string highlighting...
>>
>> I would guess that you have some local customisations that disable the
>> highlighting in some way, but it's difficult to say what to look for,
>> because there are so many things that allow twiddling the Gnus look.
>
> Seemingly it's this hunk:
>
> ;;;Make TODO Face
> ;; (make-face 'local-todo-face)
> ;; (set-face-foreground 'local-todo-face "Black")
> ;; (set-face-background 'local-todo-face "Red")
> ;; (setq font-lock-keywords
> ;;       (append font-lock-keywords
> ;;          '(("TODO"  (0 'local-todo-face t))
> ;;            ("#error" (0 'local-todo-face t))
> ;;            ("FIXME" (0 'local-todo-face t))))
> ;; )

Same with:

--8<---------------cut here---------------start------------->8---
      ;; ;; FIXME All my colors in Gnus disappear when this is enabled...
      ;; ;; add a new face in my config file so that all the numbers will have
      ;; ;; different color
      ;; (make-face 'font-lock-number-face)
      ;; (set-face-foreground 'font-lock-number-face "DodgerBlue4")
      ;; (setq font-lock-number-face 'font-lock-number-face)
      ;; (defvar font-lock-number "[0-9]+\\([eE][+-]?[0-9]*\\)?")
      ;; (defvar font-lock-hexnumber "0[xX][0-9a-fA-F]+")
      ;;
      ;; (add-hook 'font-lock-mode-hook
      ;;           #'(lambda ()
      ;;               (setq font-lock-keywords
      ;;                     (append font-lock-keywords
      ;;                             (list
      ;;                              (list (concat "\\<\\(" font-lock-number 
"\\)\\>" )
      ;;                                    (list 0 font-lock-number-face))
      ;;                              (list (concat "\\<\\(" 
font-lock-hexnumber "\\)\\>" )
      ;;                                    (list 0 font-lock-number-face)))))))
--8<---------------cut here---------------end--------------->8---

or even with the much more standard show-wspace package of Emacs Goodies:

--8<---------------cut here---------------start------------->8---
      ;; ;; FIXME When turned on, Gnus becomes black and white only...
      ;; (when (try-require 'show-wspace)
      ;;   ;; Highlight tabs
      ;;   (add-hook 'font-lock-mode-hook 'show-ws-highlight-tabs)
      ;;
      ;;   ;; Highlight trailing whitespace
      ;;   (add-hook 'font-lock-mode-hook 
'show-ws-highlight-trailing-whitespace)
      ;;
      ;;   ;; Highlight non-breaking spaces
      ;;   (add-hook 'font-lock-mode-hook 'show-ws-highlight-hard-spaces))
--8<---------------cut here---------------end--------------->8---

Best regards,
  Seb

-- 
Sébastien Vauban