tm 7.38.

[elisp/tm.git] / gnus / tm-sgnus.el

diff --git a/gnus/tm-sgnus.el b/gnus/tm-sgnus.el
index 6870be6..ed7c0b6 100644 (file)
--- a/gnus/tm-sgnus.el
+++ b/gnus/tm-sgnus.el
@@ -5,9 +5,10 @@
 ;;; Copyright (C) 1995 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;;         MURATA Masahiro <murata@sol.cs.ritsumei.ac.jp>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1995/09/24
-;;; Version: $Revision: 7.26 $
+;;; Version: $Revision: 7.28 $
 ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -35,12 +36,14 @@
 (require 'gnus)
 (require 'tm-gd5)
 
+(eval-when-compile (require 'cl))
+
 
 ;;; @ version
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-sgnus.el,v 7.26 1995/12/20 12:49:27 morioka Exp $")
+  "$Id: tm-sgnus.el,v 7.28 1995/12/22 07:50:17 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for September"))
@@ -237,7 +240,8 @@ This variable is set to `gnus-show-mime'.")
       (while want-list
        (insert (pop want-list)))
       (add-text-properties 
-       (point) (point-max) gnus-hidden-properties)
+       (point) (point-max)
+       (nconc (list 'gnus-type 'headers) gnus-hidden-properties))
       )))
 
 (defun tm-gnus/content-header-filter ()