[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Background for picons
From: |
Reiner Steib |
Subject: |
Re: Background for picons |
Date: |
Sat, 23 Jul 2005 19:18:21 +0200 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) |
On Fri, Jul 22 2005, Torsten Bronger wrote:
> Is there a way to give picons a white or grey background?
I'd have guessed that the face `gnus-picon'[1] is what you're looking
for. But apparently this face is never used.
Adding `(gnus-put-text-property ... 'face 'gnus-picon)' in
`gnus-picon-insert-glyph' indeed modifies the face, but later gets
overridden by some other face. I couldn't quickly figure out were it
gets overridden. Any ideas?
--8<---------------cut here---------------start------------->8---
(defun gnus-picon-insert-glyph (glyph category)
"Insert GLYPH into the buffer.
GLYPH can be either a glyph or a string."
(if (stringp glyph)
(insert glyph)
(gnus-add-wash-type category)
(gnus-add-image category (car glyph))
(gnus-put-image (car glyph) (cdr glyph) category)
(gnus-put-text-property (- (point) (length (cdr glyph))) (point)
'face 'gnus-picon)
(sit-for 1)))
--8<---------------cut here---------------end--------------->8---
Bye, Reiner.
[1] or `gnus-picon-face' before Miles' recent »Remove "-face" suffix
from face name.« changes.
--
,,,
(o o)
---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/