From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Dunn Subject: MobileOrg Export Broken Date: Thu, 23 Jun 2016 20:57:02 -0400 Message-ID: <871t3nxv35.fsf@gnu.org> Reply-To: Ian Dunn Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:59673) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bGFQh-0001cz-VN for emacs-orgmode@gnu.org; Thu, 23 Jun 2016 20:57:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bGFQh-00049U-2g for emacs-orgmode@gnu.org; Thu, 23 Jun 2016 20:57:07 -0400 Received: from fencepost.gnu.org ([2001:4830:134:3::e]:47660) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bGFQg-00049Q-Vq for emacs-orgmode@gnu.org; Thu, 23 Jun 2016 20:57:07 -0400 Received: from [2604:6000:1010:176:da4d:3352:bae5:f50e] (port=55148 helo=escafil) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1bGFQe-0000m1-9X for emacs-orgmode@gnu.org; Thu, 23 Jun 2016 20:57:04 -0400 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain I run Org from the git repo, updating daily. I unsuccessfully tried syncing with MobileOrg (Android) about two hours ago. I reverted org-mobile.el back to the version from yesterday and found the problem: TODO keywords aren't being listed correctly. Here's an example: Old: #+TODO: TODO | DEFERRED DONE PENDING CANCELLED New: #+TODO: TODO This messes with MobileOrg, preventing it from syncing. I worked through the problem, which appears to be caused by org-delete-all being called before the TODO keywords are inserted into the file. I attached a patch that fixes this problem. -- Ian Dunn --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=org-mobile.el.patch diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 9c69128..9192561 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -446,8 +446,9 @@ agenda view showing the flagged items." x)) (cdr entry))) (dwds (or (member "|" kwds) (last kwds))) - (twds (org-delete-all dwds kwds))) + (twds kwds)) (insert "#+TODO: " (mapconcat 'identity kwds " ") "\n") + (org-delete-all dwds twds) (setq todo-kwds (org-delete-all twds todo-kwds)) (setq done-kwds (org-delete-all dwds done-kwds)))) (when (or todo-kwds done-kwds) --=-=-=--