From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/82284 Path: news.gmane.org!not-for-mail From: Wolfgang Jenkner Newsgroups: gmane.emacs.gnus.general Subject: Re: Summary line format and gnus-face-X Date: Sat, 08 Sep 2012 13:45:54 +0200 Message-ID: <851uicn2l9.fsf@iznogoud.viz> References: <87d3393iud.fsf@thinkpad.tsdh.de> <87mx15ifog.fsf@gnus.org> <87pq612cuj.fsf@thinkpad.tsdh.de> <87sjawd3ak.fsf@gnus.org> <87r4qg1qmr.fsf@thinkpad.tsdh.de> <87d320783z.fsf@gnus.org> <85ipbruvaz.fsf@iznogoud.viz> <87ehmfi7ff.fsf@gnus.org> <85ehmfut5m.fsf@iznogoud.viz> <87y5kngqz0.fsf@gnus.org> <87harbj9wu.fsf@thinkpad.tsdh.de> <87392vngvl.fsf@gnus.org> <85vcfphjs3.fsf@iznogoud.viz> <85zk50x35e.fsf@iznogoud.viz> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1347105884 12520 80.91.229.3 (8 Sep 2012 12:04:44 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 8 Sep 2012 12:04:44 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M30551@lists.math.uh.edu Sat Sep 08 14:04:46 2012 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1TAJmH-00053m-Ch for ding-account@gmane.org; Sat, 08 Sep 2012 14:04:45 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1TAJlX-0003HU-31; Sat, 08 Sep 2012 07:03:59 -0500 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1TAJlV-0003HK-RH for ding@lists.math.uh.edu; Sat, 08 Sep 2012 07:03:57 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.76) (envelope-from ) id 1TAJlT-0003ng-DY for ding@lists.math.uh.edu; Sat, 08 Sep 2012 07:03:57 -0500 Original-Received: from mx07.lb01.inode.at ([62.99.145.7] helo=mx.inode.at) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1TAJlR-0000Kz-Lq for ding@gnus.org; Sat, 08 Sep 2012 14:03:53 +0200 Original-Received: from [91.119.101.188] (port=8008 helo=iznogoud.viz) by smartmx-07.inode.at with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.69) (envelope-from ) id 1TAJlM-0004Co-By for ding@gnus.org; Sat, 08 Sep 2012 14:03:48 +0200 Original-Received: from wolfgang by iznogoud.viz with local (Exim 4.80 (FreeBSD)) (envelope-from ) id 1TAJlK-00015L-Fs for ding@gnus.org; Sat, 08 Sep 2012 14:03:46 +0200 Mail-Followup-To: ding@gnus.org User-Agent: Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.2.50 (berkeley-unix) X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:82284 Archived-At: 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