[CODE] Adding a message to a nndiary group.

[Matthieu Moy <Matthieu.Moy@imag.fr>]

Hi ! 

Here's a function to resend a message to a nndiary group. 

Typical  example  :  I  recieve  a  message from  xxx,  giving  me  an
appointment at 12 o'clock on May 24. 

While reading  the message,  I call this  function, which opens  a new
buffer with  this message, and all  the nndiary headers  ready. I give
the date  and time in  the headers, C-c  C-c, and the message  will go
into my diary.

This was in my opinion a cruelly missing feature in nndiary, except if
I missed something?

I've bound it to S D d, but  I'm not sure it's a good idea to use this
shortcut, for people who don't use nndiary. 

(define-key gnus-send-bounce-map
  "d" 'moy-gnus-summary-resend-message-to-diary
  )

-- 
Matthieu



(defvar nndiary-default-group-name "diary"
  "Name of the nndiary group to post to by default")

(defun moy-gnus-summary-resend-message-to-diary ()
  "Send current message to the group `nndiary-default-group-name'.
Typical example : I recieve a message from a friend, giving me an
appointment at 12 o'clock on May 24.

While reading the message, I call this function, which opens a new
buffer with this message, and all the nndiary headers ready. I give
the date and time in the headers, C-c C-c, and the message will go
into my diary, and come back to remind me on time."
  (interactive)
  (gnus-summary-resend-message-edit)
  (message-narrow-to-headers)
  (message-remove-header "^To:\\|^Cc:\\|^Bcc:" t)
  (insert (concat "Newsgroups: " nndiary-default-group-name "\n"))
  (insert "X-Diary-Minute: *
X-Diary-Hour: *
X-Diary-Dom: *
X-Diary-Month: *
X-Diary-Year: *
X-Diary-Dow: *
X-Diary-Time-Zone: *
")
  (re-search-backward "^X-Diary-Minute: ")
  (end-of-line)
  (widen)
  (setq gnus-newsgroup-name (concat "nndiary:" nndiary-default-group-name))
  (gnus-setup-message 'message)
  )