From: yamaoka <yamaoka>
Date: Tue, 25 Nov 2008 23:32:44 +0000 (+0000)
Subject: (eword-decode-string, eword-decode-region): Mention language info in doc string.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=refs%2Fheads%2Flimit-1_14;p=elisp%2Fflim.git

(eword-decode-string, eword-decode-region): Mention language info in doc string.
---

diff --git a/ChangeLog b/ChangeLog
index 4fe6bd0..e046d9a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 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.
diff --git a/eword-decode.el b/eword-decode.el
index 880c53e..21fa6e3 100644
--- 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
-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)
@@ -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
-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