From 54d32503d0d72b5be93407639fb00aca4240d83a Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 8 Jun 1998 13:17:32 +0000 Subject: [PATCH] New module. --- mime-w3.el | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 mime-w3.el diff --git a/mime-w3.el b/mime-w3.el new file mode 100644 index 0000000..7d0e3d8 --- /dev/null +++ b/mime-w3.el @@ -0,0 +1,45 @@ +;;; mime-w3.el --- mime-view content filter for text + +;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc. + +;; Author: MORIOKA Tomohiko +;; Keywords: HTML, MIME, multimedia, mail, news + +;; This file is part of SEMI (Suite of Emacs MIME Interfaces). + +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 2, or (at +;; your option) any later version. + +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Code: + +(require 'w3) +(require 'mime-text) + +(defun mime-preview-text/html (entity situation) + (save-restriction + (narrow-to-region (point-max)(point-max)) + (mime-text-insert-decoded-body entity) + (let ((beg (point-min))) + (remove-text-properties beg (point-max) '(face nil)) + (w3-region beg (point-max)) + ))) + + +;;; @ end +;;; + +(provide 'mime-w3) + +;;; mime-w3.el ends here -- 1.7.10.4