Re: would like inverse of bbdb/mail-auto-create-p

Re: would like inverse of bbdb/mail-auto-create-p

[Michael R. Wolf]

Michael R. Wolf <MichaelRunningWolf@att.net> writes:


[...]

> Here's the working code....

[...]

With just one more tweak.



;;; It works.
;;; TODO -- remove the mapconcat addition of commas, that get removed by m-t-h
(defun wolf3-bbdb-add-recipients-to-bbdb ()
  "Add all recipients to BBDB, using this list of headers:
	from, sender, 
        to, cc, bcc,
        resent-from, resent-to, resent-cc, resent-bcc."
  (let ((fields '("from" "sender" 
		  "to" "cc" "bcc" 
		  "resent-from" "resent-to" "resent-cc" "resent-bcc")))
    (mapc 
     (lambda (address)
       (bbdb-annotate-message-sender address t t t))
     (save-restriction
       (message-narrow-to-headers)
       (message-tokenize-header (mapconcat 'message-fetch-field fields ","))))))

;;; Could go into many hooks:
;;;        message-send-mail-hook
;;;        message-send-news-hook
;;;        message-send-hook
;;;        message-sent-hook
(add-hook 'message-send-hook 'wolf3-bbdb-add-recipients-to-bbdb)

-- 
Michael R. Wolf
    All mammals learn by playing!
        MichaelRunningWolf@att.net