Here's what I use:
(defun org-set-buffer-todo-tags ()
"Set tags for all tagless TODO headings in the current buffer."
(save-excursion
(goto-char (point-min))
(while (re-search-forward "\\* \\(?:TODO\\|ACTION\\|WAITING\\) " nil t)
(let ((tags (org-get-tags)))
(if (or (not tags) (string= tags ""))
(org-set-tags))))))
(add-hook 'remember-hook
(lambda ()
(define-key (current-local-map) ""
(lambda ()
(interactive)
(if (string= (buffer-name (current-buffer)) "*Remember*")
(org-set-buffer-todo-tags))
(org-ctrl-c-ctrl-c)))))
--
Andrew J. Korty, Deputy Information Security Officer
Office of the Vice President for Information Technology and CIO
Indiana University
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
