From: akr <akr>
Date: Mon, 23 Mar 1998 11:44:45 +0000 (+0000)
Subject: * eword-decode.el (eword-decode-header): Set default-mime-charset when
X-Git-Tag: akr-199811302358~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e70da2eb95abbe58981f8395f006c49d7a93365b;p=elisp%2Fsemi.git

* eword-decode.el (eword-decode-header): Set default-mime-charset when
calling `eword-decode-region'.
---

diff --git a/eword-decode.el b/eword-decode.el
index 897b942..9a0b946 100644
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -474,7 +474,8 @@ If SEPARATOR is not nil, it is used as header separator."
 		       (save-restriction
 			 (narrow-to-region beg (1+ end))
 			 (goto-char p)
-			 (eword-decode-region beg (point-max) 'unfold)
+			 (let ((default-mime-charset default-charset))
+			   (eword-decode-region beg (point-max) 'unfold))
 			 (goto-char (point-max))
 			 )))))
 	  (eword-decode-region (point-min) (point-max) t)