From 0ef20c771605d0055ba5bbd17e6590f1eb16f7f2 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 30 Jun 1998 14:42:41 +0000 Subject: [PATCH] (eword-decode-encoded-text): Use `decode-mime-charset-string'. --- eword-decode.el | 27 ++++++++++++--------------- 1 file changed, 12 insertions(+), 15 deletions(-) diff --git a/eword-decode.el b/eword-decode.el index f0e74e5..600a027 100644 --- a/eword-decode.el +++ b/eword-decode.el @@ -333,21 +333,18 @@ as a version of Net$cape)." (error "Invalid encoding %s" encoding) ))) ) - (if dest - (progn - (setq dest (decode-coding-string dest cs)) - (if must-unfold - (mapconcat (function - (lambda (chr) - (cond - ((eq chr ?\n) "") - ((eq chr ?\t) " ") - (t (char-to-string chr))) - )) - (std11-unfold-string dest) - "") - dest) - )))))) + (when dest + (setq dest (decode-mime-charset-string dest charset)) + (if must-unfold + (mapconcat (function + (lambda (chr) + (cond ((eq chr ?\n) "") + ((eq chr ?\t) " ") + (t (char-to-string chr))) + )) + (std11-unfold-string dest) + "") + dest)))))) ;;; @ lexical analyze -- 1.7.10.4