From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/38597
Path: main.gmane.org!not-for-mail
From: Jody Klymak <jklymak@OCE.ORST.EDU>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: [ANNOUNCE] NNDiary, a diary backend for Gnus.
Date: Tue, 04 Sep 2001 08:15:43 -0700
Organization: Ocean Mixing Group, Oregon State U.
Message-ID: <66azf0m8.fsf@oce.orst.edu>
References: <muxbslq1qev.fsf@uzeb.lrde.epita.fr> <lmkt3w3m.fsf@oce.orst.edu>
	<muxpu989tbb.fsf@uzeb.lrde.epita.fr>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035174435 23370 80.91.224.250 (21 Oct 2002 04:27:15 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 04:27:15 +0000 (UTC)
Return-Path: <jklymak@OCE.ORST.EDU>
Return-Path: <jklymak@OCE.ORST.EDU>
Original-Received: (qmail 19534 invoked from network); 4 Sep 2001 15:16:11 -0000
Original-Received: from dnsman.oce.orst.edu (128.193.64.33)
  by gnus.org with SMTP; 4 Sep 2001 15:16:11 -0000
Original-Received: from C1699372-A.mail.oce.orst.edu (c1699372-a.crvlls1.or.home.com [65.12.163.179])
	by dnsman.oce.orst.edu (8.9.2/8.9.2) with ESMTP id IAA03393
	for <ding@gnus.org>; Tue, 4 Sep 2001 08:16:06 -0700 (PDT)
Original-To: Gnus Beta Testers <ding@gnus.org>
In-Reply-To: <muxpu989tbb.fsf@uzeb.lrde.epita.fr> (Didier Verna's message of
 "Tue, 04 Sep 2001 11:06:22 +0200")
User-Agent: Gnus/5.090004 (Oort Gnus v0.04) XEmacs/21.4 (Academic Rigor)
Original-Lines: 39
Xref: main.gmane.org gmane.emacs.gnus.general:38597
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:38597

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