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:
7d7a648
)
(eword-decode-string, eword-decode-region): Mention language info in doc string.
flim-1_14-rfc2231-encoder
author
yamaoka
<yamaoka>
Tue, 25 Nov 2008 23:32:45 +0000
(23:32 +0000)
committer
yamaoka
<yamaoka>
Tue, 25 Nov 2008 23:32:45 +0000
(23:32 +0000)
ChangeLog
patch
|
blob
|
history
eword-decode.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
b223b2a
..
b4a1bbe
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,5
+1,10
@@
2008-11-25 Katsumi Yamaoka <yamaoka@jpl.org>
2008-11-25 Katsumi Yamaoka <yamaoka@jpl.org>
+ * eword-decode.el (eword-decode-string, eword-decode-region):
+ Mention language info in doc string.
+
+2008-11-25 Katsumi Yamaoka <yamaoka@jpl.org>
+
* eword-decode.el (eword-decode-string, eword-decode-region)
(eword-analyze-encoded-word): Express the language portion of an
encoded word as a symbol.
* eword-decode.el (eword-decode-string, eword-decode-region)
(eword-analyze-encoded-word): Express the language portion of an
encoded word as a symbol.
diff --git
a/eword-decode.el
b/eword-decode.el
index
3ca4b01
..
402ca36
100644
(file)
--- a/
eword-decode.el
+++ b/
eword-decode.el
@@
-87,7
+87,10
@@
decode the charset included in it, it is not decoded.
If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
if there are in decoded encoded-words (generated by bad manner MUA
If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
if there are in decoded encoded-words (generated by bad manner MUA
-such as a version of Net$cape)."
+such as a version of Net$cape).
+
+The language informations specified in the encoded words, if any, are
+put to the decoded text as the `mime-language' text property."
(setq string (std11-unfold-string string))
(let ((regexp (concat "[\n\t ]*\\(" eword-encoded-word-regexp "\\)"))
(next 0)
(setq string (std11-unfold-string string))
(let ((regexp (concat "[\n\t ]*\\(" eword-encoded-word-regexp "\\)"))
(next 0)
@@
-220,7
+223,10
@@
If UNFOLDING is not nil, it unfolds before decoding.
If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
if there are in decoded encoded-words (generated by bad manner MUA
If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
if there are in decoded encoded-words (generated by bad manner MUA
-such as a version of Net$cape)."
+such as a version of Net$cape).
+
+The language informations specified in the encoded words, if any, are
+put to the decoded text as the `mime-language' text property."
(interactive "*r")
(save-excursion
(save-restriction
(interactive "*r")
(save-excursion
(save-restriction