From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/53231 Path: main.gmane.org!not-for-mail From: Didier Verna Newsgroups: gmane.emacs.gnus.general Subject: Re: [COMMIT] More image fixes Date: Mon, 23 Jun 2003 19:56:54 +0200 Sender: ding-owner@lists.math.uh.edu Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: main.gmane.org 1056390950 22793 80.91.224.249 (23 Jun 2003 17:55:50 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 23 Jun 2003 17:55:50 +0000 (UTC) Original-X-From: ding-owner+M1775@lists.math.uh.edu Mon Jun 23 19:55:47 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19UVXf-0005vL-00 for ; Mon, 23 Jun 2003 19:55:47 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19UVXn-00022K-00; Mon, 23 Jun 2003 12:55:55 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19UVXj-00022F-00 for ding@lists.math.uh.edu; Mon, 23 Jun 2003 12:55:51 -0500 Original-Received: (qmail 16985 invoked by alias); 23 Jun 2003 17:55:50 -0000 Original-Received: (qmail 16980 invoked from network); 23 Jun 2003 17:55:50 -0000 Original-Received: from hermes.epita.fr (HELO epita.fr) (163.5.255.10) by sclp3.sclp.com with SMTP; 23 Jun 2003 17:55:50 -0000 Original-Received: from kualalumpur.lrde.epita.fr (kualalumpur.lrde.epita.fr [10.223.13.1]) by epita.fr id h5NHtmS08755 for EPITA Paris France Mon, 23 Jun 2003 19:55:48 +0200 (CEST) Original-Received: from debian.lrde.epita.fr ([10.223.13.53] helo=uzeb.lrde.epita.fr ident=mail) by kualalumpur.lrde.epita.fr with esmtp (Exim 3.35 #1 (Debian)) id 19UVYl-00011i-00 for ; Mon, 23 Jun 2003 19:56:55 +0200 Original-Received: from didier by uzeb.lrde.epita.fr with local (Exim 3.36 #1 (Debian)) id 19UVYk-0001X6-00 for ; Mon, 23 Jun 2003 19:56:54 +0200 Original-To: Gnus Beta Testers X-Attribution: drv X-Url: http://www.lrde.epita.fr/~didier X-Web: http://www.lrde.epita.fr/~didier X-Home-Page: http://www.lrde.epita.fr/~didier In-Reply-To: (Didier Verna's message of "Mon, 23 Jun 2003 19:53:49 +0200") Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAGFBMVEUzHxAOCgTPj3Kxgmrx 8e5kRzWSYkvfrJPjcnokAAACRElEQVR4nF3UzW7bMAwHcBqFcrYP2QPIQH0NrEV9gLjNVcEq9ZpN EM9Dksavvz8pux8zUDTQz6RESjJNh9B1LVEnD/43HdFtmiaanjFmOFbRF9o3hXeMZ+c5fML2JrBv 2uTwcCCSTHia1wob50c3Wl9iDAq0VaDsMGxt75wvyyJ+ChjnbG/16X3UkO5BIHkNuODPuaJr6LY3 gTo+iPSlztK+0nRngWGeBaxfCnr4H/pSV7xdAOMKo91LRNO2NL1wDagR1mMSc0LTPmFegChWyID5 EyKZeOq+gyR7DJTSb2zAdM86fvUcpR5XYuYd+qURw+0aE2ftmOfszgIHrHa+BJPHOonjfF0AqdBJ u3SyB5wUMppbsk8l5Qp8CRXG8TF7Uyi5AVU6ZqvwspFJzw9XZm0YICs8Y8uHniO6v0D5pXMcQ0hI UZLTFveA1EiB024Tn+bZ81gBhcr+Av7+EOidNkCBKhwjQNpUe1+hAUzvpkLtMACLUjgYSe4q9F9g SjorWjZL4UWgU+AneZVHOUHfYZjtgORyXHBM9QSvEZcZB5tRi8Ia4SUVjjS6hOuAM98ucP8z97gD nATwg9ZUh3wpZxM5e/YAY1Y4lmKwVdk+MvsSyJxW2BGuoZOFMcrDgVtgeokm8TCgarlulNZUuOsx Zut6bHwsZPgDjnjL8ROWWiRgL5+BCufOxDRizSHSV5h2TStfAawoNAYTfUTgKxABEcW1hsMXOLWR nWZqE4dAa6r7CR8UtI+opVTMd5CNAJhUNjjU/wDO4gP9rTbBKwAAAABJRU5ErkJggg== X-Face: "*C|dAfI:OJr4ya+/nZw:MYXw9O&JQK*s)50N!*1F%#Ym&dI =?d|X{Vgt*{A=AzA@*"$6Lx 3;4(,|aZG{-{ljapPq2o>VNH5$iT/DQy3lg1u+t-'=,[LDiGEb9yy^{VG}"'\X|d>k3pt|1!T|46ajXf\> Mail-Copies-To: never User-Agent: Gnus/5.1003 (Gnus v5.10.3) XEmacs/21.4 (Rational FORTRAN, linux) Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:53231 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:53231 I wrote: > * gnus-ems.el (gnus-put-image): New argument CATEGORY. Add it as a > text property. > (gnus-remove-image): New argument CATEGORY. Only remove if > category matches. BTW, somebody should check this part, because I don't use GNU Emacs. Patch re-inserted below: > Index: lisp/gnus-ems.el > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D > RCS file: /usr/local/cvsroot/gnus/lisp/gnus-ems.el,v > retrieving revision 6.26 > diff -u -u -t -b -B -w -r6.26 gnus-ems.el > --- lisp/gnus-ems.el 2 May 2003 17:52:53 -0000 6.26 > +++ lisp/gnus-ems.el 23 Jun 2003 17:34:35 -0000 > @@ -219,16 +219,19 @@ > (setq props (plist-put props :background (face-background face)))) > (apply 'create-image file type data-p props))) > > -(defun gnus-put-image (glyph &optional string) > +(defun gnus-put-image (glyph &optional string category) > (insert-image glyph (or string " ")) > + (put-text-property (1- (point)) (point) 'gnus-image-category category) > (unless string > (put-text-property (1- (point)) (point) > 'gnus-image-text-deletable t)) > glyph) > > -(defun gnus-remove-image (image) > +(defun gnus-remove-image (image &optional category) > (dolist (position (message-text-with-property 'display)) > - (when (equal (get-text-property position 'display) image) > + (when (and (equal (get-text-property position 'display) image) > + (equal (get-text-property position 'gnus-image-category) > + category)) > (put-text-property position (1+ position) 'display nil) > (when (get-text-property position 'gnus-image-text-deletable) > (delete-region position (1+ position)))))) --=20 Didier Verna, didier@lrde.epita.fr, http://www.lrde.epita.fr/~didier EPITA / LRDE, 14-16 rue Voltaire Tel.+33 (1) 44 08 01 85 94276 Le Kremlin-Bic=EAtre, France Fax.+33 (1) 53 14 59 22 didier@xemac= s.org