tm 5.12

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

diff --git a/tiny-mime.el b/tiny-mime.el
index 7052237..6093b37 100644 (file)
--- a/tiny-mime.el
+++ b/tiny-mime.el
@@ -1,22 +1,29 @@
-;;
-;;     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.7 1994/08/03 05:40:35 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