getting bbdb to use gnus/gcc

["G. Todd" <gtodd@yorku.ca>]

Digging through my .emacs and .gnus rat's nests I found a function I'd
snarfed off the net (see below). It starts gnus whenever message mode
is invoked so that various functions and settings get used and gcc:
headers get inserted. It mostly works but I notice that bbdb doesn't
seem to work correctly with gnus when I use the *m or m commands on a
bbdb buffer. Setting bbdb-send-mail-style to 'message ensures that
message gets used to send the mail

It's not possible to set bbdb-send-mail-style to a self defined
function so asking bbdd to use (send-mail) results in an error.

Has anyone figured out how to get bbdb to use gnus more fully to send
mail?

Gnus v5.8.7
BBDB version 2.00.06

---- snip -----
;; From Thorsten Hilbrich <Torsten.Hilbrich@somewhere>
;; uses gnus to file mail (doesn't work with bbdb though)
(defvar started-gnus-by-send-mail nil
   "Non-nil means that gnus has been invoked by send-mail and can be
closed after sending the mail message.")

(defun send-mail ()
   "Start Gnus if not already present and ensure that it is closed after sending."
  (interactive)
  (if (and (functionp 'gnus-alive-p)
           (gnus-alive-p))
      (setq started-gnus-by-send-mail nil)
    (setq started-gnus-by-send-mail t)
    (add-hook 'bbdb-define-all-aliases 'message-sent-hook 'check-message-and-exit-gnus)
    (gnus-no-server))
  (gnus-group-mail))

(defun check-message-and-exit-gnus ()
   "Closes gnus without any user interaction if it has been invoked by
send-mail."
  (if started-gnus-by-send-mail
      (progn
        (let ((gnus-interactive-exit nil))
          (gnus-group-exit))
        (setq started-gnus-by-send-mail nil)
        (remove-hook 'bbdb-define-all-aliases 'message-sent-hook 'check-message-and-exit-gnus)
        )))
---- snip -----


-- 
G. Todd