Re: [ANNOUNCE] NNDiary, a diary backend for Gnus.

[Jody Klymak <jklymak@OCE.ORST.EDU>]

Didier Verna <didier@lrde.epita.fr> writes:

> Jody Klymak <jklymak@OCE.ORST.EDU> wrote:
>
>> It would also be nice if I could be in an arbitrary group and forward
>> messages to myself which add the X-Diary-* headers.  I can do this now
>> manually.  Any lisp hints on how to do it semi-automatically?
>
>         There's an entry in my gnus-diary todo list for composing fresh
> messages and prompting for the schedule. What you're asking makes me think
> we'd need to extract the schedule prompting part, and use it in the different
> message composing/forwarding/replying functions.

For now, I've defined the following which can be defined when I
compose (or more often forward) a message to myself:

Cheers,  Jody

(defun gnus-diary-add-header ()
  "Add nndiary compatible headers to the current buffer"   
  (interactive "*")
; Add an nndiary compatible header to a message
  (save-excursion
    (save-restriction
      (goto-char (point-min))
      (cond ((re-search-forward "^Subject: " nil t)
	     (goto-line (+ 1 (line-number)))
	     (let* ((heads nndiary-headers))
	       (while heads
		 (setq head (car heads))
		 (setq heads (cdr heads))
		 (insert (format "X-Diary-%s: *\n" (car head))))))
             (t (message "Not a mail message")))
      )))

-- 
Jody M. Klymak               mailto:jklymak@oce.orst.edu
College of Oceanic and Atmospheric Sicences
Oregon State University, Corvallis, OR, 97331