添付ファイル名が日本語のときに文字化けしないようにする

メール添付でガンガン.*\.(doc|xls|ppt)ファイルが飛んでくるよぅ……。

;; メールの添付ファイル名がエンコードされた日本語文字列のとき、
;; それをデコードする
(eval-after-load "mime"
  '(defadvice mime-entity-filename (around mime-decode activate)
     ad-do-it
     (and ad-return-value 
      (setq ad-return-value 
        (eword-decode-string (decode-mime-charset-string
                      ad-return-value
                      'iso-2022-jp))))))