Re: setting face in gnus-user-format-function-x

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

On Mon, Jul 11 2011, Michael Piotrowski wrote:

> I found I needed to set `inhibit-read-only' to t; in any case, here are
> my functions in full:
>
> [...]
>
> Hope this helps

Yes and no: the face is set, but not updated. Could you please try this,
and tell me, if it works for you:

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

(defun gnus-user-format-function-x (header)
  (let* ((mark gnus-tmp-unread)
         (str (format "%c" mark)))
    (cond
     ((equal mark gnus-ancient-mark)
      (put-text-property 0 1 'my-prop 'read str))
     (t
      (put-text-property 0 1 'my-prop 'unread str)))
    str))

(defun my-gnus-fontify-summary-line ()
  (save-excursion
    (let* ((inhibit-read-only t)
           (my-region (gnus-find-text-property-region
                         (point-at-bol)
                         (point-at-eol) 'my-prop))
           (start (caar my-region))
           (end   (cadar my-region)))
      (cond
       ((eq (caddar my-region) 'unread)
        (gnus-put-text-property start end 'face gnus-face-2))
       (t
        (gnus-put-text-property start end 'face gnus-face-3))))))

(add-hook 'gnus-summary-update-hook 'my-gnus-fontify-summary-line)
--8<---------------cut here---------------end--------------->8---

Nevertheless, thanks for you efforts!

-- 
           Peter