.wl で日本語の添付ファイルを正しく表示するというのを設定してると
日本語ではない添付ファイル名の場合に、
Symbol's function definitions is void: detect-coding-string
となるようです。根本的な解決方法はないのかな…?


(defvar my-mime-filename-coding-system-for-decode
'(iso-2022-jp japanese-shift-jis japanese-iso-8bit))
(defun my-mime-decode-filename (filename)
(let ((rest (eword-decode-string filename)))
(or (when (and my-mime-filename-coding-system-for-decode
(string= rest filename))
(let ((dcs (mapcar (function coding-system-base)
(detect-coding-string filename))))
(unless (memq 'emacs-mule dcs)
(let ((pcs my-mime-filename-coding-system-for-decode))
(while pcs
(if (memq (coding-system-base (car pcs)) dcs)
(setq rest (decode-coding-string filename (car pcs))
pcs nil)
(setq pcs (cdr pcs))))))))
rest)))
(eval-after-load "mime"
'(defadvice mime-entity-filename (after eword-decode-for-broken-MUA activate)
"Decode encoded file name for BROKEN MUA."
(when (stringp ad-return-value)
(setq ad-return-value (my-mime-decode-filename ad-return-value)))))
(require 'std11)