tm 6.50

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

diff --git a/tiny-mime.el b/tiny-mime.el
index d017434..0f87421 100644 (file)
--- a/tiny-mime.el
+++ b/tiny-mime.el
@@ -6,13 +6,11 @@
 ;;;    mime.el,v 1.5 1992/07/18 07:52:08 by Enami Tsugutomo
 ;;;
 
-(provide 'tiny-mime)
-
-
 ;;; @ require modules
 ;;;
 (require 'tl-header)
 (require 'tl-str)
+(require 'tl-num)
 (if (not (fboundp 'member))
     (require 'tl-18)
   )
@@ -21,7 +19,7 @@
 ;;; @ version
 ;;;
 (defconst mime/RCS-ID
-  "$Id: tiny-mime.el,v 5.11 1995/04/18 12:28:22 morioka Exp $")
+  "$Id: tiny-mime.el,v 5.12 1995/05/21 16:06:27 morioka Exp $")
 
 (defconst mime/tiny-mime-version (get-version-string mime/RCS-ID))
 
@@ -617,21 +615,6 @@
       )
     dest))
 
-;;; @ utility functions
-;;;
-
-;; by mol. 1993/10/4
-(defun hex-char-to-number (chr)
-  (cond ((and (<= ?0 chr)(<= chr ?9)) (- chr ?0))
-       ((and (<= ?A chr)(<= chr ?F)) (+ (- chr ?A) 10))
-       ((and (<= ?a chr)(<= chr ?f)) (+ (- chr ?a) 10))
-       ))
-
-(defun number-to-hex-char (n)
-  (if (< n 10)
-      (+ ?0 n)
-    (+ ?A (- n 10))))
-
 
 ;;; @ utility for encoder
 ;;;
@@ -843,6 +826,8 @@
 
 (run-hooks 'mime/tiny-mime-load-hook)
 
+(provide 'tiny-mime)
+
 ;;; @
 ;;; Local Variables:
 ;;; mode: emacs-lisp