org refile todo.el

  (defun org-refile-to (headline)
    "Move current subtree to specified headline"
    (org-refile nil
                nil
                (list headline
                      (buffer-file-name)
                      nil
                      (org-find-exact-headline-in-buffer (capitalize headline)))))

  (defun org-refile-todo ()
    "Move current subtree to the corresponding todo heading"
    (interactive)
    (when (and (eq (org-current-level) 2)
               (not (member "pin" (org-get-tags))))
      (org-refile-to (org-get-todo-state))))