Re: Getting message details from message-sent-hook

[Benjamin Rutt <rutt+news@cis.ohio-state.edu>]

Burton Samograd <kruhft@hotmail.com> writes:

> 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?

Something like:

(defun message-to-diary ()
  (save-restriction
    (save-excursion
      (make-diary-entry
        (concat 
          (calendar-julian-date-string) 
          " To: " (message-fetch-field "To")
          " Subject: " (message-fetch-field "Subject"))))))

should work.
-- 
Benjamin