From: morioka <morioka>
Date: Sat, 11 Apr 1998 22:26:38 +0000 (+0000)
Subject: (mime-view-display-message): Abolish unused local variable 'ctype.
X-Git-Tag: semi-1_2_2~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e0bdbf28417f5043e24aa2775041091efd1f4b69;p=elisp%2Fsemi.git

(mime-view-display-message): Abolish unused local variable 'ctype.
(mime-view-display-entity): Abolish unused local variable 'ctype.
---

diff --git a/mime-view.el b/mime-view.el
index 19978de..ef1d67d 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -648,11 +648,6 @@ The compressed face will be piped to this command.")
 	 (end (mime-entity-point-max message-info))
 	 (media-type (mime-entity-media-type message-info))
 	 (media-subtype (mime-entity-media-subtype message-info))
-	 (ctype (if media-type
-		    (if media-subtype
-			(format "%s/%s" media-type media-subtype)
-		      (symbol-name media-type)
-		      )))
 	 (params (mime-entity-parameters message-info))
 	 (encoding (mime-entity-encoding message-info))
 	 end-of-header e nb ne subj)
@@ -731,11 +726,6 @@ The compressed face will be piped to this command.")
 	 (end (mime-entity-point-max entity))
 	 (media-type (mime-entity-media-type entity))
 	 (media-subtype (mime-entity-media-subtype entity))
-	 (ctype (if media-type
-		    (if media-subtype
-			(format "%s/%s" media-type media-subtype)
-		      (symbol-name media-type)
-		      )))
 	 (params (mime-entity-parameters entity))
 	 (encoding (mime-entity-encoding entity))
 	 end-of-header e nb ne subj)