X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mel.el;h=c8764a9cd04873a76337e64fc38170248da95677;hb=3c07ee018fb2fa3178e4eef483aee0326a2a52a6;hp=b1c96e558fe67272fdf59320fd9cdcbc693f200d;hpb=ebd8b3f8be03789c61063c6ed81cb28b02375b96;p=elisp%2Fflim.git

diff --git a/mel.el b/mel.el
index b1c96e5..c8764a9 100644
--- a/mel.el
+++ b/mel.el
@@ -3,11 +3,10 @@
 ;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; modified by Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
 ;; Created: 1995/6/25
 ;; Keywords: MIME, Base64, Quoted-Printable, uuencode, gzip64
 
-;; This file is part of MEL (MIME Encoding Library).
+;; This file is part of FLIM (Faithful Library about Internet Message).
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -26,535 +25,237 @@
 
 ;;; Code:
 
-(require 'emu)
+(require 'mime-def)
+(require 'poem)
+
+(defcustom mime-encoding-list
+  '("7bit" "8bit" "binary" "base64" "quoted-printable")
+  "List of Content-Transfer-Encoding.  Each encoding must be string."
+  :group 'mime
+  :type '(repeat string))
+
+(defun mime-encoding-list (&optional service)
+  "Return list of Content-Transfer-Encoding.
+If SERVICE is specified, it returns available list of
+Content-Transfer-Encoding for it."
+  (if service
+      (let (dest)
+	(mapatoms (lambda (sym)
+		    (or (eq sym nil)
+			(setq dest (cons (symbol-name sym) dest)))
+		    )
+		  (symbol-value (intern (format "%s-obarray" service))))
+	(let ((rest mel-encoding-module-alist)
+	      pair)
+	  (while (setq pair (car rest))
+	    (let ((key (car pair)))
+	      (or (member key dest)
+		  (<= (length key) 1)
+		  (setq dest (cons key dest))))
+	    (setq rest (cdr rest)))
+	  )
+	dest)
+    mime-encoding-list))
+
+(defun mime-encoding-alist (&optional service)
+  "Return table of Content-Transfer-Encoding for completion."
+  (mapcar #'list (mime-encoding-list service))
+  )
+
+(defsubst mel-use-module (name encodings)
+  (let (encoding)
+    (while (setq encoding (car encodings))
+      (set-alist 'mel-encoding-module-alist
+		 encoding
+		 (cons name (cdr (assoc encoding mel-encoding-module-alist))))
+      (setq encodings (cdr encodings))
+      )))
 
+(defsubst mel-find-function (service encoding)
+  (mel-find-function-from-obarray
+   (symbol-value (intern (format "%s-obarray" service))) encoding))
 
-;;; @ variable
-;;;
 
-(defvar base64-internal-encoding-limit 1000
-  "*limit size to use internal base64 encoder.
-If size of input to encode is larger than this limit,
-external encoder is called.")
-
-(defvar base64-internal-decoding-limit 1000
-  "*limit size to use internal base64 decoder.
- size of input to decode is larger than this limit,
-external decoder is called.")
-
-(defvar quoted-printable-internal-encoding-limit
-  (if (and (featurep 'xemacs)(featurep 'mule))
-      0
-    (require 'path-util)
-    (if (exec-installed-p "mmencode")
-        1000
-      (message "Don't found external encoder for Quoted-Printable!")
-      nil))
-  "*limit size to use internal quoted-printable encoder.
-If size of input to encode is larger than this limit,
-external encoder is called.")
-
-(defvar quoted-printable-internal-decoding-limit nil
-  "*limit size to use internal quoted-printable decoder.
-If size of input to decode is larger than this limit,
-external decoder is called.")
-
-
-;;; @ autoload
+;;; @ setting for modules
 ;;;
 
-;; mel-dl
-(defvar base64-dl-module
-  (and (fboundp 'dynamic-link)
-       (let ((path (expand-file-name "base64.so" exec-directory)))
-	 (and (file-exists-p path)
-	      path))))
-
-(when base64-dl-module
-  (autoload 'base64-dl-encode-string "mel-dl"
-   "Encode STRING to base64, and return the result.")
-  (autoload 'base64-dl-decode-string "mel-dl"
-   "Decode STRING which is encoded in base64, and return the result.")
-  (autoload 'base64-dl-encode-region "mel-dl"
-   "Encode current region by base64." t)
-  (autoload 'base64-dl-decode-region "mel-dl"
-   "Decode current region by base64." t))
-
-;; mel-b
-(autoload 'base64-internal-encode-string "mel-b"
- "Encode STRING to base64, and return the result.")
-(autoload 'base64-internal-decode-string "mel-b"
- "Decode STRING which is encoded in base64, and return the result.")
-(autoload 'base64-internal-encode-region "mel-b"
- "Encode current region by base64." t)
-(autoload 'base64-internal-decode-region "mel-b"
- "Decode current region by base64." t)
-
-(autoload 'base64-external-encode-string "mel-b"
- "Encode STRING to base64, and return the result.")
-(autoload 'base64-external-decode-string "mel-b"
- "Decode STRING which is encoded in base64, and return the result.")
-(autoload 'base64-external-encode-region "mel-b"
- "Encode current region by base64." t)
-(autoload 'base64-external-decode-region "mel-b"
- "Decode current region by base64." t)
-
-(autoload 'base64-external-insert-encoded-file "mel-b"
- "Encode contents of file to base64, and insert the result." t)
-(autoload 'base64-external-write-decoded-region "mel-b"
- "Decode and write current region encoded by base64 into FILENAME." t)
-
-;; for encoded-word
-(autoload 'base64-internal-encoded-length "mel-b")
-
-;; mel-q
-(autoload 'quoted-printable-internal-encode-string "mel-q"
-  "Encode STRING to quoted-printable, and return the result.")
-(autoload 'quoted-printable-internal-decode-string "mel-q"
-  "Decode STRING which is encoded in quoted-printable, and return the result.")
-(autoload 'quoted-printable-internal-encode-region "mel-q"
-  "Encode current region by Quoted-Printable." t)
-(autoload 'quoted-printable-internal-decode-region "mel-q"
-  "Decode current region by Quoted-Printable." t)
-
-(autoload 'quoted-printable-external-encode-string "mel-q"
-  "Encode STRING to quoted-printable, and return the result.")
-(autoload 'quoted-printable-external-decode-string "mel-q"
-  "Decode STRING which is encoded in quoted-printable, and return the result.")
-(autoload 'quoted-printable-external-encode-region "mel-q"
-  "Encode current region by Quoted-Printable." t)
-(autoload 'quoted-printable-external-decode-region "mel-q"
-  "Decode current region by Quoted-Printable." t)
-
-(autoload 'quoted-printable-external-insert-encoded-file "mel-q"
-  "Encode contents of file to quoted-printable, and insert the result." t)
-(autoload 'quoted-printable-external-write-decoded-region "mel-q"
-  "Decode and write current region encoded by quoted-printable into FILENAME."
-  t)
-
-;; for encoded-word
-(autoload 'q-encoding-internal-encode-string "mel-q"
-  "Encode STRING to Q-encoding of encoded-word, and return the result.")
-(autoload 'q-encoding-internal-decode-string "mel-q"
-  "Decode STRING which is encoded in Q-encoding and return the result.")
-(autoload 'q-encoding-internal-encoded-length "mel-q")
-
-;; mel-u
-(autoload 'uuencode-external-encode-region "mel-u"
-  "Encode current region by unofficial uuencode format." t)
-(autoload 'uuencode-external-decode-region "mel-u"
-  "Decode current region by unofficial uuencode format." t)
-(autoload 'uuencode-external-insert-encoded-file "mel-u"
-  "Insert file encoded by unofficial uuencode format." t)
-(autoload 'uuencode-external-write-decoded-region "mel-u"
-  "Decode and write current region encoded by uuencode into FILENAME." t)
-
-;; mel-g
-(autoload 'gzip64-external-encode-region "mel-g"
-  "Encode current region by unofficial x-gzip64 format." t)
-(autoload 'gzip64-external-decode-region "mel-g"
-  "Decode current region by unofficial x-gzip64 format." t)
-(autoload 'gzip64-external-insert-encoded-file "mel-g"
-  "Insert file encoded by unofficial gzip64 format." t)
-(autoload 'gzip64-external-write-decoded-region "mel-g"
-  "Decode and write current region encoded by gzip64 into FILENAME." t)
-
-;; mel-ccl
-(when (fboundp 'make-ccl-coding-system)
-  (unless (and (boundp 'ccl-encoder-eof-block-is-broken)
-               ccl-encoder-eof-block-is-broken)
-    (autoload 'base64-ccl-encode-string "mel-ccl"
-      "Encode STRING with base64 encoding.")
-    (autoload 'base64-ccl-encode-region "mel-ccl"
-      "Encode region from START to END with base64 encoding." t)
-    (autoload 'base64-ccl-insert-encoded-file "mel-ccl"
-      "Encode contents of file FILENAME to base64, and insert the result." t))
-
-  (autoload 'base64-ccl-decode-string "mel-ccl"
-    "Decode base64 encoded STRING")
-  (autoload 'base64-ccl-decode-region "mel-ccl"
-    "Decode base64 encoded STRING" t)
-  (autoload 'base64-ccl-write-decoded-region "mel-ccl"
-    "Decode the region from START to END and write out to FILENAME." t)
-
-  (unless (and (boundp 'ccl-encoder-eof-block-is-broken)
-               ccl-encoder-eof-block-is-broken)
-    (autoload 'quoted-printable-ccl-encode-string "mel-ccl"
-      "Encode STRING with quoted-printable encoding.")
-    (autoload 'quoted-printable-ccl-encode-region "mel-ccl"
-      "Encode the region from START to END with quoted-printable
-  encoding." t)
-    (autoload 'quoted-printable-ccl-insert-encoded-file "mel-ccl"
-      "Encode contents of the file named as FILENAME, and insert it." t))
-
-  (autoload 'quoted-printable-ccl-decode-string "mel-ccl"
-    "Decode quoted-printable encoded STRING.")
-  (autoload 'quoted-printable-ccl-decode-region "mel-ccl"
-    "Decode the region from START to END with quoted-printable
-  encoding.")
-  (autoload 'quoted-printable-ccl-write-decoded-region "mel-ccl"
-    "Decode quoted-printable encoded current region and write out to FILENAME." t)
-
-  (autoload 'q-encoding-ccl-encode-string "mel-ccl"
-    "Encode STRING to Q-encoding of encoded-word, and return the result.
-  MODE allows `text', `comment', `phrase' or nil.  Default value is
-  `phrase'.")
-  (autoload 'q-encoding-ccl-decode-string "mel-ccl"
-    "Decode Q encoded STRING and return the result.")
-)
-
-;;; @ entrance functions.
-;;;
+(mel-define-backend "7bit")
+(mel-define-method-function (mime-encode-string string (nil "7bit"))
+			    'identity)
+(mel-define-method-function (mime-decode-string string (nil "7bit"))
+			    'identity)
+(mel-define-method mime-encode-region (start end (nil "7bit")))
+(mel-define-method mime-decode-region (start end (nil "7bit")))
+(mel-define-method-function (mime-insert-encoded-file filename (nil "7bit"))
+			    'insert-file-contents-as-binary)
+(mel-define-method-function (mime-write-decoded-region
+			     start end filename (nil "7bit"))
+			    'write-region-as-binary)
+
+(mel-define-backend "8bit" ("7bit"))
+
+(mel-define-backend "binary" ("8bit"))
+
+(defvar mel-b-builtin
+   (and (fboundp 'base64-encode-string)
+        (subrp (symbol-function 'base64-encode-string))))
+
+(when mel-b-builtin
+  (mel-define-backend "base64")
+  (mel-define-method-function (mime-encode-string string (nil "base64"))
+			      'base64-encode-string)
+  (mel-define-method-function (mime-decode-string string (nil "base64"))
+			      'base64-decode-string)
+  (mel-define-method-function (mime-encode-region start end (nil "base64"))
+			      'base64-encode-region)
+  (mel-define-method-function (mime-decode-region start end (nil "base64"))
+			      'base64-decode-region)  
+  (mel-define-method mime-insert-encoded-file (filename (nil "base64"))
+    "Encode contents of file FILENAME to base64, and insert the result.
+It calls external base64 encoder specified by
+`base64-external-encoder'.  So you must install the program (maybe
+mmencode included in metamail or XEmacs package)."
+    (interactive (list (read-file-name "Insert encoded file: ")))
+    (insert (base64-encode-string
+	     (with-temp-buffer
+	       (set-buffer-multibyte nil)
+	       (insert-file-contents-as-binary filename)
+	       (buffer-string))))
+    (or (bolp)
+	(insert "\n"))
+    )
+    
+  (mel-define-method-function (encoded-text-encode-string string (nil "B"))
+			      'base64-encode-string)
+  (mel-define-method encoded-text-decode-string (string (nil "B"))
+    (if (and (string-match B-encoded-text-regexp string)
+	     (string= string (match-string 0 string)))
+	(base64-decode-string string)
+      (error "Invalid encoded-text %s" string)))
+  )
+
+(mel-use-module 'mel-b-el '("base64" "B"))
+(mel-use-module 'mel-q '("quoted-printable" "Q"))
+(mel-use-module 'mel-g '("x-gzip64"))
+(mel-use-module 'mel-u '("x-uue" "x-uuencode"))
+
+(defvar mel-b-ccl-module
+  (and (featurep 'mule)
+       (progn
+	 (require 'path-util)
+	 (module-installed-p 'mel-b-ccl)
+	 )))
+
+(defvar mel-q-ccl-module
+  (and (featurep 'mule)
+       (progn
+	 (require 'path-util)
+	 (module-installed-p 'mel-q-ccl)
+	 )))
+
+(if mel-b-ccl-module
+    (mel-use-module 'mel-b-ccl '("base64" "B"))
+  )
+
+(if mel-q-ccl-module
+    (mel-use-module 'mel-q-ccl '("quoted-printable" "Q"))
+  )
+
+(if base64-dl-module
+    (mel-use-module 'mel-b-dl '("base64" "B"))
+  )
 
-(cond
-  ((fboundp 'base64-dl-encode-string)
-    (defalias 'base64-encode-string 'base64-dl-encode-string))
-  ((fboundp 'base64-ccl-encode-string)
-    (defalias 'base64-encode-string 'base64-ccl-encode-string))
-  (t
-    (defalias 'base64-encode-string 'base64-internal-encode-string)))
-
-(cond
-  ((fboundp 'base64-dl-decode-string)
-    (defalias 'base64-decode-string 'base64-dl-decode-string))
-  ((fboundp 'base64-ccl-decode-string)
-    (defalias 'base64-decode-string 'base64-ccl-decode-string))
-  (t
-    (defun base64-decode-string (string)
-      "Decode STRING which is encoded in base64, and return the result.
-This function calls internal base64 decoder if size of STRING is
-smaller than `base64-internal-decoding-limit', otherwise it calls
-external base64 decoder specified by `base64-external-decoder'.  In
-this case, you must install the program (maybe mmencode included in
-metamail or XEmacs package)."
-      (interactive "r")
-      (if (and base64-internal-decoding-limit
-               (> (length string) base64-internal-decoding-limit))
-          (base64-external-decode-string string)
-        (base64-internal-decode-string string)))))
-
-(cond
-  ((fboundp 'base64-dl-encode-region)
-    (defalias 'base64-encode-region 'base64-dl-encode-region)) ; no fold
-  ((fboundp 'base64-ccl-encode-region)
-    (defalias 'base64-encode-region 'base64-ccl-encode-region)) ; no fold
-  (t
-    (defun base64-encode-region (start end)
-      "Encode current region by base64.
-START and END are buffer positions.
-This function calls internal base64 encoder if size of region is
-smaller than `base64-internal-encoding-limit', otherwise it calls
-external base64 encoder specified by `base64-external-encoder'.  In
-this case, you must install the program (maybe mmencode included in
-metamail or XEmacs package)."
-      (interactive "r")
-      (if (and base64-internal-encoding-limit
-               (> (- end start) base64-internal-encoding-limit))
-          (base64-external-encode-region start end)
-        (base64-internal-encode-region start end))))) ; LF fold
-
-(cond
-  ((fboundp 'base64-dl-decode-region)
-    (defalias 'base64-decode-region 'base64-dl-decode-region))
-  ((fboundp 'base64-ccl-decode-region)
-    (defalias 'base64-decode-region 'base64-ccl-decode-region))
-  (t
-    (defun base64-decode-region (start end)
-      "Decode current region by base64.
-START and END are buffer positions.
-This function calls internal base64 decoder if size of region is
-smaller than `base64-internal-decoding-limit', otherwise it calls
-external base64 decoder specified by `base64-external-decoder'.  In
-this case, you must install the program (maybe mmencode included in
-metamail or XEmacs package)."
-      (interactive "r")
-      (if (and base64-internal-decoding-limit
-               (> (- end start) base64-internal-decoding-limit))
-          (base64-external-decode-region start end)
-        (base64-internal-decode-region start end)))))
-
-(cond
-  ((fboundp 'base64-ccl-insert-encoded-file)
-    (defalias 'base64-insert-encoded-file 'base64-ccl-insert-encoded-file))
-  (t
-    (defalias 'base64-insert-encoded-file 'base64-external-insert-encoded-file)))
-
-(cond
-  ((fboundp 'base64-ccl-write-decoded-region)
-    (defalias 'base64-write-decoded-region 'base64-ccl-write-decoded-region))
-  (t
-    (defalias 'base64-write-decoded-region 'base64-external-write-decoded-region)))
-
-(cond
-  (t
-    (defalias 'base64-encoded-length 'base64-internal-encoded-length)))
-
-(cond
-  ((fboundp 'quoted-printable-ccl-encode-string)
-    (defalias 'quoted-printable-encode-string 'quoted-printable-ccl-encode-string))
-  (t
-    (defun quoted-printable-encode-string (string)
-      "Encode STRING to quoted-printable, and return the result."
-      (if (and quoted-printable-internal-encoding-limit
-               (> (length string) quoted-printable-internal-encoding-limit))
-          (quoted-printable-external-encode-string string)
-        (quoted-printable-internal-encode-string string)))))
-
-(cond
-  ((fboundp 'quoted-printable-ccl-decode-string)
-    (defalias 'quoted-printable-decode-string 'quoted-printable-ccl-decode-string))
-  (t
-    (defun quoted-printable-decode-string (string)
-      "Decode STRING which is encoded in quoted-printable, and return the result."
-      (if (and quoted-printable-internal-decoding-limit
-               (> (length string) quoted-printable-internal-decoding-limit))
-          (quoted-printable-external-decode-string string)
-        (quoted-printable-internal-decode-string string)))))
-
-(cond
-  ((fboundp 'quoted-printable-ccl-encode-region)
-    (defalias 'quoted-printable-encode-region 'quoted-printable-ccl-encode-region))
-  (t
-    (defun quoted-printable-encode-region (start end)
-      "Encode current region by quoted-printable.
-START and END are buffer positions.
-This function calls internal quoted-printable encoder if size of
-region is smaller than `quoted-printable-internal-encoding-limit',
-otherwise it calls external quoted-printable encoder specified by
-`quoted-printable-external-encoder'.  In this case, you must install
-the program (maybe mmencode included in metamail or XEmacs package)."
-      (interactive "r")
-      (if (and quoted-printable-internal-encoding-limit
-               (> (- end start) quoted-printable-internal-encoding-limit))
-          (quoted-printable-external-encode-region start end)
-        (quoted-printable-internal-encode-region start end)
-        ))))
-
-(cond
-  ((fboundp 'quoted-printable-ccl-decode-region)
-    (defalias 'quoted-printable-decode-region 'quoted-printable-ccl-decode-region))
-  (t
-    (defun quoted-printable-decode-region (start end)
-      "Decode current region by quoted-printable.
-START and END are buffer positions.
-This function calls internal quoted-printable decoder if size of
-region is smaller than `quoted-printable-internal-decoding-limit',
-otherwise it calls external quoted-printable decoder specified by
-`quoted-printable-external-decoder'.  In this case, you must install
-the program (maybe mmencode included in metamail or XEmacs package)."
-      (interactive "r")
-      (if (and quoted-printable-internal-decoding-limit
-               (> (- end start) quoted-printable-internal-decoding-limit))
-          (quoted-printable-external-decode-region start end)
-        (quoted-printable-internal-decode-region start end)
-        ))))
-
-(cond
-  ((fboundp 'quoted-printable-ccl-insert-encoded-file)
-    (defalias 'quoted-printable-insert-encoded-file 'quoted-printable-ccl-insert-encoded-file))
-  (t
-    (defalias 'quoted-printable-insert-encoded-file 'quoted-printable-external-insert-encoded-file)))
-
-(cond
-  ((fboundp 'quoted-printable-ccl-write-decoded-region)
-    (defalias 'quoted-printable-write-decoded-region 'quoted-printable-ccl-write-decoded-region))
-  (t
-    (defalias 'quoted-printable-write-decoded-region 'quoted-printable-external-write-decoded-region)))
-
-(cond
-  ((fboundp 'q-encoding-ccl-encode-string)
-    (defalias 'q-encoding-encode-string 'q-encoding-ccl-encode-string))
-  (t
-    (defalias 'q-encoding-encode-string 'q-encoding-internal-encode-string)))
-
-(cond
-  ((fboundp 'q-encoding-ccl-decode-string)
-    (defalias 'q-encoding-decode-string 'q-encoding-ccl-decode-string))
-  (t
-    (defalias 'q-encoding-decode-string 'q-encoding-internal-decode-string)))
-
-(cond
-  (t
-    (defalias 'q-encoding-encoded-length 'q-encoding-internal-encoded-length)))
-
-(cond
-  (t
-    (defalias 'uuencode-encode-region 'uuencode-external-encode-region)))
-
-(cond
-  (t
-    (defalias 'uuencode-decode-region 'uuencode-external-decode-region)))
-
-(cond
-  (t
-    (defalias 'uuencode-insert-encoded-file 'uuencode-external-insert-encoded-file)))
-
-(cond
-  (t
-    (defalias 'uuencode-write-decoded-region 'uuencode-external-write-decoded-region)))
-
-(cond
-  (t
-    (defalias 'gzip64-encode-region 'gzip64-external-encode-region)))
-
-(cond
-  (t
-    (defalias 'gzip64-decode-region 'gzip64-external-decode-region)))
-
-(cond
-  (t
-    (defalias 'gzip64-insert-encoded-file 'gzip64-external-insert-encoded-file)))
-
-(cond
-  (t
-    (defalias 'gzip64-write-decoded-region 'gzip64-external-write-decoded-region)))
 
 ;;; @ region
 ;;;
 
 ;;;###autoload
-(defvar mime-encoding-method-alist
-  '(("base64"           . base64-encode-region)
-    ("quoted-printable" . quoted-printable-encode-region)
-    ;; Not standard, their use is DISCOURAGED.
-    ;; ("x-uue"            . uuencode-encode-region)
-    ;; ("x-gzip64"         . gzip64-encode-region)
-    ("7bit")
-    ("8bit")
-    ("binary")
-    )
-  "Alist of encoding vs. corresponding method to encode region.
-Each element looks like (STRING . FUNCTION) or (STRING . nil).
-STRING is content-transfer-encoding.
-FUNCTION is region encoder and nil means not to encode.")
-
-;;;###autoload
-(defvar mime-decoding-method-alist
-  '(("base64"           . base64-decode-region)
-    ("quoted-printable" . quoted-printable-decode-region)
-    ("x-uue"            . uuencode-decode-region)
-    ("x-uuencode"       . uuencode-decode-region)
-    ("x-gzip64"         . gzip64-decode-region)
-    )
-  "Alist of encoding vs. corresponding method to decode region.
-Each element looks like (STRING . FUNCTION).
-STRING is content-transfer-encoding.
-FUNCTION is region decoder.")
-
-;;;###autoload
 (defun mime-encode-region (start end encoding)
   "Encode region START to END of current buffer using ENCODING.
-ENCODING must be string.  If ENCODING is found in
-`mime-encoding-method-alist' as its key, this function encodes the
-region by its value."
+ENCODING must be string."
   (interactive
    (list (region-beginning) (region-end)
 	 (completing-read "encoding: "
-			  mime-encoding-method-alist
-			  nil t "base64"))
-   )
-  (let ((f (cdr (assoc encoding mime-encoding-method-alist))))
-    (if f
-	(funcall f start end)
-      )))
+			  (mime-encoding-alist)
+			  nil t "base64")))
+  (funcall (mel-find-function 'mime-encode-region encoding) start end)
+  )
+
 
 ;;;###autoload
 (defun mime-decode-region (start end encoding)
   "Decode region START to END of current buffer using ENCODING.
-ENCODING must be string.  If ENCODING is found in
-`mime-decoding-method-alist' as its key, this function decodes the
-region by its value."
+ENCODING must be string."
   (interactive
    (list (region-beginning) (region-end)
 	 (completing-read "encoding: "
-			  mime-decoding-method-alist
-			  nil t "base64"))
-   )
-  (let ((f (cdr (assoc encoding mime-decoding-method-alist))))
-    (if f
-	(funcall f start end)
-      )))
+			  (mime-encoding-alist 'mime-decode-region)
+			  nil t "base64")))
+  (funcall (mel-find-function 'mime-decode-region encoding)
+	   start end))
 
 
 ;;; @ string
 ;;;
 
 ;;;###autoload
-(defvar mime-string-decoding-method-alist
-  '(("base64"           . base64-decode-string)
-    ("quoted-printable" . quoted-printable-decode-string)
-    ("7bit"		. identity)
-    ("8bit"		. identity)
-    ("binary"		. identity)
-    )
-  "Alist of encoding vs. corresponding method to decode string.
-Each element looks like (STRING . FUNCTION).
-STRING is content-transfer-encoding.
-FUNCTION is string decoder.")
-
-;;;###autoload
 (defun mime-decode-string (string encoding)
   "Decode STRING using ENCODING.
 ENCODING must be string.  If ENCODING is found in
 `mime-string-decoding-method-alist' as its key, this function decodes
 the STRING by its value."
-  (let ((f (cdr (assoc encoding mime-string-decoding-method-alist))))
-    (if f
-	(funcall f string)
-      (with-temp-buffer
-	(insert string)
-	(mime-decode-region (point-min)(point-max) encoding)
-	(buffer-string)
-	))))
+  (funcall (mel-find-function 'mime-decode-string encoding)
+	   string))
+
+
+(mel-define-service encoded-text-encode-string (string encoding)
+  "Encode STRING as encoded-text using ENCODING.
+ENCODING must be string.")
+
+(mel-define-service encoded-text-decode-string (string encoding)
+  "Decode STRING as encoded-text using ENCODING.
+ENCODING must be string.")
+
+(defun base64-encoded-length (string)
+  (* (/ (+ (length string) 2) 3) 4))
+
+(defsubst Q-encoding-printable-char-p (chr mode)
+  (and (not (memq chr '(?= ?? ?_)))
+       (<= ?\   chr)(<= chr ?~)
+       (cond ((eq mode 'text) t)
+	     ((eq mode 'comment)
+	      (not (memq chr '(?\( ?\) ?\\)))
+	      )
+	     (t
+	      (string-match "[A-Za-z0-9!*+/=_---]" (char-to-string chr))
+	      ))))
+
+(defun Q-encoded-text-length (string &optional mode)
+  (let ((l 0)(i 0)(len (length string)) chr)
+    (while (< i len)
+      (setq chr (elt string i))
+      (if (Q-encoding-printable-char-p chr mode)
+	  (setq l (+ l 1))
+	(setq l (+ l 3))
+	)
+      (setq i (+ i 1)) )
+    l))
 
 
 ;;; @ file
 ;;;
 
 ;;;###autoload
-(defvar mime-file-encoding-method-alist
-  '(("base64"           . base64-insert-encoded-file)
-    ("quoted-printable" . quoted-printable-insert-encoded-file)
-    ;; Not standard, their use is DISCOURAGED.
-    ;; ("x-uue"            . uuencode-insert-encoded-file)
-    ;; ("x-gzip64"         . gzip64-insert-encoded-file)
-    ("7bit"		. insert-file-contents-as-binary)
-    ("8bit"		. insert-file-contents-as-binary)
-    ("binary"		. insert-file-contents-as-binary)
-    )
-  "Alist of encoding vs. corresponding method to insert encoded file.
-Each element looks like (STRING . FUNCTION).
-STRING is content-transfer-encoding.
-FUNCTION is function to insert encoded file.")
-
-;;;###autoload
-(defvar mime-file-decoding-method-alist
-  '(("base64"           . base64-write-decoded-region)
-    ("quoted-printable" . quoted-printable-write-decoded-region)
-    ("x-uue"            . uuencode-write-decoded-region)
-    ("x-gzip64"         . gzip64-write-decoded-region)
-    ("7bit"		. write-region-as-binary)
-    ("8bit"		. write-region-as-binary)
-    ("binary"		. write-region-as-binary)
-    )
-  "Alist of encoding vs. corresponding method to write decoded region to file.
-Each element looks like (STRING . FUNCTION).
-STRING is content-transfer-encoding.
-FUNCTION is function to write decoded region to file.")
-
-;;;###autoload
 (defun mime-insert-encoded-file (filename encoding)
   "Insert file FILENAME encoded by ENCODING format."
   (interactive
    (list (read-file-name "Insert encoded file: ")
 	 (completing-read "encoding: "
-			  mime-encoding-method-alist
-			  nil t "base64"))
-   )
-  (let ((f (cdr (assoc encoding mime-file-encoding-method-alist))))
-    (if f
-	(funcall f filename)
-      )))
+			  (mime-encoding-alist)
+			  nil t "base64")))
+  (funcall (mel-find-function 'mime-insert-encoded-file encoding)
+	   filename))
+
 
 ;;;###autoload
 (defun mime-write-decoded-region (start end filename encoding)
@@ -564,12 +265,10 @@ START and END are buffer positions."
    (list (region-beginning) (region-end)
 	 (read-file-name "Write decoded region to file: ")
 	 (completing-read "encoding: "
-			  mime-file-decoding-method-alist
+			  (mime-encoding-alist 'mime-write-decoded-region)
 			  nil t "base64")))
-  (let ((f (cdr (assoc encoding mime-file-decoding-method-alist))))
-    (if f
-	(funcall f start end filename)
-      )))
+  (funcall (mel-find-function 'mime-write-decoded-region encoding)
+	   start end filename))
 
 
 ;;; @ end