Getting message details from message-sent-hook

[Burton Samograd <kruhft@hotmail.com>]

Hi,

I'm trying to write a function that inserts some information about
emails I send into my diary.  I'm hoping to be able to get it to write
lines like:

Mar 28, 2003 To: someone@pobox.com Subject: Hi There

So far I've got the following:

(defun message-to-diary ()
  (make-diary-entry (concat 
		   (calendar-julian-date-string) 
		   " To: "  " From: ")))
(add-hook 'message-sent-hook 'message-to-diary)

What I need is functions that get the To and Subject from the mail or
post that was sent.  Is any of that information available or am I
going to have to write something that parses the current *mail*
buffer?

Thanks for any help. 

-- 
burton samograd
kruhft@kruhft.dyndns.org
http://kruhftwerk.dyndns.org