From 5bbe005c0d7a2a246d1d97ae260a858b083cd993 Mon Sep 17 00:00:00 2001 From: akr Date: Fri, 22 May 1998 22:14:35 +0000 Subject: [PATCH] * eword-decode.el (eword-analyze-quoted-string): Check `eword-decode-quoted-encoded-word'. --- ChangeLog | 5 +++++ eword-decode.el | 14 +++++++++----- 2 files changed, 14 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index a488c4e..04fca1c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1998-05-22 Tanaka Akira + + * eword-decode.el (eword-analyze-quoted-string): Check + `eword-decode-quoted-encoded-word'. + 1998-05-14 Tanaka Akira * 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)) -- 1.7.10.4