[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: html mail filter in gnus

From: D . Goel
Subject: Re: html mail filter in gnus
Date: 19 Sep 2002 16:58:01 -0400
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2

Kin Cho <address@hidden> writes:

> This approach seems to best fit my need.  How do you hook
> my:gnus-html2text into gnus so that it is run automatically on
> html mail?

oh, forgot to paste that part.. wow, never realized my .gnus has
become so bizarre by now--->

I guess this (dotgnus-remassoc) removes any previous text/html
bindings that mm-inline-media-tests may have.  Dunno if this step is
needed.  Wasn't there a simpler function for this dotgnus-remassoc?
remove* perhaps?

(setq ;; use lynx -dump to view inline HTML mm-inline-media-tests
(cons '("text/html" my:gnus-html2text (lambda (handle) (fboundp
'my:gnus-html2text))) (dotgnus-remassoc "text/html"
mm-inline-media-tests)) )

(defun dotgnus-remassoc (elt list)
  (let ((result '()))
    (mapcar (lambda (e) (unless (and (consp e)
                                     (equal elt (car e)))
                          (setq result (cons e result))))
    (nreverse result)))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]