From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/5435
Path: news.gmane.org!not-for-mail
From: Reiner Steib <reinersteib+from-uce@imap.cc>
Newsgroups: gmane.emacs.gnus.user
Subject: Re: Background for picons
Date: Sat, 23 Jul 2005 19:18:21 +0200
Organization: Dept. of Theoretical Physics, University of Ulm
Message-ID: <v9y87xbfvm.fsf@marauder.physik.uni-ulm.de>
References: <87ackfc9hl.fsf@wilson.rwth-aachen.de>
Reply-To: Reiner Steib <Reiner.Steib@gmx.de>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: sea.gmane.org 1138671155 27392 80.91.229.2 (31 Jan 2006 01:32:35 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 01:32:35 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:35:17 2006
Original-Newsgroups: gnu.emacs.gnus
X-Face: :6KQZ[nyoS_edmB.%gw-=)BYth^|2+Y+^cu%I$FSx!&>-'om>3H7A|M&n(V7fIo3P.;yo.b
 yq4$p;ZaBtkv)\}biaiBQe"m<J92?W;7@l9d}<ii$${T~K6`/u6tB*Rwgz$YD6T:S7}]f<?7O'sIq2
 gwg>D}iib1AA@99-fZ7i*bLhNR<t1$(#./3hC)!>VC&0Wkxg9)SH?oWc@{
Mail-Copies-To: nobody
User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux)
Cancel-Lock: sha1:pEz5uTHsPUBtSlma2OFleZAJJSk=
Original-NNTP-Posting-Host: bridgekeeper.physik.uni-ulm.de
Original-X-Trace: news.uni-ulm.de 1122139903 134.60.10.123 (23 Jul 2005 19:31:43 +0200)
Original-Path: quimby.gnus.org!newsfeed.gazeta.pl!newsfeed.pionier.net.pl!news-fra1.dfn.de!news-lei1.dfn.de!newsfeed00.sul.t-online.de!t-online.de!inka.de!rz.uni-karlsruhe.de!news.uni-ulm.de!viandante.physik.uni-ulm.de!not-for-mail
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:5577
Original-Lines: 34
X-Gnus-Article-Number: 5577   Tue Jan 17 17:35:17 2006
Xref: news.gmane.org gmane.emacs.gnus.user:5435
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/5435>

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/