Re: Getting message details from message-sent-hook

[Bill White <billw@wolfram.com>]

On Wed May 28 2003 at 14:25, Burton Samograd <kruhft@hotmail.com> said:

> Some stroke of luck caused me to find the solution in a posting to
> gnu.emacs.sources.  Here's the working code if anybody wants it:
>
> (defun message-to-diary ()
>   (make-diary-entry (concat 
> 		     (calendar-date-string (calendar-current-date) t)
> 		     (if (message-fetch-field "newsgroups")
> 			 (concat " Sent news To: " (message-fetch-field "newsgroups"))
> 		       (concat " Sent mail To: " (message-fetch-field "to")))
> 		     " Subject: \"" (message-fetch-field "subject") "\""
> 		     " Message-ID: " (message-fetch-field "message-id"))))
> (add-hook 'message-sent-hook 'message-to-diary)

This is a neat idea.  Here's my version:

   ,----
   | (defun message-to-diary ()
   |   (make-diary-entry (concat 
=> | 		     (format-time-string "%B %d, %Y %H:%M" (gnus-date-get-time (message-fetch-field "date")))
   | 		     (if (message-fetch-field "newsgroups")
   | 			 (concat " Sent news To: " (message-fetch-field "newsgroups"))
   | 		       (concat " Sent mail To: " (message-fetch-field "to")))
   | 		     " Subject: \"" (message-fetch-field "subject") "\""
   | 		     " Message-ID: " (message-fetch-field "message-id")))
=> |   (save-buffer "diary"))
   `----

This results in this line in `diary-file':
   May 28, 2003 22:19 Sent mail To: billw Subject: "test" Message-ID: <ruo65nua18e.fsf@billw2lx.wolfram.com> 
which gives me this in the Fancy Diary Entries buffer:
   22:19 Sent mail To: billw Subject: "test" Message-ID: <ruo65nua18e.fsf@billw2lx.wolfram.com> 

Now, can some function grab the message id and jump to that article?
Perhaps using Ted's registry stuff?

Cheers -

bw
-- 
Bill White . billw@wolfram.com . http://members.wri.com/billw
"No ma'am, we're musicians."