* Re: html mail filter in gnus [not found] <7ifzw8tp5z.fsf@neoscale.com> @ 2002-09-17 22:16 ` James Cozine 2002-09-18 8:57 ` Jonas Steverud [not found] ` <87hegnjc3f.fsf@computer.localdomain> 2 siblings, 0 replies; 5+ messages in thread From: James Cozine @ 2002-09-17 22:16 UTC (permalink / raw) 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. ^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: html mail filter in gnus [not found] <7ifzw8tp5z.fsf@neoscale.com> 2002-09-17 22:16 ` html mail filter in gnus James Cozine @ 2002-09-18 8:57 ` Jonas Steverud [not found] ` <87hegnjc3f.fsf@computer.localdomain> 2 siblings, 0 replies; 5+ messages in thread From: Jonas Steverud @ 2002-09-18 8:57 UTC (permalink / raw) 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 ) ^ permalink raw reply [flat|nested] 5+ messages in thread
[parent not found: <87hegnjc3f.fsf@computer.localdomain>]
* Re: html mail filter in gnus [not found] ` <87hegnjc3f.fsf@computer.localdomain> @ 2002-09-19 20:28 ` Kin Cho [not found] ` <7i8z1xzpuc.fsf@neoscale.com> 1 sibling, 0 replies; 5+ messages in thread From: Kin Cho @ 2002-09-19 20:28 UTC (permalink / raw) 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 ^ permalink raw reply [flat|nested] 5+ messages in thread
[parent not found: <7i8z1xzpuc.fsf@neoscale.com>]
[parent not found: <87r8fp1yue.fsf@computer.localdomain>]
[parent not found: <87n0qd1ypw.fsf@computer.localdomain>]
* Re: html mail filter in gnus [not found] ` <87n0qd1ypw.fsf@computer.localdomain> @ 2002-09-20 15:17 ` Nils Goesche [not found] ` <lky99wlmg2.fsf@pc022.bln.elmeg.de> 1 sibling, 0 replies; 5+ messages in thread From: Nils Goesche @ 2002-09-20 15:17 UTC (permalink / raw) 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 ^ permalink raw reply [flat|nested] 5+ messages in thread
[parent not found: <lky99wlmg2.fsf@pc022.bln.elmeg.de>]
[parent not found: <87it10vccm.fsf@computer.localdomain>]
[parent not found: <lklm5wleze.fsf@pc022.bln.elmeg.de>]
* Re: html mail filter in gnus [not found] ` <lklm5wleze.fsf@pc022.bln.elmeg.de> @ 2002-09-24 22:06 ` D. Goel 0 siblings, 0 replies; 5+ messages in thread From: D. Goel @ 2002-09-24 22:06 UTC (permalink / raw) (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/ -- ^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2002-09-24 22:06 UTC | newest] Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed) -- links below jump to the message on this page -- [not found] <7ifzw8tp5z.fsf@neoscale.com> 2002-09-17 22:16 ` html mail filter in gnus James Cozine 2002-09-18 8:57 ` Jonas Steverud [not found] ` <87hegnjc3f.fsf@computer.localdomain> 2002-09-19 20:28 ` Kin Cho [not found] ` <7i8z1xzpuc.fsf@neoscale.com> [not found] ` <87r8fp1yue.fsf@computer.localdomain> [not found] ` <87n0qd1ypw.fsf@computer.localdomain> 2002-09-20 15:17 ` Nils Goesche [not found] ` <lky99wlmg2.fsf@pc022.bln.elmeg.de> [not found] ` <87it10vccm.fsf@computer.localdomain> [not found] ` <lklm5wleze.fsf@pc022.bln.elmeg.de> 2002-09-24 22:06 ` D. Goel
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).