From: morioka <morioka>
Date: Tue, 6 Oct 1998 19:23:41 +0000 (+0000)
Subject: (mime-view-version): Renamed from `mime-view-version-string'; use
X-Git-Tag: semi-1_8-for-flim-1_10-199811302358~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dcaedcc95962005e6d05ba0c7f7dc3deac527a92;p=elisp%2Fsemi.git

(mime-view-version): Renamed from `mime-view-version-string'; use
`mime-user-interface-product', `mime-product-name',
`mime-product-version' and `mime-product-code-name'.
---

diff --git a/mime-view.el b/mime-view.el
index ffd2579..f52432a 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -37,11 +37,12 @@
 ;;; @ version
 ;;;
 
-(defconst mime-view-version-string
-  `,(concat (car mime-user-interface-version) " MIME-View "
+(defconst mime-view-version
+  (eval-when-compile
+    (concat (mime-product-name mime-user-interface-product) " MIME-View "
 	    (mapconcat #'number-to-string
-		       (cddr mime-user-interface-version) ".")
-	    " (" (cadr mime-user-interface-version) ")"))
+		       (mime-product-version mime-user-interface-product) ".")
+	    " (" (mime-product-code-name mime-user-interface-product) ")")))
 
 
 ;;; @ variables