;;;
-;;; $Id: tm-mule.el,v 6.2 1995/06/19 18:54:53 morioka Exp $
+;;; $Id: tm-mule.el,v 6.4 1995/08/27 13:33:13 morioka Exp $
;;;
+(require 'emu)
(require 'tl-list)
-(require 'tl-mule)
-(if (not (fboundp 'member))
- (require 'tl-18)
- )
;;; @ variables
;;;
;;; @ define charset and encoding
;;;
+
(defun mime/set-charset-and-encoding (lc cs charset encoding)
(setq mime/lc-charset-and-encoding-alist
(put-alist lc (cons charset encoding)
(mime/remove-leading-character str)
str)))))
-;; by mol. 1993/10/4
-(defun mime/decode-encoded-text (charset encoding str)
- (mime/convert-string-to-emacs
- charset
- (cond ((string-match "^B$" encoding)
- (mime/base64-decode-string str))
- ((string-match "^Q$" encoding)
- (mime/Quoted-Printable-decode-string str))
- (t (message "unknown encoding %s" encoding) str)
- )))
-
(defun mime/code-convert-region-to-emacs (beg end charset &optional encoding)
(if (stringp charset)
)))
-(run-hooks 'tm-mule-load-hook)
+;;; @ end
+;;;
(provide 'tm-mule)
+
+(run-hooks 'tm-mule-load-hook)