Agenda: Fix bug with calling `org-agenda-todo' in a non-interactive way.

lisp/ChangeLog

@@ -1,3 +1,7 @@
+2009-01-30  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-agenda.el (org-agenda-todo): Pass ARG to `org-todo'.
+
 2009-01-29  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-exp.el (org-export-remove-or-extract-drawers): Only remove

lisp/org-agenda.el

@@ -5131,7 +5131,8 @@ the same tree node, and the headline of the tree node in the Org-mode file."
 	(save-excursion
 	  (and (outline-next-heading)
 	       (org-flag-heading nil)))   ; show the next heading
-	(call-interactively 'org-todo)
+	(let ((current-prefix-arg arg))
+	  (call-interactively 'org-todo))
 	(and (bolp) (forward-char 1))
 	(setq newhead (org-get-heading))
 	(when (and (org-bound-and-true-p