(select-safe-coding-system): If

:mime-charset property of a coding system is not equal to that
coding system, don't show that :mime-charset name.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 273c26a319a6fe6ce5efe69619ad5c505c2cc2f8..06c2d55784167c4040ed07b73dd692876040012d 100644 (file)
--- 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))))