2 ;;; mel : a MIME encoding library
4 ;;; by MORIOKA Tomohiko <morioka@jaist.ac.jp>, 1995/6/25
6 ;;; $Id: mel.el,v 3.2 1995/11/02 04:19:47 morioka Exp $
9 (autoload 'base64-encode-region "mel-b" nil t)
10 (autoload 'base64-decode-region "mel-b" nil t)
11 (autoload 'base64-encode-string "mel-b")
12 (autoload 'base64-decode-string "mel-b")
13 (autoload 'base64-encoded-length "mel-b")
15 (autoload 'quoted-printable-encode-region "mel-q" nil t)
16 (autoload 'quoted-printable-decode-region "mel-q" nil t)
18 (autoload 'q-encoding-encode-string-for-text "mel-q")
19 (autoload 'q-encoding-encode-string-for-comment "mel-q")
20 (autoload 'q-encoding-encode-string-for-phrase "mel-q")
21 (autoload 'q-encoding-encode-string "mel-q")
22 (autoload 'q-encoding-decode-string "mel-q")
23 (autoload 'q-encoding-encoded-length "mel-q")
25 (autoload 'uuencode-encode-region "mel-u" nil t)
26 (autoload 'uuencode-decode-region "mel-u" nil t)
28 (defvar mime-encoding-method-alist
29 '(("base64" . base64-encode-region)
30 ("quoted-printable" . quoted-printable-encode-region)
31 ("x-uue" . uuencode-encode-region)
37 (defvar mime-decoding-method-alist
38 '(("base64" . base64-decode-region)
39 ("quoted-printable" . quoted-printable-decode-region)
40 ("x-uue" . uuencode-decode-region)
47 (defun mime/encode-region (encoding beg end)
48 "Encode region BEG to END of current buffer using ENCODING. [mel.el]"
50 (list (completing-read "encoding: "
51 mime-encoding-method-alist
53 (region-beginning) (region-end))
55 (let ((f (cdr (assoc encoding mime-encoding-method-alist))))
60 (defun mime/decode-region (encoding beg end)
61 "Decode region BEG to END of current buffer using ENCODING. [mel.el]"
63 (list (completing-read "encoding: "
64 mime-decoding-method-alist
66 (region-beginning) (region-end))
68 (let ((f (cdr (assoc encoding mime-decoding-method-alist))))
73 (defalias 'mime-encode-region 'mime/encode-region)
74 (defalias 'mime-decode-region 'mime/decode-region)