tm-rich.el

   1 ;;;
   2 ;;; tm-rich.el --- text/enriched and text/richtext style
   3 ;;;                richtext filter for tm-view
   4 ;;;
   5 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
   6 ;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
   7 ;;;
   8 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
   9 ;;; Version:
  10 ;;;     $Id: tm-rich.el,v 7.1 1995/10/20 10:40:06 morioka Exp $
  11 ;;; Keywords: mail, news, MIME, multimedia, richtext, enriched
  12 ;;;
  13 ;;; This file is part of tm (Tools for MIME).
  14 ;;;
  15
  16 (require 'tm-view)
  17
  18
  19 (defvar tm-rich/richtext-module
  20   (if (or (< emacs-major-version 19)
  21           (and (= emacs-major-version 19)
  22                (< emacs-minor-version 29))
  23           )
  24       'tinyrich
  25     'richtext))
  26 (require tm-rich/richtext-module)
  27
  28
  29 ;;; @ content filters for tm-view
  30 ;;;
  31
  32 (defun mime-viewer/filter-text/richtext (ctype params encoding)
  33   (let* ((mode mime::preview/original-major-mode)
  34          (m (assq mode mime-viewer/code-converter-alist))
  35          (charset (assoc "charset" params))
  36          ;; 1995/9/21 (c.f. tm-eng:105), 1995/10/3 (c.f. tm-eng:121)
  37          ;;   modified by Eric Ding <ericding@San-Jose.ate.slb.com>
  38          (beg (point-min)) (end (point-max))
  39          )
  40     (remove-text-properties beg end '(face nil))
  41     (mime/decode-region encoding beg end)
  42     (if (and m (fboundp (setq m (cdr m))))
  43         (funcall m beg (point-max) charset encoding)
  44       (mime-viewer/default-code-convert-region beg (point-max)
  45                                                charset encoding)
  46       )
  47     (richtext-decode beg (point-max))
  48     ))
  49
  50 (defun mime-viewer/filter-text/enriched (ctype params encoding)
  51   (let* ((mode mime::preview/original-major-mode)
  52          (m (assq mode mime-viewer/code-converter-alist))
  53          (charset (assoc "charset" params))
  54          ;; 1995/9/21 (c.f. tm-eng:105), 1995/10/3 (c.f. tm-eng:121)
  55          ;;   modified by Eric Ding <ericding@San-Jose.ate.slb.com>
  56          (beg (point-min)) (end (point-max))
  57          )
  58     (remove-text-properties beg end '(face nil))
  59     (mime/decode-region encoding beg end)
  60     (if (and m (fboundp (setq m (cdr m))))
  61         (funcall m beg (point-max) charset encoding)
  62       (mime-viewer/default-code-convert-region beg (point-max)
  63                                                charset encoding)
  64       )
  65     (enriched-decode beg (point-max))
  66     ))
  67
  68
  69 ;;; @ setting
  70 ;;;
  71
  72 (set-alist 'mime-viewer/content-filter-alist
  73            "text/richtext" (function mime-viewer/filter-text/richtext))
  74
  75 (set-alist 'mime-viewer/content-filter-alist
  76            "text/enriched" (function mime-viewer/filter-text/enriched))
  77
  78
  79 ;;; @ end
  80 ;;;
  81
  82 (provide 'tm-rich)
  83
  84 (run-hooks 'tm-rich-load-hook)