--- mm-bodies.el~	2005-07-05 22:36:09 +0000
+++ mm-bodies.el	2005-08-04 03:02:26 +0000
@@ -93,7 +93,8 @@
     (save-excursion
       (if charset
 	  (progn
-	    (mm-encode-coding-region (point-min) (point-max) charset)
+	    (mm-encode-coding-region (point-min) (point-max)
+				     (mm-charset-to-coding-system charset))
 	    charset)
 	(goto-char (point-min))
 	(let ((charsets (mm-find-mime-charset-region (point-min) (point-max)