tm 5.12

[elisp/tm.git] / tiny-mime.el

diff --git a/tiny-mime.el b/tiny-mime.el
index 6bf81df..6093b37 100644 (file)
--- a/tiny-mime.el
+++ b/tiny-mime.el
@@ -1,27 +1,31 @@
-;;
-;;     A multilingual MIME message header encoder/decoder.
-;;         by Morioka Tomohiko (morioka@jaist.ac.jp)
-;;
-;;     original MIME decoder is
-;;         mime.el,v 1.5 1992/07/18 07:52:08 by Enami Tsugutomo
-;;
+;;;
+;;; A multilingual MIME message header encoder/decoder.
+;;;    by Morioka Tomohiko (morioka@jaist.ac.jp)
+;;;
+;;; original MIME decoder is
+;;;    mime.el,v 1.5 1992/07/18 07:52:08 by Enami Tsugutomo
+;;;
 
 (provide 'tiny-mime)
 
-(defconst mime/RCS-ID
-  "$Id: tiny-mime.el,v 4.8 1994/08/11 14:43:54 morioka Exp $")
-
-(defconst mime/tiny-mime-version
-  (and (string-match "[0-9][0-9.]*" mime/RCS-ID)
-       (substring mime/RCS-ID (match-beginning 0)(match-end 0))
-       ))
 
+;;; @ require modules
+;;;
 (require 'tl-header)
-
+(require 'tl-str)
 (if (not (fboundp 'member))
     (require 'tl-18)
   )
 
+
+;;; @ version
+;;;
+(defconst mime/RCS-ID
+  "$Id: tiny-mime.el,v 5.1 1994/10/17 07:40:33 morioka Exp $")
+
+(defconst mime/tiny-mime-version (get-version-string mime/RCS-ID))
+
+
 ;;; @ MIME encoded-word definition
 ;;;