MHE support doesn't always select right window with BBDB 1.49

[Michael Sperber [Mr. Preprocessor]]

Hi there,

I noticed bbdb/mh-pop-up-bbdb-buffer always splits the largest window.
This is bad with MH-E if the largest window is the summary window in
which case the *BBDB* buffer will come between the show+... and the
+... buffer, so that the (other-window -1) in mh-show will get to the
wrong window.  Attached is a kludgy fix.

Cheers =8-} Chipsy
--snip, snip--
*** bbdb-mhe.el~        Wed Dec  1 08:45:13 1993
--- bbdb-mhe.el Sun Jan  9 21:12:56 1994
***************
*** 57,63 ****
--- 57,71 ----
                      offer-to-create)
                  offer-to-create))))))))
  
+ ; HACK
  
+ (defun bbdb/show-message-hook-function ()
+   ; we're in mh-show-buffer
+   (bbdb/mh-update-record)
+   (if (not (eq (window-buffer (next-window)) 
+              (get-buffer bbdb-buffer-name)))
+       (other-window -1)))
+ 
  (defun bbdb/mh-annotate-sender (string)
    "Add a line to the end of the Notes field of the BBDB record 
  corresponding to the sender of this message."
***************
*** 199,205 ****
    "Call this function to hook BBDB into MH-E."
    (define-key mh-folder-mode-map ":" 'bbdb/mh-show-sender)
    (define-key mh-folder-mode-map ";" 'bbdb/mh-edit-notes)
!   (bbdb-add-hook 'mh-show-message-hook 'bbdb/mh-update-record)
    )
  
  (provide 'bbdb-mhe)
--- 207,213 ----
    "Call this function to hook BBDB into MH-E."
    (define-key mh-folder-mode-map ":" 'bbdb/mh-show-sender)
    (define-key mh-folder-mode-map ";" 'bbdb/mh-edit-notes)
!   (bbdb-add-hook 'mh-show-message-hook 'bbdb/show-message-hook-function)
    )
  
  (provide 'bbdb-mhe)