Re: html mail filter in gnus

Re: html mail filter in gnus

[James Cozine]

Kin Cho <kin@neoscale.com> writes:

> Hi,
> 
> I'm getting html mail quite often now and it's getting annoying.
> Does anyone has a gnus filter to filter out the html tags and
> leave the plain text behind?
> 
> -kin

,----[ C-h v mm-discouraged-alternatives RET ]
| mm-discouraged-alternatives's value is 
| ("text/html" "text/richtext")
| 
| 
| Documentation:
| List of MIME types that are discouraged when viewing multipart/alternative.
| Viewing agents are supposed to view the last possible part of a message,
| as that is supposed to be the richest.  However, users may prefer other
| types instead, and this list says what types are most unwanted.  If,
| for instance, text/html parts are very unwanted, and text/richtext are
| somewhat unwanted, then the value of this variable should be set
| to:
| 
|  ("text/html" "text/richtext")
| 
| You can customize this variable.
| 
| Defined in `mm-decode'.
`----

-jc
-- 
Debug is human, de-fix divine.

Re: html mail filter in gnus

[Jonas Steverud]

Kin Cho <kin@neoscale.com> writes:

> Hi,
>
> I'm getting html mail quite often now and it's getting annoying.
> Does anyone has a gnus filter to filter out the html tags and
> leave the plain text behind?

I've added the following during the pGnus days:

(add-to-list 'mm-inline-media-tests '("text/html" nil (lambda (h) nil)))
(add-to-list 'mm-discouraged-alternatives "text/html")
(add-to-list 'mm-discouraged-alternatives "text/richtext")
(add-to-list 'mm-discouraged-alternatives "text/enriched")
(setq mm-automatic-display (remove "text/html" mm-automatic-display))
(setq mm-automatic-display (remove "text/richtext" mm-automatic-display))
(setq mm-automatic-display (remove "text/enriched" mm-automatic-display))

It doesn't handle all possible, broken ways HTML can get to you but it
helps a bit.

(Improvements that doesn't involve W3 or similar are welcome.)

-- 
(          www.dtek.chalmers.se/~d4jonas/         !     Wei Wu Wei     )
(        Meaning of U2 Lyrics, Roleplaying        !  To Do Without Do  )

Re: html mail filter in gnus

[Kin Cho]

D. Goel <deego@glue.umd.edu> writes:

> > Hi,
> > 
> > I'm getting html mail quite often now and it's getting annoying.
> > Does anyone has a gnus filter to filter out the html tags and
> > leave the plain text behind?
> 
> 
> this shows you the lynxed mail.. this got into my .gnus from an
> earlier post in g.e.gnus --->
> 
> 
> ;; function to call to handle text/html attachments
> (defun my:gnus-html2text (handle)
>   (let (text)
>     (with-temp-buffer
>       (mm-insert-part handle)
>       (save-window-excursion
>   	(my:html2text-region (point-min) (point-max))
>   	(setq text (buffer-string))))
>     (mm-insert-inline handle text)))
> 
> (defun my:html2text-region (min max)
>   "Replace the HTML region from MIN to MAX with lynx --dump."
>   (interactive "r")
>   (let ((file "~/tmp/email.html"))
>     (unwind-protect
>         (progn
>           (write-region min max file)
>           (delete-region min max)
>           (insert (shell-command-to-string
>                    (concat "lynx "
>                            "lynx -dump "
>                            (shell-quote-argument
>                             (expand-file-name file))))))
>       ;;(delete-file file)
>       )))

Hi,

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?

Thanks.

-kin

Re: html mail filter in gnus

[Nils Goesche]

D. Goel <deego@glue.umd.edu> writes:

[howto use lynx for HTML MIME parts]

And after a few changes, it works fine for me, too.  Thanks!

Here everything together:


(defun my:gnus-html2text (handle)
  (let (text)
    (with-temp-buffer
      (mm-with-unibyte-buffer
	(mm-insert-part handle)
	(save-window-excursion
	  (my:html2text-region (point-min) (point-max))
	  (setq text (buffer-string)))))
    (mm-insert-inline handle text)))

(defun my:html2text-region (min max)
  "Replace the HTML region from MIN to MAX with lynx --dump."
  (interactive "r")
  (let ((file "/tmp/email.html"))
    (unwind-protect
	 (progn
	   (write-region min max file)
	   (delete-region min max)
	   (insert (shell-command-to-string
		    (concat "lynx "
			    "lynx -dump "
			    (shell-quote-argument
			     (expand-file-name file))))))
      (delete-file file))))

(setq mm-inline-media-tests
      (cons '("text/html" my:gnus-html2text
	      (lambda (handle)
		(fboundp 'my:gnus-html2text)))
	    (let ((old (assoc "text/html" mm-inline-media-tests)))
	      (if old
		  (delete old mm-inline-media-tests)
		  mm-inline-media-tests))))

Regards,
-- 
Nils Goesche
"Don't ask for whom the <CTRL-G> tolls."

PGP key ID 0x0655CFA0

Re: html mail filter in gnus

[D. Goel]

(See Robin Socha's mail in a similar thread pointing to the page: 
http://my.gnus.org/Lisp/1012919677 )

[1] I was missing the 'credits' line in my .gnus---apologies for that.
i now see that that code was written by Mark Thomas.

[2] The code is perhaps now improved further on that page. 

[3] in any case, The code may have now been rendered obsolete (?) ---
the page says so.. (by gnus-art.el?)

DG                                 http://24.197.159.102/~deego/
--