Re: [O] org-mobile-push

[Vikas Rawal]

Thanks Nick and Jambunathan for taking the trouble to respond.

> 
> So pretty please: when you get an error, *at the very least*, do
> 
>    M-x toggle-debug-on-error

Thanks nick for teaching my how to use back-trace. Here is the
output. May I request you to help identify what could be causing the
problem.

Debugger entered--Lisp error: (void-function appt-make-list)
  appt-make-list()
  run-hooks(diary-hook)
  diary-list-entries((9 26 2011) 1)
  byte-code("\301\302!\203\n\302\202\303\304\"\207" [date fboundp 
diary-list-entries list-diary-entries 1] 3)
  org-get-entries-from-diary((9 26 2011))
  org-agenda-list(nil)
  call-interactively(org-agenda-list)
  (let ((org-agenda-title-append "<after>KEYS=a TITLE: Agenda </after>")) 
(call-interactively (quote org-agenda-list)))
  (let ((org-agenda-compact-blocks nil)) (let ((org-agenda-title-append 
"<after>KEYS=a TITLE: Agenda </after>")) (call-interactively (quote 
org-agenda-list))))
  eval((let ((org-agenda-compact-blocks nil)) (let ((org-agenda-title-append 
"<after>KEYS=a TITLE: Agenda </after>")) (call-interactively (quote 
org-agenda-list)))))
  org-let2(((org-agenda-compact-blocks nil)) ((org-agenda-title-append 
"<after>KEYS=a TITLE: Agenda </after>")) (call-interactively (quote 
org-agenda-list)))
  org-agenda-run-series("SUMO" (((agenda nil ((org-agenda-title-append 
"<after>KEYS=a TITLE: Agenda </after>"))) (alltodo nil 
((org-agenda-title-append "<after>KEYS=t TITLE: ALL TODO </after>"))) (agenda 
"" ((org-agenda-title-append "<after>KEYS=n#1 TITLE: Agenda and all TODO's 
</after>"))) (alltodo nil ((org-agenda-title-append "<after>KEYS=n#2 TITLE: 
Agenda and all TODO's </after>")))) ((org-agenda-compact-blocks nil)) 
("/home/vikas/Dropbox/MobileOrg/agendas.org")))
  byte-code("\306\307  \232\203
\310\202\n\311\306\312\313\"\"p\314\315 address@hidden@address@hidden 
\306\223\210J\332 
\306\223\210\202\305M\333=\203\305\212\330H\334\330!\210I`\306\223\210J\335\330!\306\223\210)\336L\"\211A\203\322
\337A89\204\341\340\337A8!\203\301
\337A8C\341\342A8!D\343A8E\320\323\324E#\210C\344=\203
\345E\346\"\202,C\347=\203
\345E\350\"\202,C\351=\203)
\345E\352\"\202,C\353=\2038
\345E\354\"\202,C\355=\203G
\345E\356\"\202,C\357=\203V
\345E\360\"\202,C\361=\203e
\345E\362\"\202,C\363=\203w
\364
 \210\345E\365\"\202,C\366=\203\211
\364 
\210\345E\367\"\202,C\370=\203\233
\364 
\210\345E\371\"\202,\340C!\203\252
\345E\372\"\202,\373C!\203\271
\345E\374\"\202,\375\376C\"\202,address@hidden)\"\202,L\201S\232\203\345
\f\201T\303!\202,L\201U\232\203\370
\201V\201W!\202,L\201X\232\203\201V\201Y!\202,L\201Z\232\203\201V\201[!\202,L\201\\\232\203D\201[O\2062\201]OPOQ\201VP!+\202,L\201^\232\203W\201V\201_!\202,L\201`\232\203}\201_O\206k\201aOPOQ\201VP!+\202,L\201b\232\203\220\201V\201c!\202,L\201d\232\203\261\201_\306\201e\"\210\201f\201g\201h\330\211$\202,L\201i\232\203\356R\201j=\204\311\375\201k!\210M?\205,address@hidden,L\201m\232\203
\201V\201n!\202,L\201o\232\203\201V\201p!\202,L\201q\232\203'\201T\201r!\202,\375\201s!.\f\207"
 [prefix-descriptions org-agenda-buffer-name org-agenda-window-setup 
org-agenda-custom-commands org-agenda-custom-commands-orig buf nil buffer-name 
current-window delq mapcar #[(x) "A;\203\f     
B\302\207A@;address@hidden'address@hidden)address@hidden" [x 
prefix-descriptions nil ""] 4] buffer-file-name buffer-base-buffer boundp 
org-agenda-keep-restricted-file-list put org-agenda-files org-restrict 
org-agenda-redo-command org-lprops last-args 
org-agenda-get-restriction-and-command region t region-beginning region-end 
subtree org-back-to-heading org-end-of-subtree assoc 2 functionp eval 3 4 
agenda org-let (org-agenda-list current-prefix-arg) alltodo (org-todo-list 
current-prefix-arg) search (org-search-view current-prefix-arg match nil) stuck 
(org-agenda-list-stuck-projects current-prefix-arg) tags (org-tags-view 
current-prefix-arg match) tags-todo (org-tags-view (quote (4)) match) todo ...] 
6)
  org-agenda(nil "X")
  (let ((org-agenda-compact-blocks nil)) (org-agenda nil thiscmdkey))
  eval((let ((org-agenda-compact-blocks nil)) (org-agenda nil thiscmdkey)))
  byte-code("address@hidden@\306       8\211<\203\307\202\310     
8<\203'\310\202(\311        8\211;\2033
C
\203\312\313\314\f#\315E!\210q\210
\203\\\312\313\314\f#\316E!\210\202H\317!\203\320!\210\202\207" 
[cmds cmd thiscmdkey cmd-or-set opts files 2 3 4 5 eval let append (org-agenda 
nil thiscmdkey) (org-write-agenda (expand-file-name (pop files) dir) nil t) 
get-buffer kill-buffer org-agenda-exporter-settings pars 
org-agenda-buffer-name] 7)
  #[(&rest parameters) "\306!\307      \310\n!\307\211\211\211\211\n\f
\311\213.   \207" [org-agenda-custom-commands default-directory parameters 
cmd-or-set opts files org-agenda-normalize-custom-commands nil 
org-make-parameter-alist ((byte-code "address@hidden@\306        
8\211<\203\307\202\310     8<\203'\310\202(\311        8\211;\2033
C
\203\312\313\314\f#\315E!\210q\210
\203\\\312\313\314\f#\316E!\210\202H\317!\203\320!\210\202\207" 
[cmds cmd thiscmdkey cmd-or-set opts files 2 3 4 5 eval let append (org-agenda 
nil thiscmdkey) (org-write-agenda (expand-file-name (pop files) dir) nil t) 
get-buffer kill-buffer org-agenda-exporter-settings pars 
org-agenda-buffer-name] 7)) thiscmdkey cmd pars dir pop-up-frames cmds] 9 
("/usr/local/share/emacs/site-lisp/org-agenda.elc" . 106452)]()
  (org-batch-store-agenda-views)
  eval((org-batch-store-agenda-views))
  org-store-agenda-views()
  org-mobile-create-sumo-agenda()
  org-mobile-push()
  call-interactively(org-mobile-push t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)

> which means that you can load the file and therefore define the function
> by inserting
> 
>     (require 'appt)

Thanks Jambunathan and Nick. This indeed solves the problem.

Vikas