tm 7.33.

[elisp/tm.git] / tm-view.el

diff --git a/tm-view.el b/tm-view.el
index 767e49b..8270505 100644 (file)
--- a/tm-view.el
+++ b/tm-view.el
@@ -8,7 +8,7 @@
 ;;; modified by Steven L. Baur <steve@miranova.com>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
-;;; Version: $Revision: 7.32.1.2 $
+;;; Version: $Revision: 7.33 $
 ;;; Keywords: mail, news, MIME, multimedia
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -44,7 +44,7 @@
 ;;;
 
 (defconst mime-viewer/RCS-ID
-  "$Id: tm-view.el,v 7.32.1.2 1995/12/10 20:29:06 morioka Exp $")
+  "$Id: tm-view.el,v 7.33 1995/12/13 05:46:06 morioka Exp $")
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)
@@ -118,8 +118,9 @@
 (defvar mime-viewer/uuencode-encoding-name-list '("x-uue" "x-uuencode"))
 
 (defvar mime-viewer/ignored-field-list
-  '(".*Received" "Return-Path" "Replied" "Errors-To"
-    "Lines" "Sender" "Path" "Nntp-Posting-Host"
+  '(".*Received" ".*Path" ".*Id"
+    "Replied" "Errors-To"
+    "Lines" "Sender" "Nntp-Posting-Host"
     "Content-Type" "Precedence" "X-Face"
     "Status" "X-VM-.*")
   "All fields that match this list will be hidden in MIME preview buffer.
@@ -130,6 +131,17 @@ Each elements are regexp of field-name. [tm-view.el]")
          (apply (function regexp-or) mime-viewer/ignored-field-list)
          ":"))
 
+(defvar mime-viewer/visible-field-list
+  '("Message-Id")
+  "All fields that match this list will be displayed in MIME preview buffer.
+Each elements are regexp of field-name. [tm-view.el]")
+
+(defvar mime-viewer/visible-field-regexp
+  (concat "^"
+         (apply (function regexp-or) mime-viewer/visible-field-list)
+         ":"))
+
+
 (defvar mime-viewer/announcement-for-message/partial
   (if (and (>= emacs-major-version 19) window-system)
       "\
@@ -229,18 +241,28 @@ Each elements are regexp of field-name. [tm-view.el]")
 ;;; @@ content header filter
 ;;;
 
-(defun mime-viewer/default-content-header-filter ()
+(defun mime-preview/cut-header ()
   (goto-char (point-min))
-  (while (and (re-search-forward mime-viewer/ignored-field-regexp nil t)
-             (progn
+  (while (and
+         (re-search-forward mime-viewer/ignored-field-regexp nil t)
+         (let* ((beg (match-beginning 0))
+                (end (match-end 0))
+                (name (buffer-substring beg end))
+                )
+           (if (not (string-match mime-viewer/visible-field-regexp name))
                (delete-region
-                (match-beginning 0)
+                beg
                 (save-excursion
                   (and
                    (re-search-forward "^\\([^ \t]\\|$\\)" nil t)
                    (match-beginning 0)
                    )))
-               t)))
+             )
+           t)))
+  )
+
+(defun mime-viewer/default-content-header-filter ()
+  (mime-preview/cut-header)
   (mime/decode-message-header)
   )