From: morioka <morioka>
Date: Wed, 17 Jun 1998 20:40:48 +0000 (+0000)
Subject: (mime-view-insert-entity-button): Change interface.
X-Git-Tag: remi-199811302358~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=190f6280b5845b82dc4336766bb7c5fa2a0bb447;p=elisp%2Fsemi.git

(mime-view-insert-entity-button): Change interface.
---

diff --git a/mime-view.el b/mime-view.el
index 9109f57..2658658 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -335,10 +335,11 @@ Please redefine this function if you want to change default setting."
 ;;; @@@ entity button generator
 ;;;
 
-(defun mime-view-insert-entity-button (entity subject)
+(defun mime-view-insert-entity-button (entity)
   "Insert entity-button of ENTITY."
   (let ((entity-node-id (mime-entity-node-id entity))
-	(params (mime-entity-parameters entity)))
+	(params (mime-entity-parameters entity))
+	(subject (mime-view-entity-title entity)))
     (mime-insert-button
      (let ((access-type (assoc "access-type" params))
 	   (num (or (cdr (assoc "x-part-number" params))
@@ -802,8 +803,7 @@ The compressed face will be piped to this command.")
       (narrow-to-region nb nb)
       (or button-is-invisible
 	  (if (mime-view-entity-button-visible-p entity)
-	      (mime-view-insert-entity-button entity
-					      (mime-view-entity-title entity))
+	      (mime-view-insert-entity-button entity)
 	    ))
       (when header-is-visible
 	(if header-presentation-method
@@ -828,8 +828,7 @@ The compressed face will be piped to this command.")
 	    (t
 	     (when button-is-invisible
 	       (goto-char (point-max))
-	       (mime-view-insert-entity-button entity
-					       (mime-view-entity-title entity))
+	       (mime-view-insert-entity-button entity)
 	       )
 	     (or header-is-visible
 		 (progn