emacs-w3m でカーソルのある位置のリンクを外部ブラウザで開く

ローカル IMAP サーバ + Mew + emacs-w3m かつ Plagger を使い Subscription::LivedoorReader + Publish::IMAP という、とても面倒くさい環境にて。

Mew の Message バッファで HTML メールは emacs-w3m で読むようにして、読んでるブログの記事とかの本文中のリンクを外部ブラウザ（標準のブラウザに設定してるやつ）で開きたいなー、というそうそう頻繁にあるわけでもない要望を満たすために作ってみた。

;; カーソル位置のリンクを標準のブラウザで開く
(defun w3m-view-this-url-with-external-browser ()
  (interactive)
  (w3m-print-this-url t)
  (w3m-view-url-with-external-browser (car kill-ring)))
(add-hook 'w3m-display-hook
          '(lambda ()
             (define-key w3m-minor-mode-map "\C-c\C-e" 'w3m-view-this-url-with-external-browser)))

もともとあった関数を組み合わせただけ。