search notmuch mail from bbdb

my-bbdb-notmuch.el

(require 'bbdb)

  (defun my-bbdb-notmuch-search (&optional record)
    "Search for emails to/from RECORD (or current record if interactive)."
    (interactive)
    (let* ((record (or record (bbdb-current-record)))
           (mails (bbdb-record-field record 'mail))
           (query (combine-and-quote-strings mails " OR ")))
      (notmuch-search query)))
  (define-key bbdb-mode-map (kbd "F") 'my-bbdb-notmuch-search)

  (defun my-bbdb-notmuch-search-from (&optional record)
    "Search for emails from RECORD (or current record if interactive)."
    (interactive)
    (let* ((record (or record (bbdb-current-record)))
           (mails (bbdb-record-field record 'mail))
           (from:mails (mapcar (lambda (m) (concat "from:" m)) mails))
           (query (combine-and-quote-strings from:mails " OR ")))
      (notmuch-search query)))
  (define-key bbdb-mode-map (kbd "f") 'my-bbdb-notmuch-search-from)