Backtrace of error with org-mobile-push.

gistfile1.el

Debugger entered--Lisp error: (wrong-type-argument sequencep :grouptags)
  mapconcat(identity ("PRIVATE" "{" "WORK" :grouptags "WORK@mittagseminar" "WORK@open_questions" "WORK@diss" "WORK@CV" "}" "{" "IT" :grouptags "IT@emacs" "IT@git" "IT@TeX" "}" "{" "PROG" :grouptags "PROG@mathematica" "PROG@cgal" "}" "}" "4freeTime" "bms_friday" "emacs" "interesting_questions" "mittagseminar" "Mittagsseminar" "NOTE" "private" "results" "work" "Yvinec" "Ziegler") " ")
  (insert "#+TAGS: " (mapconcat (quote identity) tags " ") "\n")
  (save-current-buffer (set-buffer temp-buffer) (while (setq entry (car (prog1 def-todo (setq def-todo (cdr def-todo))))) (insert "#+READONLY\n") (setq kwds (mapcar (function (lambda (x) (if (string-match "(" x) (substring x 0 ...) x))) (cdr entry))) (insert "#+TODO: " (mapconcat (quote identity) 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))) (if (or todo-kwds done-kwds) (progn (insert "#+TODO: " (mapconcat (quote identity) todo-kwds " ") " | " (mapconcat (quote identity) done-kwds " ") "\n"))) (setq def-tags (mapcar (function (lambda (x) (cond ((null x) nil) ((stringp x) x) ((eq ... :startgroup) "{") ((eq ... :endgroup) "}") ((eq ... :newline) nil) ((listp x) (car x))))) def-tags)) (setq def-tags (delq nil def-tags)) (setq tags (org-delete-all def-tags tags)) (setq tags (sort tags (function (lambda (a b) (string< (downcase a) (downcase b)))))) (setq tags (append def-tags tags nil)) (insert "#+TAGS: " (mapconcat (quote identity) tags " ") "\n") (insert "#+DRAWERS: " (mapconcat (quote identity) drawers " ") "\n") (insert "#+ALLPRIORITIES: " org-mobile-allpriorities "\n") (if (file-exists-p (expand-file-name org-mobile-directory "agendas.org")) (progn (insert "* [[file:agendas.org][Agenda Views]]\n"))) (while (setq entry (car (prog1 files-alist (setq files-alist (cdr files-alist))))) (setq file (car entry) link-name (cdr entry)) (insert (format "* [[file:%s][%s]]\n" link-name link-name))) (setq org-mobile-checksum-files (cons (cons org-mobile-index-file (md5 (buffer-string))) org-mobile-checksum-files)))
  (prog1 (save-current-buffer (set-buffer temp-buffer) (while (setq entry (car (prog1 def-todo (setq def-todo (cdr def-todo))))) (insert "#+READONLY\n") (setq kwds (mapcar (function (lambda (x) (if ... ... x))) (cdr entry))) (insert "#+TODO: " (mapconcat (quote identity) 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))) (if (or todo-kwds done-kwds) (progn (insert "#+TODO: " (mapconcat (quote identity) todo-kwds " ") " | " (mapconcat (quote identity) done-kwds " ") "\n"))) (setq def-tags (mapcar (function (lambda (x) (cond (... nil) (... x) (... "{") (... "}") (... nil) (... ...)))) def-tags)) (setq def-tags (delq nil def-tags)) (setq tags (org-delete-all def-tags tags)) (setq tags (sort tags (function (lambda (a b) (string< (downcase a) (downcase b)))))) (setq tags (append def-tags tags nil)) (insert "#+TAGS: " (mapconcat (quote identity) tags " ") "\n") (insert "#+DRAWERS: " (mapconcat (quote identity) drawers " ") "\n") (insert "#+ALLPRIORITIES: " org-mobile-allpriorities "\n") (if (file-exists-p (expand-file-name org-mobile-directory "agendas.org")) (progn (insert "* [[file:agendas.org][Agenda Views]]\n"))) (while (setq entry (car (prog1 files-alist (setq files-alist (cdr files-alist))))) (setq file (car entry) link-name (cdr entry)) (insert (format "* [[file:%s][%s]]\n" link-name link-name))) (setq org-mobile-checksum-files (cons (cons org-mobile-index-file (md5 (buffer-string))) org-mobile-checksum-files))) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0)))
  (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (while (setq entry (car (prog1 def-todo (setq def-todo ...)))) (insert "#+READONLY\n") (setq kwds (mapcar (function (lambda ... ...)) (cdr entry))) (insert "#+TODO: " (mapconcat (quote identity) 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))) (if (or todo-kwds done-kwds) (progn (insert "#+TODO: " (mapconcat (quote identity) todo-kwds " ") " | " (mapconcat (quote identity) done-kwds " ") "\n"))) (setq def-tags (mapcar (function (lambda (x) (cond ... ... ... ... ... ...))) def-tags)) (setq def-tags (delq nil def-tags)) (setq tags (org-delete-all def-tags tags)) (setq tags (sort tags (function (lambda (a b) (string< ... ...))))) (setq tags (append def-tags tags nil)) (insert "#+TAGS: " (mapconcat (quote identity) tags " ") "\n") (insert "#+DRAWERS: " (mapconcat (quote identity) drawers " ") "\n") (insert "#+ALLPRIORITIES: " org-mobile-allpriorities "\n") (if (file-exists-p (expand-file-name org-mobile-directory "agendas.org")) (progn (insert "* [[file:agendas.org][Agenda Views]]\n"))) (while (setq entry (car (prog1 files-alist (setq files-alist ...)))) (setq file (car entry) link-name (cdr entry)) (insert (format "* [[file:%s][%s]]\n" link-name link-name))) (setq org-mobile-checksum-files (cons (cons org-mobile-index-file (md5 (buffer-string))) org-mobile-checksum-files))) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-file (if org-mobile-use-encryption org-mobile-encryption-tempfile target-file)) (temp-buffer (get-buffer-create (generate-new-buffer-name " *temp file*")))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (while (setq entry (car (prog1 def-todo ...))) (insert "#+READONLY\n") (setq kwds (mapcar (function ...) (cdr entry))) (insert "#+TODO: " (mapconcat (quote identity) 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))) (if (or todo-kwds done-kwds) (progn (insert "#+TODO: " (mapconcat ... todo-kwds " ") " | " (mapconcat ... done-kwds " ") "\n"))) (setq def-tags (mapcar (function (lambda ... ...)) def-tags)) (setq def-tags (delq nil def-tags)) (setq tags (org-delete-all def-tags tags)) (setq tags (sort tags (function (lambda ... ...)))) (setq tags (append def-tags tags nil)) (insert "#+TAGS: " (mapconcat (quote identity) tags " ") "\n") (insert "#+DRAWERS: " (mapconcat (quote identity) drawers " ") "\n") (insert "#+ALLPRIORITIES: " org-mobile-allpriorities "\n") (if (file-exists-p (expand-file-name org-mobile-directory "agendas.org")) (progn (insert "* [[file:agendas.org][Agenda Views]]\n"))) (while (setq entry (car (prog1 files-alist ...))) (setq file (car entry) link-name (cdr entry)) (insert (format "* [[file:%s][%s]]\n" link-name link-name))) (setq org-mobile-checksum-files (cons (cons org-mobile-index-file (md5 ...)) org-mobile-checksum-files))) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((files-alist (sort (copy-sequence org-mobile-files-alist) (function (lambda (a b) (string< (cdr a) (cdr b)))))) (def-todo (default-value (quote org-todo-keywords))) (def-tags (default-value (quote org-tag-alist))) (target-file (expand-file-name org-mobile-index-file org-mobile-directory)) file link-name todo-kwds done-kwds tags drawers entry kwds dwds twds) (if (stringp (car def-todo)) (progn (setq def-todo (list (cons (quote sequence) def-todo))))) (org-agenda-prepare-buffers (mapcar (quote car) files-alist)) (setq done-kwds (org-uniquify org-done-keywords-for-agenda)) (setq todo-kwds (org-delete-all done-kwds (org-uniquify org-todo-keywords-for-agenda))) (setq drawers (org-uniquify org-drawers-for-agenda)) (setq tags (mapcar (quote car) (org-global-tags-completion-table (mapcar (quote car) files-alist)))) (let ((temp-file (if org-mobile-use-encryption org-mobile-encryption-tempfile target-file)) (temp-buffer (get-buffer-create (generate-new-buffer-name " *temp file*")))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (while (setq entry (car ...)) (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))) (if (or todo-kwds done-kwds) (progn (insert "#+TODO: " ... " | " ... "\n"))) (setq def-tags (mapcar (function ...) def-tags)) (setq def-tags (delq nil def-tags)) (setq tags (org-delete-all def-tags tags)) (setq tags (sort tags (function ...))) (setq tags (append def-tags tags nil)) (insert "#+TAGS: " (mapconcat (quote identity) tags " ") "\n") (insert "#+DRAWERS: " (mapconcat (quote identity) drawers " ") "\n") (insert "#+ALLPRIORITIES: " org-mobile-allpriorities "\n") (if (file-exists-p (expand-file-name org-mobile-directory "agendas.org")) (progn (insert "* [[file:agendas.org][Agenda Views]]\n"))) (while (setq entry (car ...)) (setq file (car entry) link-name (cdr entry)) (insert (format "* [[file:%s][%s]]\n" link-name link-name))) (setq org-mobile-checksum-files (cons (cons org-mobile-index-file ...) org-mobile-checksum-files))) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (if org-mobile-use-encryption (progn (org-mobile-encrypt-and-move org-mobile-encryption-tempfile target-file) (org-mobile-cleanup-encryption-tempfile))))
  org-mobile-create-index-file()
  (progn (run-hooks (quote org-mobile-pre-push-hook)) (org-mobile-check-setup) (org-mobile-prepare-file-lists) (message "Creating agendas...") (let ((inhibit-redisplay t) (org-agenda-files (mapcar (quote car) org-mobile-files-alist))) (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)))
  (unwind-protect (progn (run-hooks (quote org-mobile-pre-push-hook)) (org-mobile-check-setup) (org-mobile-prepare-file-lists) (message "Creating agendas...") (let ((inhibit-redisplay t) (org-agenda-files (mapcar (quote car) org-mobile-files-alist))) (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))) (set-window-configuration wconfig))
  (let ((wconfig (current-window-configuration))) (unwind-protect (progn (run-hooks (quote org-mobile-pre-push-hook)) (org-mobile-check-setup) (org-mobile-prepare-file-lists) (message "Creating agendas...") (let ((inhibit-redisplay t) (org-agenda-files (mapcar (quote car) org-mobile-files-alist))) (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))) (set-window-configuration wconfig)))
  (save-restriction (let ((wconfig (current-window-configuration))) (unwind-protect (progn (run-hooks (quote org-mobile-pre-push-hook)) (org-mobile-check-setup) (org-mobile-prepare-file-lists) (message "Creating agendas...") (let ((inhibit-redisplay t) (org-agenda-files (mapcar ... org-mobile-files-alist))) (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))) (set-window-configuration wconfig))))
  (save-excursion (save-restriction (let ((wconfig (current-window-configuration))) (unwind-protect (progn (run-hooks (quote org-mobile-pre-push-hook)) (org-mobile-check-setup) (org-mobile-prepare-file-lists) (message "Creating agendas...") (let ((inhibit-redisplay t) (org-agenda-files ...)) (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))) (set-window-configuration wconfig)))))
  (let ((org-agenda-curbuf-name org-agenda-buffer-name) (org-agenda-buffer-name "*SUMO*") (org-agenda-tag-filter org-agenda-tag-filter) (org-agenda-redo-command org-agenda-redo-command)) (save-excursion (save-restriction (let ((wconfig (current-window-configuration))) (unwind-protect (progn (run-hooks (quote org-mobile-pre-push-hook)) (org-mobile-check-setup) (org-mobile-prepare-file-lists) (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))) (set-window-configuration wconfig))))) (setq org-agenda-buffer-name org-agenda-curbuf-name org-agenda-this-buffer-name org-agenda-curbuf-name))
  (let ((a-buffer (get-buffer org-agenda-buffer-name))) (let ((org-agenda-curbuf-name org-agenda-buffer-name) (org-agenda-buffer-name "*SUMO*") (org-agenda-tag-filter org-agenda-tag-filter) (org-agenda-redo-command org-agenda-redo-command)) (save-excursion (save-restriction (let ((wconfig (current-window-configuration))) (unwind-protect (progn (run-hooks ...) (org-mobile-check-setup) (org-mobile-prepare-file-lists) (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 ...)) (set-window-configuration wconfig))))) (setq org-agenda-buffer-name org-agenda-curbuf-name org-agenda-this-buffer-name org-agenda-curbuf-name)) (redraw-display) (if (buffer-live-p a-buffer) (progn (if (not (get-buffer-window a-buffer)) (kill-buffer a-buffer) (let ((cw (selected-window))) (select-window (get-buffer-window a-buffer)) (org-agenda-redo) (select-window cw))))))
  org-mobile-push()
  (let ((debug-on-error t)) (org-mobile-push))
  eval((let ((debug-on-error t)) (org-mobile-push)) nil)
  eval-last-sexp-1(nil)
  eval-last-sexp(nil)
  call-interactively(eval-last-sexp nil nil)