平衡点

2022/02/20

_ Wanderlust での HTML メール表示

HTMLメール自体は諸悪の根源だと思うので滅んで欲しいと常々思っているのだけれど, outlook なんかが送ってくる multipart の text/plain が無駄な改行が多過ぎて読み辛くてかなわんので渋々 HTML を表示させていたりする(~~あと, text で済む内容なのに「HTML 表示を有効にして下さい」とか強制してくるアレやコレもあるよね, 的な~~).

普段遣いの MUA は Wanderlust なので, text/html の表示には mime-w3m を使っていた. で, 昔の記憶が定かではない or 記憶違いなのか

まあ, 必要に応じて html リンクを踏まねばならない事はままあるので, どうやってたのかジタバタしてみたり.

結果として eww で表示する様に切り替えてた.

昔何にハマったのか, 殆ど覚えていない鳥頭. まあ, 何かハマったら, また考えよう.

eww の設定は以下

;; リンクを簡単に辿る(Hit-a-Hint) のために =ace-link= も入れておく
;; - my:d:tmp は $HOME/.cache/emacs 以下.
(leaf eww
  :preface
  (unless (file-directory-p (expand-file-name "eww" my:d:tmp))
    (make-directory (expand-file-name "eww" my:d:tmp)))
  :init
  (leaf ace-link :ensure t)
  (leaf shr
    :custom
    ((shr-use-colors    . nil)
     (shr-use-fonts     . nil)
     (shr-image-animate . nil)
     (shr-width         . 72)
     (shr-max-width     . 72)
     )
    )
  :bind (("<f2>" . eww)
         (:eww-mode-map
          ("r"   . eww-reload)
          ("o"   . eww)
          ("&"   . eww-browse-with-external-browser)
          ("b"   . eww-back-url)
          ("]"   . eww-next-url)
          ("["   . eww-previous-url)
          ("g"   . eww-top-url)
          ("h"   . backward-char)
          ("j"   . next-line)
          ("C-n" . next-line)
          ("k"   . previous-line)
          ("C-p" . previous-line)
          ("l"   . forward-char)
          ("/"   . isearch-forward)
          ("?"   . isearch-backward)
          ("n"   . isearch-next)
          ("N"   . isearch-previous)
          ("f"   . ace-link-eww))
         )
  :custom
  `((eww-bookmarks-directory
     . ,(expand-file-name "eww" my:d:tmp))
    (eww-search-prefix
     . "https://www.google.com/search?&gws_rd=cr&complete=0&pws=0&tbs=li:1&q="))
  :config
  (ace-link-setup-default)
  )

Wanderlust の html 表示は以下

(setq mime-view-text/html-previewer 'shr
      mime-setup-enable-inline-html 'shr
      mime-view-type-subtype-score-alist '(((text . plain) . 0)
                                           ((text . html)  . 1)))