From: Kenichi Handa Date: Wed, 9 Oct 2002 06:13:57 +0000 (+0000) Subject: (select-safe-coding-system): If X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~270 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ae748897d2ce46bbaf2e6c79f56928d7de672859;p=emacs.git (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 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))))