From 9f9d81a15f0003447f3e0ad439a1beec212d75e1 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Sun, 4 Oct 1998 19:02:40 +0000
Subject: [PATCH] (mm-backend module): Write description of
 `mm-define-backend' and `mm-define-method'.

---
 mime-en.sgml |   58 +++++++++++++++++++++++++++++++++++++++++++++++++++++++---
 mime-ja.sgml |   34 ++++++++++++++++++++++++++++++++--
 2 files changed, 87 insertions(+), 5 deletions(-)

diff --git a/mime-en.sgml b/mime-en.sgml
index ed4b19f..939ef9a 100644
--- a/mime-en.sgml
+++ b/mime-en.sgml
@@ -393,12 +393,42 @@ return the result.
 </defun>
 
 
-<h3> How to make mm-backend
+<h3> Definition of mm-backend
 <node> mm-backend module
 <p>
-(It is not written yet, sorry. (^_^;)
+<defmacro name="mm-define-backend">
+<args> type
+<opts> parents
 <p>
-(Please read mm*.el)
+Define mm-backend <var>type</var>.
+<p>
+If <var>PARENTS</var> is specified, <var>type</var> inherits parents.
+Each parent must be representation-type.
+<p>
+Example:
+<p>
+<lisp>
+(mm-define-backend chao (generic))
+</lisp>
+</defmacro>
+
+<defmacro name="mm-define-method">
+<args> name args <rest> body
+<p>
+Define <var>name</var> as a method function of (nth 1 (car
+<var>args</var>)) backend.
+<p>
+<var>args</var> is like an argument list of lambda, but (car
+<var>args</var>) must be specialized parameter.  (car (car
+<var>args</var>)) is name of variable and (nth 1 (car
+<var>args</var>)) is name of backend (representation-type).
+<p>
+Example:
+<p>
+<lisp>
+(mm-define-method entity-cooked-p ((entity chao)) nil)
+</lisp>
+</defmacro>
 
 
 <h1> Information of Content-Type field
@@ -731,6 +761,28 @@ region to file.
 </defvar>
 
 
+<h2> Other utilities
+<node> Encoding information
+<p>
+<defun name="mime-encoding-list">
+	    <opts> SERVICE
+<p>
+Return list of Content-Transfer-Encoding.
+<p>
+If <var>service</var> is specified, it returns available list of
+Content-Transfer-Encoding for it.
+</defun>
+
+<defun name="mime-encoding-alist">
+	    <opts> SERVICE
+<p>
+Return table of Content-Transfer-Encoding for completion.
+<p>
+If <var>service</var> is specified, it returns available list of
+Content-Transfer-Encoding for it.
+</defun>
+
+
 <h1> Network representation of header
 <node> encoded-word
 <p>
diff --git a/mime-ja.sgml b/mime-ja.sgml
index 8240d6b..091a29a 100644
--- a/mime-ja.sgml
+++ b/mime-ja.sgml
@@ -396,9 +396,39 @@ representation-type $B$NL>A0$N@hF,$K(B <code>mm</code> $B$rIU$1$?$b$N$K$J$C$F
 <h3> mm-backend $B$N:n$jJ}(B
 <node> mm-backend module
 <p>
-$B!J$9$_$^$;$s!#$=$N$&$A=q$-$^$9(B (^_^;$B!K(B
+<defmacro name="mm-define-backend">
+<args> type
+<opts> parents
 <p>
-$B!J$H$j$"$($:!"(Bmm*.el $B$r;29M$K$7$F$/$@$5$$!K(B
+Define mm-backend <var>type</var>.
+<p>
+If <var>PARENTS</var> is specified, <var>type</var> inherits parents.
+Each parent must be representation-type.
+<p>
+Example:
+<p>
+<lisp>
+(mm-define-backend chao (generic))
+</lisp>
+</defmacro>
+
+<defmacro name="mm-define-method">
+<args> name args <rest> body
+<p>
+Define <var>name</var> as a method function of (nth 1 (car
+<var>args</var>)) backend.
+<p>
+<var>args</var> is like an argument list of lambda, but (car
+<var>args</var>) must be specialized parameter.  (car (car
+<var>args</var>)) is name of variable and (nth 1 (car
+<var>args</var>)) is name of backend (representation-type).
+<p>
+Example:
+<p>
+<lisp>
+(mm-define-method entity-cooked-p ((entity chao)) nil)
+</lisp>
+</defmacro>
 
 
 <h1> Content-Type $BMs$N>pJs(B
-- 
1.7.10.4