Import Oort Gnus v0.17.

[elisp/gnus.git-] / lisp / mm-util.el

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index bfc3906..a705b82 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -298,7 +298,8 @@ mail with multiple parts is preferred to sending a Unicode one.")
 
 (defun mm-mule-charset-to-mime-charset (charset)
   "Return the MIME charset corresponding to the given Mule CHARSET."
-  (if (fboundp 'find-coding-systems-for-charsets)
+  (if (and (fboundp 'find-coding-systems-for-charsets)
+          (fboundp 'sort-coding-systems))
       (let (mime)
        (dolist (cs (sort-coding-systems
                     (copy-sequence