From: akr <akr>
Date: Sun, 25 Oct 1998 02:34:42 +0000 (+0000)
Subject: * eword-decode.el (eword-decode-field): Abolished.
X-Git-Tag: doodle-1_11_1~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=589dd77f517ab618de130f1e767f8ce5c1acdbdf;p=elisp%2Fflim.git

* eword-decode.el (eword-decode-field): Abolished.
(eword-decode-field-body): New function.
---

diff --git a/ChangeLog b/ChangeLog
index 4d86be9..6afd175 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-10-25  Tanaka Akira      <akr@jaist.ac.jp>
+
+	* eword-decode.el (eword-decode-field): Abolished.
+	(eword-decode-field-body): New function.
+
 1998-10-24  Tanaka Akira      <akr@jaist.ac.jp>
 
 	* mel-b-ccl.el: New file.
diff --git a/eword-decode.el b/eword-decode.el
index 60ccaf4..802ce7a 100644
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -476,8 +476,17 @@ Each field name must be symbol."
   :group 'eword-decode
   :type '(repeat symbol))
 
-(defun eword-decode-field (field-name field-body &optional unfolded max-column)
-  "If FIELD-NAME is in `eword-decode-ignored-field-list',
+(defun eword-decode-field-body
+  (field-name field-body &optional unfolded max-column)
+  "Decode header field body FIELD-BODY, and return the result.
+
+If FILED-BODY is already unfolded, UNFOLDED should be non-nil.
+
+If MAX-COLUMN is non-nil, 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.
 
 If FIELD-NAME is in `eword-decode-structured-field-list',
@@ -487,13 +496,7 @@ 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'.
-
-If FIELD-BODY is already unfolded, UNFOLDED should be non-nil.
-
-If MAX-COLUMN is nil, FIELD-BODY is unfolded.
-Otherwise, FIELD-BODY is folded with with MAX-COLUMN
-(or `fill-column' if MAX-COLUMN is not integer.)"
+Anyway, non-encoded-word part is decoded with `default-mime-charset'."
   (let ((decoded
           (if unfolded
             (let ((ew-ignore-76bytes-limit t))