From ae748897d2ce46bbaf2e6c79f56928d7de672859 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 9 Oct 2002 06:13:57 +0000 Subject: [PATCH] (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. --- lisp/international/mule-cmds.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)))) -- 2.39.2