diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 5e9842cb9..f4c6d17e1 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -424,15 +424,7 @@ agenda view showing the flagged items." done-kwds (org-uniquify org-todo-keywords-for-agenda))) (setq drawers (org-uniquify org-drawers-for-agenda)) - (setq tags (org-uniquify - (delq nil - (mapcar - (lambda (e) - (cond ((stringp e) e) - ((listp e) - (if (stringp (car e)) (car e) nil)) - (t nil))) - org-tag-alist-for-agenda)))) + (setq tags (mapcar 'car (org-global-tags-completion-table org-mobile-files-alist))) (with-temp-file (if org-mobile-use-encryption org-mobile-encryption-tempfile