From: Wolfgang Jenkner <wjenkner@inode.at>
To: ding@gnus.org
Subject: Re: Summary line format and gnus-face-X
Date: Sat, 08 Sep 2012 13:45:54 +0200 [thread overview]
Message-ID: <851uicn2l9.fsf@iznogoud.viz> (raw)
In-Reply-To: <85zk50x35e.fsf@iznogoud.viz>
On Sat, Sep 08 2012, Wolfgang Jenkner wrote:
> That is, the value of the face property
> would be a single regular face or a list of a face specified in the
> format string and a regular face.
I think the following redefinition is a minimally invasive change that
could work. Tassilo, could you try this out with the current gnus git
HEAD?
(defun gnus-put-text-property-excluding-characters-with-faces (beg end
prop val)
"The same as `put-text-property', but don't put props on characters with the `gnus-face' property."
(let ((b beg))
(while (/= b end)
(when (get-text-property b 'gnus-face)
(let ((e (next-single-property-change b 'gnus-face nil end)))
(when (eq prop 'face)
(let ((gnus-face (get-text-property b 'face)))
(inline
(gnus-put-text-property
b e
'face (if gnus-face
(list (if (and (consp gnus-face)
(not (keywordp (car gnus-face))))
(car gnus-face)
gnus-face)
val)
val)))))
(setq b e)))
(when (/= b end)
(inline
(gnus-put-text-property
b (setq b (next-single-property-change b 'gnus-face nil end))
prop val))))))
Wolfgang
next prev parent reply other threads:[~2012-09-08 11:45 UTC|newest]
Thread overview: 24+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-08-02 6:31 Tassilo Horn
2012-09-04 22:30 ` Lars Ingebrigtsen
2012-09-05 6:38 ` Tassilo Horn
2012-09-05 13:09 ` Lars Ingebrigtsen
2012-09-05 13:27 ` Tassilo Horn
2012-09-05 16:22 ` Lars Ingebrigtsen
2012-09-05 17:10 ` Tassilo Horn
2012-09-06 13:31 ` Wolfgang Jenkner
2012-09-06 13:53 ` Lars Ingebrigtsen
2012-09-06 14:23 ` Wolfgang Jenkner
2012-09-06 14:34 ` Lars Ingebrigtsen
2012-09-06 14:58 ` Wolfgang Jenkner
2012-09-06 18:14 ` Tassilo Horn
2012-09-06 18:30 ` Lars Ingebrigtsen
2012-09-07 15:59 ` Wolfgang Jenkner
2012-09-08 9:41 ` Wolfgang Jenkner
2012-09-08 11:45 ` Wolfgang Jenkner [this message]
2012-09-08 12:37 ` Tassilo Horn
2012-09-09 13:13 ` Wolfgang Jenkner
2012-09-09 18:54 ` Lars Ingebrigtsen
2012-09-15 15:24 ` Wolfgang Jenkner
2012-09-06 14:36 ` Lars Ingebrigtsen
2012-09-06 14:51 ` Wolfgang Jenkner
2012-09-06 18:29 ` Lars Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=851uicn2l9.fsf@iznogoud.viz \
--to=wjenkner@inode.at \
--cc=ding@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).