(mm-mule-charset-to-mime-charset): Test if

sort-coding-systems is defined.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc75e3c..7e1be81 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-03-19  Jesper Harder  <harder@ifa.au.dk>
+
+       * mm-util.el (mm-mule-charset-to-mime-charset): Test if
+       sort-coding-systems is defined.
+
 2003-03-18  Paul Jarc  <prj@po.cwru.edu>
 
        * nnmaildir.el (nnmaildir-open-server,

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