projects
/
elisp
/
flim.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
70e5732
)
(eword-decode-string, eword-decode-region): Mention language info in doc string.
limit-1_14
author
yamaoka
<yamaoka>
Tue, 25 Nov 2008 23:32:44 +0000
(23:32 +0000)
committer
yamaoka
<yamaoka>
Tue, 25 Nov 2008 23:32:44 +0000
(23:32 +0000)
ChangeLog
patch
|
blob
|
history
eword-decode.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
4fe6bd0
..
e046d9a
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
880c53e
..
21fa6e3
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)
@@
-227,7
+230,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