From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/25808
Path: main.gmane.org!not-for-mail
From: Robert Bihlmeyer <robbe@orcus.priv.at>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Adding MIME viewers
Date: 09 Oct 1999 16:20:41 +0200
Sender: owner-ding@hpc.uh.edu
Message-ID: <ws3dvk62fa.fsf@orcus.priv.at>
References: <uogfbhzb5.fsf@lanber.cam.citrix.com> <m33dw374ea.fsf@quimbies.gnus.org> <uiu4n9vpk.fsf@lanber.cam.citrix.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035163128 15961 80.91.224.250 (21 Oct 2002 01:18:48 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 01:18:48 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id EAA14611
	for <jason@mailhost.sclp.com>; Mon, 11 Oct 1999 04:27:10 -0400 (EDT)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id DAB06484;
	Mon, 11 Oct 1999 03:26:56 -0500 (CDT)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 11 Oct 1999 03:27:21 -0500 (CDT)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id DAA22059
	for <ding@hpc.uh.edu>; Mon, 11 Oct 1999 03:27:12 -0500 (CDT)
Original-Received: from relay8.Austria.EU.net (relay8.Austria.EU.net [193.154.160.146])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id EAA14604
	for <ding@gnus.org>; Mon, 11 Oct 1999 04:25:15 -0400 (EDT)
Original-Received: (from uucp@localhost)
	by relay8.Austria.EU.net (8.9.3/8.9.3) with UUCP id KAA02657
	for ding@gnus.org; Mon, 11 Oct 1999 10:12:09 +0200 (MET DST)
Original-Received: (qmail 28875 invoked by uid 115); 9 Oct 1999 14:20:42 -0000
Original-To: The Gnus Mailing List <ding@gnus.org>
X-Attribution: Robbe
In-Reply-To: Toby Speight's message of "04 Oct 1999 13:06:15 +0100"
Original-Lines: 37
User-Agent: Gnus/5.070096 (Pterodactyl Gnus v0.96) XEmacs/21.1 (Biscayne)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:25808
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:25808

Hi,

>>>>> On 04 Oct 1999 13:06:15 +0100
>>>>> Toby Speight <Toby.Speight@streapadair.freeserve.co.uk> said:

 Toby> (defun mm-display-patch-inline (handle)
 Toby>   (let (text)
 Toby>     (with-temp-buffer
 Toby>       (mm-insert-part handle)
 Toby>       (diff-mode)
 Toby>       (font-lock-fontify-buffer)
 Toby>       (setq text (buffer-string)))
 Toby>     (mm-insert-inline handle text)))

this does not work as expected here on XEmacs 21.1 (patch 7), because
these colors are not duplicable. FWIW, the following does the trick:

(defun mm-display-patch-inline (handle)
  (let (text)
    (with-temp-buffer
      (mm-insert-part handle)
      (diff-mode)
      (font-lock-fontify-buffer)
      (if (fboundp 'extent-list)
	  (mapc (lambda (el) (set-extent-property el 'duplicable t))
		(extent-list)))
      (setq text (buffer-string)))
    (mm-insert-inline handle text)))

Maybe this is really a misfeature of fontification, and the original
version should work?

        Robbe

-- 
Robert Bihlmeyer       reads: Deutsch, English, MIME, Latin-1, NO SPAM!
<robbe@orcus.priv.at>    <http://stud2.tuwien.ac.at/~e9426626/sig.html>