X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmm-util.el;fp=lisp%2Fmm-util.el;h=a705b82ea1cf65d7d5b4e6d2c252a3320d7aebdf;hb=48a71060a212e6c57c8da1c984cd82d897b826f6;hp=bfc3906dc7109cbecfaf54e112e9bd1552410a7c;hpb=ca101d0305c3ff2ecc44dade2025c974ffc7168a;p=elisp%2Fgnus.git-

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index bfc3906..a705b82 100644
--- 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