Skip to content

Instantly share code, notes, and snippets.

@yyamano

yyamano/mew.el

Created May 11, 2017 02:15
Show Gist options
  • Save yyamano/996d0e72ef2279106e9dfd734b61357d to your computer and use it in GitHub Desktop.
Save yyamano/996d0e72ef2279106e9dfd734b61357d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
mew.el
;; http://yanok.net/2010/07/mew34utf-8.html
(defun use-utf-8-for-jisx0213(ecsdb)
(let ((cs (nth 0 ecsdb))
(enc (nth 1 ecsdb)))
(if (equal enc (intern "iso-2022-jp-3"))
(list (nth 0 ecsdb) 'utf-8 mew-charset-utf-8-encoding mew-charset-utf-8-header-encoding t)
ecsdb)))
(setq mew-cs-database-for-encoding (mapcar 'use-utf-8-for-jisx0213 mew-cs-database-for-encoding))
(add-to-list 'mew-field-spec '("^\\(ARC-Seal\\|ARC-Message-Signature\\|ARC-Authentication-Results\\):$" nil))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment