diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 6ecabb6cb..3d7bab562 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -2249,7 +2249,7 @@ higher priority settings." (run-hooks 'org-agenda-before-write-hook) (cond ((org-bound-and-true-p org-mobile-creating-agendas) - (org-mobile-write-agenda-for-mobile)) + (org-mobile-write-agenda-for-mobile file)) ((string-match "\\.html?\\'" file) (set-buffer (htmlize-buffer (current-buffer))) diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 98a8af6d2..e01ce76b0 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -312,9 +312,7 @@ agenda view showing the flagged items." (setq file (car entry) link-name (cdr entry)) (insert (format "* [[file:%s][%s]]\n" - link-name link-name))) - (insert (format "* [[file:%s][Captured before last sync]]\n" - org-mobile-capture-file))))) + link-name link-name)))))) (defun org-mobile-copy-agenda-files () "Copy all agenda files to the stage or WebDAV directory." @@ -486,7 +484,7 @@ The table of checksums is written to the file mobile-checksums." (org-agenda-custom-commands (list (append (org-mobile-sumo-agenda-command) (list (list file))))) - (org-mobile-write-agenda-for-mobile t)) + (org-mobile-creating-agendas t)) (unless (file-writable-p file) (error "Cannot write to file %s" file)) (org-store-agenda-views)))