1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 273c26a319a..06c2d557841 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -619,7 +619,8 @@ and TO is ignored."
             mime-charset)
         (while l
           (setq mime-charset (coding-system-get (car l) :mime-charset))
-          (if (and mime-charset (coding-system-p mime-charset))
+          (if (and mime-charset (coding-system-p mime-charset)
+                   (coding-system-equal (car l) mime-charset))
               (setcar l mime-charset))
           (setq l (cdr l))))