From: morioka <morioka>
Date: Wed, 30 Sep 1998 23:17:28 +0000 (+0000)
Subject: (eword-decode-and-unfold-unstructured-field): New function.
X-Git-Tag: flim-chao-1_11_0~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5173f6bc3138626b72eb3174f1ea12aa8e60d982;p=elisp%2Fflim.git

(eword-decode-and-unfold-unstructured-field): New function.
---

diff --git a/eword-decode.el b/eword-decode.el
index ae8958b..b26bf59 100644
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -547,6 +547,19 @@ such as a version of Net$cape)."
    (decode-mime-charset-string string default-mime-charset)
    must-unfold))
 
+(defun eword-decode-and-unfold-unstructured-field (string)
+  "Decode and unfold STRING as unstructured field body.
+It decodes non us-ascii characters in FULL-NAME encoded as
+encoded-words or invalid \"raw\" string.  \"Raw\" non us-ascii
+characters are regarded as variable `default-mime-charset'.
+
+If an encoded-word is broken or your emacs implementation can not
+decode the charset included in it, it is not decoded."
+  (eword-decode-string
+   (decode-mime-charset-string (std11-unfold-string string)
+			       default-mime-charset)
+   'must-unfold))
+
 (defun eword-extract-address-components (string)
   "Extract full name and canonical address from STRING.
 Returns a list of the form (FULL-NAME CANONICAL-ADDRESS).