# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1034144037 0
# Node ID 5a3996f4ee8b78ae5e7ea0146aad0e9d1f869796
# Parent  be75d593473872274145cefb2caff2e54de36cca
(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 -r be75d5934738 -r 5a3996f4ee8b lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Wed Oct 09 05:24:48 2002 +0000
+++ b/lisp/international/mule-cmds.el	Wed Oct 09 06:13:57 2002 +0000
@@ -619,7 +619,8 @@
 	    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))))