Function: mm-mule-charset-to-mime-charset

mm-mule-charset-to-mime-charset is a byte-compiled function defined in mm-util.el.gz.

Signature

(mm-mule-charset-to-mime-charset CHARSET)

Documentation

Return the MIME charset corresponding to the given Mule CHARSET.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mm-util.el.gz
;;; Internal variables:

;;; Functions:

(defun mm-mule-charset-to-mime-charset (charset)
  "Return the MIME charset corresponding to the given Mule CHARSET."
  (let ((css (sort (sort-coding-systems
		    (find-coding-systems-for-charsets (list charset)))
		   #'mm-sort-coding-systems-predicate))
	cs mime)
    (while (and (not mime)
		css)
      (when (setq cs (pop css))
	(setq mime (or (coding-system-get cs :mime-charset)
		       (coding-system-get cs 'mime-charset)))))
    mime))