Mewとhowmの同時表示

Mewで'i'したときに、ウィンドウの上半分にinbox、下半分にhowmを表示したい。

下記のelispを~/.mew.elに追加する。Organizer気分。

;; 'i': upper frame=%inbox, lower frame=howm
(defun mew-summary-retrieve-local (&optional no-flush)
  "mew-summary-retrieve-local"
  (interactive "P")
  (delete-other-windows nil)
  (split-window nil)
  (other-window 1 t)
  (howm-menu)
  (other-window 1 t)
  (mew-summary-retrieve no-flush)
)

(define-key mew-summary-mode-map "i"    'mew-summary-retrieve-local)