--- mm-bodies.el~	2005-07-05 22:36:09 +0000
+++ mm-bodies.el	2005-08-04 02:39:45 +0000
@@ -93,6 +93,7 @@
     (save-excursion
       (if charset
 	  (progn
+	    (setq charset (mm-charset-to-coding-system charset))
 	    (mm-encode-coding-region (point-min) (point-max) charset)
 	    charset)
 	(goto-char (point-min))