From: akr <akr>
Date: Fri, 22 May 1998 22:14:35 +0000 (+0000)
Subject: * eword-decode.el (eword-analyze-quoted-string): Check
X-Git-Tag: flam-1_3_0~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5bbe005c0d7a2a246d1d97ae260a858b083cd993;p=elisp%2Fflim.git

* eword-decode.el (eword-analyze-quoted-string): Check
`eword-decode-quoted-encoded-word'.
---

diff --git a/ChangeLog b/ChangeLog
index a488c4e..04fca1c 100644
--- 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
--- 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))