sort-coding-systems is defined.
+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,
2003-03-18 Paul Jarc <prj@po.cwru.edu>
* nnmaildir.el (nnmaildir-open-server,
(defun mm-mule-charset-to-mime-charset (charset)
"Return the MIME charset corresponding to the given Mule CHARSET."
(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
(let (mime)
(dolist (cs (sort-coding-systems
(copy-sequence