From dc2d3a28ac1c26cc2eaa5a6057c99b276e1bc202 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Wed, 25 Feb 1998 14:07:11 +0000
Subject: [PATCH] (mime-view-version-string): Use `semi-version'; abolish
 `mime-view-version' and `mime-view-RCS-ID'.

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

diff --git a/mime-view.el b/mime-view.el
index 057f8dc..4b34e15 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1,15 +1,14 @@
 ;;; mime-view.el --- interactive MIME viewer for GNU Emacs
 
-;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1994/7/13
 ;;	Renamed: 1994/8/31 from tm-body.el
 ;;	Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.119 $
 ;; Keywords: MIME, multimedia, mail, news
 
-;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
+;; This file is part of SEMI (Sophisticated Emacs MIME Interfaces).
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -38,15 +37,10 @@
 ;;; @ version
 ;;;
 
-(defconst mime-view-RCS-ID
-  "$Id: mime-view.el,v 0.119 1998-02-25 13:44:07 morioka Exp $")
-
-(defconst mime-view-version
-  `,(get-version-string mime-view-RCS-ID))
-
 (defconst mime-view-version-string
-  `,(concat "SEMI MIME-View " mime-view-version
-	    " (" semi-version-name ")"))
+  `,(concat "SEMI MIME-View "
+	    (mapconcat #'number-to-string (cdr semi-version) ".")
+	    " (" (car semi-version) ")"))
 
 
 ;;; @ variables
-- 
1.7.10.4