Hi Nick,

Thanks for your info.

I did what that page suggested and here is the debug info: (Emacs 23.1 and
Orgmode 6.33b)


Debugger entered--Lisp error: (wrong-type-argument listp "TODO")
  cdr("TODO")
  (mapcar (lambda (x) (if ... ... x)) (cdr entry))
  (setq kwds (mapcar (lambda ... ...) (cdr entry)))
  (while (setq entry (pop def-todo)) (insert "#+READONLY\n") (setq kwds
(mapcar ... ...)) (insert "#+TODO: " (mapconcat ... kwds " ") "\n") (setq
dwds (member "|" kwds) twds (org-delete-all dwds kwds) todo-kwds
(org-delete-all twds todo-kwds) done-kwds (org-delete-all dwds done-kwds)))
  (save-current-buffer (set-buffer temp-buffer) (while (setq entry ...)
(insert "#+READONLY\n") (setq kwds ...) (insert "#+TODO: " ... "\n") (setq
dwds ... twds ... todo-kwds ... done-kwds ...)) (when (or todo-kwds
done-kwds) (insert "#+TODO: " ... " | " ... "\n")) (setq def-tags (mapcar
... def-tags)) (setq def-tags (delq nil def-tags)) (setq tags
(org-delete-all def-tags tags)) (setq tags (sort tags ...)) (setq tags
(append def-tags tags nil)) (insert "#+TAGS: " (mapconcat ... tags " ")
"\n") (insert "#+DRAWERS: " (mapconcat ... drawers " ") "\n") (insert
"#+ALLPRIORITIES: A B C" "\n") (when (file-exists-p ...) (insert "* [[file:
agendas.org][Agenda Views]]\n")) (while (setq entry ...) (setq file ...
link-name ...) (insert ...)) (push (cons org-mobile-index-file ...)
org-mobile-checksum-files))
  (with-current-buffer temp-buffer (while (setq entry ...) (insert
"#+READONLY\n") (setq kwds ...) (insert "#+TODO: " ... "\n") (setq dwds ...
twds ... todo-kwds ... done-kwds ...)) (when (or todo-kwds done-kwds)
(insert "#+TODO: " ... " | " ... "\n")) (setq def-tags (mapcar ...
def-tags)) (setq def-tags (delq nil def-tags)) (setq tags (org-delete-all
def-tags tags)) (setq tags (sort tags ...)) (setq tags (append def-tags tags
nil)) (insert "#+TAGS: " (mapconcat ... tags " ") "\n") (insert "#+DRAWERS:
" (mapconcat ... drawers " ") "\n") (insert "#+ALLPRIORITIES: A B C" "\n")
(when (file-exists-p ...) (insert "* [[file:agendas.org][Agenda Views]]\n"))
(while (setq entry ...) (setq file ... link-name ...) (insert ...)) (push
(cons org-mobile-index-file ...) org-mobile-checksum-files))
  (prog1 (with-current-buffer temp-buffer (while ... ... ... ... ...) (when
... ...) (setq def-tags ...) (setq def-tags ...) (setq tags ...) (setq tags
...) (setq tags ...) (insert "#+TAGS: " ... "\n") (insert "#+DRAWERS: " ...
"\n") (insert "#+ALLPRIORITIES: A B C" "\n") (when ... ...) (while ... ...
...) (push ... org-mobile-checksum-files)) (with-current-buffer temp-buffer
(write-region nil nil temp-file nil 0)))
  (unwind-protect (prog1 (with-current-buffer temp-buffer ... ... ... ...
... ... ... ... ... ... ... ... ...) (with-current-buffer temp-buffer ...))
(and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-file ...) (temp-buffer ...)) (unwind-protect (prog1 ... ...)
(and ... ...)))
  (with-temp-file (expand-file-name org-mobile-index-file
org-mobile-directory) (while (setq entry ...) (insert "#+READONLY\n") (setq
kwds ...) (insert "#+TODO: " ... "\n") (setq dwds ... twds ... todo-kwds ...
done-kwds ...)) (when (or todo-kwds done-kwds) (insert "#+TODO: " ... " | "
... "\n")) (setq def-tags (mapcar ... def-tags)) (setq def-tags (delq nil
def-tags)) (setq tags (org-delete-all def-tags tags)) (setq tags (sort tags
...)) (setq tags (append def-tags tags nil)) (insert "#+TAGS: " (mapconcat
... tags " ") "\n") (insert "#+DRAWERS: " (mapconcat ... drawers " ") "\n")
(insert "#+ALLPRIORITIES: A B C" "\n") (when (file-exists-p ...) (insert "*
[[file:agendas.org][Agenda Views]]\n")) (while (setq entry ...) (setq file
... link-name ...) (insert ...)) (push (cons org-mobile-index-file ...)
org-mobile-checksum-files))
  (let ((files-alist ...) (def-todo ...) (def-tags ...) file link-name
todo-kwds done-kwds tags drawers entry kwds dwds twds)
(org-prepare-agenda-buffers (mapcar ... files-alist)) (setq done-kwds
(org-uniquify org-done-keywords-for-agenda)) (setq todo-kwds (org-delete-all
done-kwds ...)) (setq drawers (org-uniquify org-drawers-for-agenda)) (setq
tags (org-uniquify ...)) (with-temp-file (expand-file-name
org-mobile-index-file org-mobile-directory) (while ... ... ... ... ...)
(when ... ...) (setq def-tags ...) (setq def-tags ...) (setq tags ...) (setq
tags ...) (setq tags ...) (insert "#+TAGS: " ... "\n") (insert "#+DRAWERS: "
... "\n") (insert "#+ALLPRIORITIES: A B C" "\n") (when ... ...) (while ...
... ...) (push ... org-mobile-checksum-files)))
  org-mobile-create-index-file()
  (save-window-excursion (org-mobile-check-setup)
(org-mobile-prepare-file-lists) (run-hooks (quote org-mobile-pre-push-hook))
(message "Creating agendas...") (let (...) (org-mobile-create-sumo-agenda))
(message "Creating agendas...done") (org-save-all-org-buffers) (message
"Copying files...") (org-mobile-copy-agenda-files) (message "Writing index
file...") (org-mobile-create-index-file) (message "Writing checksums...")
(org-mobile-write-checksums) (run-hooks (quote org-mobile-post-push-hook)))
  (save-excursion (save-window-excursion (org-mobile-check-setup)
(org-mobile-prepare-file-lists) (run-hooks ...) (message "Creating
agendas...") (let ... ...) (message "Creating agendas...done")
(org-save-all-org-buffers) (message "Copying files...")
(org-mobile-copy-agenda-files) (message "Writing index file...")
(org-mobile-create-index-file) (message "Writing checksums...")
(org-mobile-write-checksums) (run-hooks ...)))
  (let ((org-agenda-buffer-name "*SUMO*") (org-agenda-filter
org-agenda-filter) (org-agenda-redo-command org-agenda-redo-command))
(save-excursion (save-window-excursion ... ... ... ... ... ... ... ... ...
... ... ... ... ...)))
  (let ((a-buffer ...)) (let (... ... ...) (save-excursion ...))
(redraw-display) (when (and a-buffer ...) (if ... ... ...)))
  org-mobile-push()
  call-interactively(org-mobile-push nil nil)

Thanks!

Xin


On Thu, Dec 3, 2009 at 5:16 PM, Nick Dokos <nicholas.dokos@hp.com> wrote:

> Xin Shi <shixin111@gmail.com> wrote:
>
> > Hello Experts,
> >
> > I'm using Emacs 23.1 with orgmode 6.33b.
> >
> > When I use "Push Files and Views" in MobileOrg in Emacs, I got error
> message:
> >
> > Writing index file...
> > byte-code: Wrong type argument: listp, "TODO"
> >
> > Any suggestions?
> >
>
> The topic is different but the suggestion still holds:
>
>    http://thread.gmane.org/gmane.emacs.orgmode/20039/focus=20040
>
> Nick
>