let `org-agenda-files' when making mobile agenda

This commit is contained in:
John Wiegley 2012-07-08 15:40:34 -05:00
parent 0e9ec97ed4
commit 9d16365c20
1 changed files with 3 additions and 1 deletions

View File

@ -318,7 +318,9 @@ create all custom agenda views, for upload to the mobile phone."
(org-mobile-check-setup)
(org-mobile-prepare-file-lists)
(message "Creating agendas...")
(let ((inhibit-redisplay t)) (org-mobile-create-sumo-agenda))
(let ((inhibit-redisplay t)
(org-agenda-files (mapcar 'car org-mobile-files-alist)))
(org-mobile-create-sumo-agenda))
(message "Creating agendas...done")
(org-save-all-org-buffers) ; to save any IDs created by this process
(message "Copying files...")