mew などを使っているとメールに書かれた URL を emacs-w3m で開くために browse-url-at-point するが、そうするとメール本文のウィンドウに w3m バッファが開く。w3m バッファを elscreen の別のタブに開いてほしかったので、次の Lisp を書いてみた。Lisp はよくわかってないので、間違いがあるかもしれないが、とりあえず動いている。

(defun w3m-url-to-new-tab ()
  "Creates a new elscreen tab for the new w3m sesion"
  (interactive)
  (call-interactively 'browse-url-at-point)
  (let ((cur-buf (buffer-name)))
    (switch-to-buffer (other-buffer))
    (elscreen-create)
    (switch-to-buffer cur-buf)))
(global-set-key "\C-cu" 'w3m-url-to-new-tab)

C-c u で新規タブに URL のページが開いてくれる。