From mboxrd@z Thu Jan  1 00:00:00 1970
From: Bastien <bzg@altern.org>
Subject: Re: org-mode and Gnus integration
Date: Wed, 16 May 2007 18:46:33 +0200
Message-ID: <87hcqcg1hy.fsf@bzg.ath.cx>
References: <87bqgo98r7.fsf@memetrics.com> <87odknqni1.fsf@bzg.ath.cx>
	<4a5e11a199715653fec9f7071d9fe6ec@science.uva.nl>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1HoMmD-0005q2-Us
	for emacs-orgmode@gnu.org; Wed, 16 May 2007 12:55:02 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1HoMmB-0005pZ-Sg
	for emacs-orgmode@gnu.org; Wed, 16 May 2007 12:55:01 -0400
Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1HoMmB-0005pM-IE
	for emacs-orgmode@gnu.org; Wed, 16 May 2007 12:54:59 -0400
Received: from ug-out-1314.google.com ([66.249.92.170])
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <bastienguerry@googlemail.com>) id 1HoMeA-00069I-NH
	for emacs-orgmode@gnu.org; Wed, 16 May 2007 12:46:42 -0400
Received: by ug-out-1314.google.com with SMTP id j3so141962ugf
	for <emacs-orgmode@gnu.org>; Wed, 16 May 2007 09:46:37 -0700 (PDT)
In-Reply-To: <4a5e11a199715653fec9f7071d9fe6ec@science.uva.nl> (Carsten
	Dominik's message of "Tue\, 15 May 2007 20\:31\:42 +0200")
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org
Cc: Alain Picard <Alain.Picard@memetrics.com>

Carsten Dominik <dominik@science.uva.nl> writes:

> On May 14, 2007, at 20:16, Bastien wrote:
>
> `org-todo-keywords-1' is a flat list of all todo keywords,
> including the DONE states.
> `org-not-done-keywords' is a flat list of the states that
> are not done.  

When prefixed, this new version gives choice among not-done states,
taking "TODO" as the default.  

========================================================================
(defun org-insert-email-as-current-todo (&optional kw)
  "Save a Gnus email into `*org-email-todo-list-buffer*' as a headline.
If prefix is non-nil, ask for a specific state."
  (interactive "P")
  (let ((link (org-store-link nil)))
    (save-window-excursion
      (find-file *org-email-todo-list-buffer*)
      (goto-char (point-min))
      (let ((state (if kw (completing-read "State: " 
					   (mapcar (lambda(x) (list x))
						   org-not-done-keywords)
					   nil t "TODO") "TODO"))
	    (point (re-search-forward *org-email-todo-tree-header* 
				      (point-max) nil)))
	(org-end-of-subtree t)
	(insert "\n** " state " " link))))
  (message "Email saved in %s" *org-email-todo-list-buffer*))
========================================================================

-- 
Bastien