Re: Adding MIME viewers

[Robert Bihlmeyer <robbe@orcus.priv.at>]

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>