- (catch 'return
- (setq charset (downcase charset))
- (let ((sym (intern charset))
- tmp cs)
- (when (setq tmp (assq sym ew-charset-aliases))
- (setq sym (cdr tmp)))
- (setq cs (intern (concat (symbol-name sym) "-unix")))
- (when (coding-system-p cs)
- (throw 'return
- (closure-make (lambda (str) (decode-coding-string str cs)) cs)))
- nil)))
+ (let ((sym (intern (downcase charset))))
+ (when (mime-charset-to-coding-system sym 'LF)
+ (closure-make
+ (lambda (str) (decode-mime-charset-string str sym 'LF))
+ sym))))