Function: epa--find-coding-system-for-mime-charset

epa--find-coding-system-for-mime-charset is a byte-compiled function defined in epa.el.gz.

Signature

(epa--find-coding-system-for-mime-charset MIME-CHARSET)

Source Code

;; Defined in /usr/src/emacs/lisp/epa.el.gz
(defun epa--find-coding-system-for-mime-charset (mime-charset)
  ;; Find the first coding system which corresponds to MIME-CHARSET.
  (let ((pointer (coding-system-list)))
    (while (and pointer
		(not (eq (coding-system-get (car pointer) 'mime-charset)
			 mime-charset)))
      (setq pointer (cdr pointer)))
    (car pointer)))