From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: D. Goel Newsgroups: gmane.emacs.help Subject: Re: html mail filter in gnus Date: 19 Sep 2002 16:58:01 -0400 Organization: Posted via Supernews, http://www.supernews.com Sender: help-gnu-emacs-admin@gnu.org Message-ID: <87r8fp1yue.fsf@computer.localdomain> References: <7ifzw8tp5z.fsf@neoscale.com> <87hegnjc3f.fsf@computer.localdomain> <7i8z1xzpuc.fsf@neoscale.com> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1032469557 10456 127.0.0.1 (19 Sep 2002 21:05:57 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Thu, 19 Sep 2002 21:05:57 +0000 (UTC) Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 17s8Uk-0002iD-00 for ; Thu, 19 Sep 2002 23:05:54 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10) id 17s8V6-0006Kj-00; Thu, 19 Sep 2002 17:06:16 -0400 Original-Path: shelby.stanford.edu!nntp.stanford.edu!newsfeed.stanford.edu!bloom-beacon.mit.edu!ra.nrl.navy.mil!dca6-feed2.news.algx.net!allegiance!newsfeed1.cidera.com!Cidera!telocity-west!TELOCITY!sn-xit-03!sn-xit-01!sn-post-02!sn-post-01!supernews.com!corp.supernews.com!not-for-mail Original-Newsgroups: gnu.emacs.help,gnu.emacs.gnus User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 Original-X-Complaints-To: abuse@supernews.com Original-Lines: 37 Original-Xref: nntp.stanford.edu gnu.emacs.help:105086 gnu.emacs.gnus:60698 Original-To: help-gnu-emacs@gnu.org Errors-To: help-gnu-emacs-admin@gnu.org X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.help:1640 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:1640 Kin Cho 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)))) list) (nreverse result))) DG http://24.197.159.102/~deego/ --