From dcaedcc95962005e6d05ba0c7f7dc3deac527a92 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Tue, 6 Oct 1998 19:23:41 +0000
Subject: [PATCH] (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'.

---
 mime-view.el |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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
-- 
1.7.10.4