Gnus development mailing list
 help / color / mirror / Atom feed
From: wmperry@aventail.com (William M. Perry)
Subject: Re: MIME vs HTML
Date: 30 Nov 1998 17:03:13 -0500	[thread overview]
Message-ID: <86zp98g7oe.fsf@kramer.bp.aventail.com> (raw)
In-Reply-To: Lars Magne Ingebrigtsen's message of "29 Nov 1998 19:24:02 +0100"

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> wmperry@aventail.com (William M. Perry) writes:
> 
> >   Definitely not with those colors...  This is probably because I set the
> > specifier for the default face on the _buffer_ - I thought you did your
> > HTML drawing in a separate buffer?
> 
> I did, but I changed it to use the render in the article buffer so that
> pictures and stuff would survive.
> 
> One solution would be to have the undisplayer function reset the buffer
> background (and stuff) to what it was before w3 did, er, stuff.  Is there
> a w3 function that might be called to "normalize" the buffer?

(defun remove-w3-properties (&optional buffer)
  (setq buffer (or buffer (current-buffer)))
  (mapc (lambda (prop) (remove-specifier (face-property 'default prop) buffer))
	'(background background-pixmap foreground)))

(remove-w3-properties (get-buffer gnus-article-buffer))

What about that?  Or...


*** mm-view.el~ Sun Nov 29 11:54:37 1998
--- mm-view.el  Mon Nov 30 17:02:36 1998
***************
*** 83,88 ****
--- 83,90 ----
           handle
           `(lambda ()
              (let (buffer-read-only)
+               (mapc (lambda (prop) (remove-specifier (face-property 'default prop) (current-buffer)))
+                     '(background background-pixmap foreground))
                (delete-region
                 ,(set-marker (make-marker) (point-min))
                 ,(set-marker (make-marker) (point-max)))))))))

This seems to do the trick for me.

-bp


  reply	other threads:[~1998-11-30 22:03 UTC|newest]

Thread overview: 15+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1998-11-25 20:56 Lars Magne Ingebrigtsen
1998-11-26  0:26 ` William M. Perry
1998-11-27 12:17   ` Lars Magne Ingebrigtsen
1998-11-29  0:47     ` William M. Perry
1998-11-29 15:06       ` Lars Magne Ingebrigtsen
1998-11-29 17:32         ` William M. Perry
1998-11-29 18:24           ` Lars Magne Ingebrigtsen
1998-11-30 22:03             ` William M. Perry [this message]
1998-12-01  0:01               ` Lars Magne Ingebrigtsen
1998-11-29 18:53           ` Lars Magne Ingebrigtsen
1998-11-30 22:09             ` William M. Perry
1998-12-01  0:13               ` Lars Magne Ingebrigtsen
1998-11-29  5:11     ` William M. Perry
1998-12-02 19:27     ` Joe Wells
1998-12-02 21:41       ` Hrvoje Niksic

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=86zp98g7oe.fsf@kramer.bp.aventail.com \
    --to=wmperry@aventail.com \
    /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).