From: Kenichi Handa <handa@m17n.org>
Date: Thu, 21 Dec 2000 05:45:08 +0000 (+0000)
Subject: (select-safe-coding-system): Check coding-category-list more rigidly.
X-Git-Tag: emacs-pretest-21.0.95~356
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c24e49a893a96fcbd28e5e5d9b8e42fb6907f902;p=emacs.git

(select-safe-coding-system): Check coding-category-list more rigidly.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 9a648f53a34..42d4eebe2b3 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -553,9 +553,14 @@ and TO is ignored."
 
   ;; If the most preferred coding system has the property mime-charset,
   ;; append it to the defaults.
-  (let* ((preferred (symbol-value (car coding-category-list)))
-	 (base (coding-system-base preferred)))
-    (and (coding-system-get preferred 'mime-charset)
+  (let ((tail coding-category-list)
+	preferred base)
+    (while (and tail
+		(not (setq preferred (symbol-name (car tail)))))
+      (setq tail (cdr tail)))
+    (and (coding-system-p preferred)
+	 (setq base (coding-system-base preferred))
+	 (coding-system-get preferred 'mime-charset)
 	 (not (assq preferred default-coding-system))
 	 (not (rassq base default-coding-system))
 	 (setq default-coding-system