🚀 go-pugleaf

Please add this:

  (defun vm-mail-other-window ()
    "Like `vm-mail' command, but display mail buffer in another window."
    (interactive)
    (let ((pop-up-windows t))
      (pop-to-buffer " *dummy-mail*"))
    (vm-mail))

This way, we have something useful to put on "C-x 4 m".

Also, please add something like this:

  (defvar vm-mail-rebind-keys t
    "If t, VM will replace mail and mail-other-window in the keymaps.")
  (cond (vm-mail-rebind-keys
	 (if (eq 'mail (lookup-key ctl-x-map "m"))
	     (define-key ctl-x-map "m" 'vm-mail))
	 (if (eq 'mail-other-window (lookup-key ctl-x-4-map "m"))
	     (define-key ctl-x-4-map "m" 'vm-mail-other-window))))

Then we wouldn't have to bother to do the key rebinding ourselves.

-- 
Thanks,

Joe Wells <jbw@cs.bu.edu>

Member of the League for Programming Freedom --- send e-mail for details