Re: setting face in gnus-user-format-function-x (solved)

[pmlists@free.fr (Peter Münster)]

On Fri, Jul 01 2011, Lars Magne Ingebrigtsen wrote:

> Uhm...  try edebugging through `gnus-summary-update-article-line' and
> see what happens.  :-)

Ok, it seems, that `gnus-summary-update-article-line' should only be
called, when the summary buffer has already been prepared. So I have to
avoid calling `my-summary-update' when creating a new summary buffer.

This works for me now:

--8<---------------cut here---------------start------------->8---
(defun my-summary-prepared ()
  (setq gnus-summary-update-hook '(my-summary-update)))

(defun my-summary-exit ()
  (setq gnus-summary-update-hook nil))

(defun my-summary-update ()
  (my-summary-exit)
  (gnus-summary-update-article-line
   (gnus-summary-article-number)
   (gnus-summary-article-header (gnus-summary-article-number)))
  (my-summary-prepared))

(defun gnus-user-format-function-x (header)
  (propertize (format "%c" gnus-tmp-unread) 'face
              (if (equal gnus-tmp-unread gnus-ancient-mark)
                  gnus-face-2 gnus-face-3) 'gnus-face t))

(setq gnus-summary-prepared-hook '(my-summary-prepared))
(setq gnus-summary-exit-hook '(my-summary-exit))

(setq gnus-summary-line-format
      "%ux%R%3P %-10&user-date; %-17,17f(%4k)%* %B%s\n")
--8<---------------cut here---------------end--------------->8---

What do you think? Any suggestions for doing this better?

Cheers,
-- 
           Peter