From: akr <akr>
Date: Sun, 25 Oct 1998 14:10:40 +0000 (+0000)
Subject: * eword-decode.el (eword-decode-field-body): Change interface.
X-Git-Tag: doodle-1_11_1~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6f4041f701625fdb3551a181628d6b80ad66fec4;p=elisp%2Fflim.git

* eword-decode.el (eword-decode-field-body): Change interface.
---

diff --git a/ChangeLog b/ChangeLog
index 6afd175..a94317b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1998-10-25  Tanaka Akira      <akr@jaist.ac.jp>
 
+	* eword-decode.el (eword-decode-field-body): Change interface.
+
+1998-10-25  Tanaka Akira      <akr@jaist.ac.jp>
+
 	* eword-decode.el (eword-decode-field): Abolished.
 	(eword-decode-field-body): New function.
 
diff --git a/eword-decode.el b/eword-decode.el
index 802ce7a..b0607cb 100644
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -477,26 +477,22 @@ Each field name must be symbol."
   :type '(repeat symbol))
 
 (defun eword-decode-field-body
-  (field-name field-body &optional unfolded max-column)
-  "Decode header field body FIELD-BODY, and return the result.
+  (field-body field-name &optional unfolded max-column)
+  "Decode FIELD-BODY as FIELD-NAME, and return the result.
 
-If FILED-BODY is already unfolded, UNFOLDED should be non-nil.
+If UNFOLDED is non-nil, it is assumed that FIELD-BODY is
+already unfolded.
 
-If MAX-COLUMN is non-nil, result is folded with MAX-COLUMN.
-(Or `fill-column' if MAX-COLUMN is t.)
+If MAX-COLUMN is non-nil, the result is folded with MAX-COLUMN
+or `fill-column' if MAX-COLUMN is t.
 Otherwise, the result is unfolded.
 
-If FIELD-NAME is in `eword-decode-ignored-field-list',
-return FIELD-BODY itself.
+MIME encoded-word in FIELD-BODY is recognized according to
+`eword-decode-ignored-field-list',
+`eword-decode-structured-field-list' and FIELD-NAME.
 
-If FIELD-NAME is in `eword-decode-structured-field-list',
-FIELD-BODY is interpreted as structured field,
-decode MIME encoded-words and return it.
-
-Otherwise, FIELD-BODY is interpreted as unstructured field,
-decode MIME encoded-words and return it.
-
-Anyway, non-encoded-word part is decoded with `default-mime-charset'."
+Non MIME encoded-word part in FILED-BODY is decoded with
+`default-mime-charset'."
   (let ((decoded
           (if unfolded
             (let ((ew-ignore-76bytes-limit t))