* eword-decode.el (eword-analyze-quoted-string): Check

`eword-decode-quoted-encoded-word'.

diff --git a/ChangeLog b/ChangeLog
index a488c4e..04fca1c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-05-22  Tanaka Akira  <akr@jaist.ac.jp>
+
+       * eword-decode.el (eword-analyze-quoted-string): Check
+       `eword-decode-quoted-encoded-word'.
+
 1998-05-14  Tanaka Akira  <akr@jaist.ac.jp>
 
        * eword-decode.el (eword-analyze-comment): Call `std11-unfold-string'.

diff --git a/eword-decode.el b/eword-decode.el
index a8f34b5..31f9a78 100644 (file)
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -579,11 +579,15 @@ be the result."
   (let ((p (std11-check-enclosure string ?\" ?\")))
     (if p
        (cons (cons 'quoted-string
-                   (eword-decode-quoted-string
-                     (substring string 0 p)
-                     default-mime-charset))
-             (substring string p))
-      )))
+                   (if eword-decode-quoted-encoded-word
+                       (eword-decode-quoted-string
+                        (substring string 0 p)
+                        default-mime-charset)
+                     (decode-mime-charset-string
+                      (std11-strip-quoted-pair (substring string 0 p))
+                      default-mime-charset)))
+             (substring string p)))
+      ))
 
 (defun eword-analyze-domain-literal (string &optional must-unfold)
   (std11-analyze-domain-literal string))