(define-key wl-summary-mode-map "k" 'my/kill-bbdb-window)

(defun my/kill-bbdb-window ()
  "Kill the BBDB window while reading email"
  (interactive)
  (with-current-buffer-window (get-buffer bbdb-buffer-name) nil nil
    (quit-window)))