From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Sun, 13 Apr 2003 20:43:11 +0000 (+0000)
Subject: (mm-sort-coding-systems-predicate): Convert elements
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=136625e46058788dc8395044105142eced2a9df4;p=gnus

(mm-sort-coding-systems-predicate): Convert elements
of `mm-coding-system-priorities' to base coding system.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 23f3223b6..32b7fd924 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-04-13  Reiner Steib  <Reiner.Steib@gmx.de>
 
+	* mm-util.el (mm-sort-coding-systems-predicate): Convert elements
+	of `mm-coding-system-priorities' to base coding system.
+
 	* gnus-sum.el: Added coding cookie ("middle dot" in
 	gnus-summary-morse-message).
 
diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index a705b82ea..921f7a1e7 100644
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -502,8 +502,14 @@ If the charset is `composition', return the actual one."
 	(not inconvertible))))
 
 (defun mm-sort-coding-systems-predicate (a b)
-  (> (length (memq a mm-coding-system-priorities))
-     (length (memq b mm-coding-system-priorities))))
+  (let ((priorities
+	 (mapcar (lambda (cs)
+		   ;; Note: invalid entries are dropped silently
+		   (and (coding-system-p cs)
+			(coding-system-base cs)))
+		 mm-coding-system-priorities)))
+    (> (length (memq a priorities))
+       (length (memq b priorities)))))
 
 (defun mm-find-mime-charset-region (b e &optional hack-charsets)
   "Return the MIME charsets needed to encode the region between B and E.