From 05810c671152531e072649067e9ab736243c97cb Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 28 Jun 2004 12:11:10 +0000 Subject: [PATCH] Synch to No Gnus 200406281210. --- lisp/mm-util.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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)) -- 1.7.10.4