The following code does more or less what I want. It is however not
elegant.
(defun my-bbdb-todo-email (bbdb-record)
"Copy the Email address to a todo-file."
(interactive (list (if (bbdb-do-all-records-p)
(mapcar 'car bbdb-records)
(bbdb-current-record))))
;; (find-file "~/email-todo" nil)
(find-file "~/.todo-do" nil)
(goto-char (point-min))
(re-search-forward "--- email" (point-max))
(insert "\n")
(insert "&%%(todo-cp) ")
(insert-datestamp nil)
(insert " ")
(insert (bbdb-dwim-net-address bbdb-record)))
-------------------------------------------------------
This SF.Net email sponsored by Black Hat Briefings & Training.
Attend Black Hat Briefings & Training, Las Vegas July 24-29 -
digital self defense, top technical experts, no vendor pitches,
unmatched networking opportunities. Visit www.blackhat.com
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
