From 30449072f85528407ef146d92eeb9d1012f980e1 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 23 Jun 1998 01:56:01 +0000 Subject: [PATCH] rearrangement. --- mel.el | 30 +++++++++++++++++------------- 1 file changed, 17 insertions(+), 13 deletions(-) diff --git a/mel.el b/mel.el index ca0352d..2ed43a4 100644 --- a/mel.el +++ b/mel.el @@ -147,19 +147,6 @@ STRING is content-transfer-encoding. FUNCTION is region decoder.") ;;;###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-encode-region (start end encoding) "Encode region START to END of current buffer using ENCODING. ENCODING must be string. If ENCODING is found in @@ -193,6 +180,23 @@ region by its value." (funcall f 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. -- 1.7.10.4