From: yamaoka <yamaoka>
Date: Mon, 28 Jun 2004 12:11:10 +0000 (+0000)
Subject: Synch to No Gnus 200406281210.
X-Git-Tag: t-gnus-6_17_4-quimby-~840
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=05810c671152531e072649067e9ab736243c97cb;p=elisp%2Fgnus.git-

Synch to No Gnus 200406281210.
---

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 36b4602..a711458 100644
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -544,9 +544,12 @@ This affects whether coding conversion should be attempted generally."
 	(not inconvertible))))
 
 (defun mm-sort-coding-systems-predicate (a b)
-  (let ((priorities (mapcar 'mm-coding-system-p
-			    ;; Note: invalid entries are dropped silently
-			    mm-coding-system-priorities)))
+  (let ((priorities
+	 (mapcar (lambda (cs)
+		   ;; Note: invalid entries are dropped silently
+		   (and (setq cs (mm-coding-system-p cs))
+			(coding-system-base cs)))
+		 mm-coding-system-priorities)))
     (and (setq a (mm-coding-system-p a))
 	 (if (setq b (mm-coding-system-p b))
 	     (> (length (memq (coding-system-base a) priorities))