projects
/
elisp
/
flim.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
589dd77
)
* eword-decode.el (eword-decode-field-body): Change interface.
author
akr
<akr>
Sun, 25 Oct 1998 14:10:40 +0000
(14:10 +0000)
committer
akr
<akr>
Sun, 25 Oct 1998 14:10:40 +0000
(14:10 +0000)
ChangeLog
patch
|
blob
|
history
eword-decode.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
6afd175
..
a94317b
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,5
+1,9
@@
1998-10-25 Tanaka Akira <akr@jaist.ac.jp>
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.
* 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
(file)
--- 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
: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.
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))
(let ((decoded
(if unfolded
(let ((ew-ignore-76bytes-limit t))