Re: [Orgmode] org-mode and Gnus integration

[Bastien]

Carsten Dominik <address@hidden> 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