>From 519d69a057b49b2f3996209145aef5b41fcfe091 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <address@hidden>
Date: Sun, 21 Feb 2016 16:28:15 +0100
Subject: [PATCH] org-mobile: Fix Wrong type argument: sequencep,
 :startgrouptag

* lisp/org-mobile.el (org-mobile-create-index-file): Handle group tags.

Reported-by: John Hutchinson <address@hidden>
<http://permalink.gmane.org/gmane.emacs.orgmode/105033>
---
 lisp/org-mobile.el | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el
index e6709e4..84e90fd 100644
--- a/lisp/org-mobile.el
+++ b/lisp/org-mobile.el
@@ -455,13 +455,16 @@ agenda view showing the flagged items."
 		(mapconcat 'identity done-kwds " ") "\n"))
       (setq def-tags (mapcar
 		      (lambda (x)
-			(cond ((null x) nil)
-			      ((stringp x) x)
-			      ((eq (car x) :startgroup) "{")
-			      ((eq (car x) :endgroup) "}")
-			      ((eq (car x) :grouptags) nil)
-			      ((eq (car x) :newline) nil)
-			      ((listp x) (car x))))
+			(lambda (tag)
+			  (cl-case (car tag)
+			    ((nil) nil)
+			    (:startgroup "{")
+			    (:endgroup "}")
+			    (:startgrouptag "[")
+			    (:endgrouptag "]")
+			    (:grouptags ":")
+			    (:newline nil)
+			    (t (car tag)))))
 		      def-tags))
       (setq def-tags (delq nil def-tags))
       (setq tags (org-delete-all def-tags tags))
-- 
2.7.1