Browse Source

Fix bug in mobile interaction

Carsten Dominik 15 years ago
parent
commit
06bcedfd15
2 changed files with 3 additions and 5 deletions
  1. 1 1
      lisp/org-agenda.el
  2. 2 4
      lisp/org-mobile.el

+ 1 - 1
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)))
 

+ 2 - 4
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)))