Re: add a gcc field according to bbdb entry

[Dave Goldberg <david.goldberg6@verizon.net>]

>>>>> On Thu, 25 May 2006 12:59:21 +0200, Uwe Brauer <oub@mat.ucm.es> said:

> Hello
> Does anybody know about a function which would insert a gcc field,
> according to a relevant BBDB entry?
> Example the entry 
> gnus-folder: nnimap+myserverimap.here.net:Gnus
> would insert
> Ccc: nnimap+myserverimap.here.net:Gnus

I don't understand exactly how you plan for this to work.  Do you want
a function that looks up whatever's on, say, the To line and pulls the
gnus-folder record for that bbdb record?  Or do you want a posting
style (but what you search for in that case?)  Anyway, the functions
you want are bbdb-search (use the result of bbdb-records as the first
argument) and then bbdb-record-getprop against the record that matches
your query.  An example off the top of my head, and which is
completely untried would be something like this:

(defun get-folder-for-address (TO)
  "Get gnus-folder record for the bbdb entry with TO in the net
address"
  (let ((rec (car (bbdb-search (bbdb-records) nil nil TO nil nil))))
    (bbdb-record-getprop rec 'gnus-folder)))

And then you'd do something like

(message-insert-header "Gcc" 
  (get-folder-for-address (message-fetch-field "To")))

Again, off the top of my head. Odds are there's some tweaking needed.

hth,
-- 
Dave Goldberg
david.goldberg6@verizon.net