From: morioka <morioka>
Date: Mon, 17 Mar 1997 13:49:27 +0000 (+0000)
Subject: (mime-view-header-visible-p): Abolish optional argument `ctype'.
X-Git-Tag: Hokutetsu-Ishikawa-new~85
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5d8bba3b19b5e0fe8dcb87969998f468cff792d3;p=elisp%2Fsemi.git

(mime-view-header-visible-p): Abolish optional argument `ctype'.
---

diff --git a/mime-view.el b/mime-view.el
index 2f32693..2f1731f 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -6,7 +6,7 @@
 ;; Created: 1994/7/13
 ;;	Renamed: 1994/8/31 from tm-body.el
 ;;	Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.44 $
+;; Version: $Revision: 0.45 $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -40,7 +40,7 @@
 ;;;
 
 (defconst mime-view-RCS-ID
-  "$Id: mime-view.el,v 0.44 1997-03-17 13:46:57 morioka Exp $")
+  "$Id: mime-view.el,v 0.45 1997-03-17 13:49:27 morioka Exp $")
 
 (defconst mime-view-version (get-version-string mime-view-RCS-ID))
 
@@ -194,17 +194,13 @@ Each elements are regexp of field-name. [mime-view.el]")
 ;;; @@ predicate functions
 ;;;
 
-(defun mime-view-header-visible-p (rcnum cinfo &optional ctype)
+(defun mime-view-header-visible-p (rcnum cinfo)
   "Return non-nil if header of current entity is visible."
   (or (null rcnum)
-      (progn
-	(or ctype
-	    (setq ctype
-		  (mime::content-info/type
-		   (mime-article/rcnum-to-cinfo (cdr rcnum) cinfo)
-		   )))
-	(member ctype mime-view-childrens-header-showing-Content-Type-list)
-	)))
+      (member (mime::content-info/type
+	       (mime-article/rcnum-to-cinfo (cdr rcnum) cinfo))
+	      mime-view-childrens-header-showing-Content-Type-list)
+      ))
 
 (defun mime-view-body-visible-p (rcnum cinfo &optional ctype)
   (let (ccinfo)
@@ -335,7 +331,7 @@ Each elements are regexp of field-name. [mime-view.el]")
 ;;;
 
 (defun mime-preview/default-content-separator (rcnum cinfo ctype params subj)
-  (if (and (not (mime-view-header-visible-p rcnum cinfo ctype))
+  (if (and (not (mime-view-header-visible-p rcnum cinfo))
 	   (not (mime-view-body-visible-p rcnum cinfo ctype))
 	   )
       (progn
@@ -517,7 +513,7 @@ The compressed face will be piped to this command.")
     (setq nb (point))
     (narrow-to-region nb nb)
     (mime-view-entity-button-function rcnum cinfo ctype params subj encoding)
-    (if (mime-view-header-visible-p rcnum cinfo ctype)
+    (if (mime-view-header-visible-p rcnum cinfo)
 	(mime-preview/display-header beg he)
       )
     (if (and (null rcnum)