Sort files for MobileOrg

lisp/ChangeLog

@@ -5,6 +5,8 @@
 	(org-mobile-inbox-for-pull): Document the best location for this
 	file.
 	(org-mobile-check-setup): Verify `org-directory'.
+	(org-mobile-create-index-file): Sort the files to be listed in
+	index.org.
 
 2009-10-17  Carsten Dominik  <carsten.dominik@gmail.com>
 

lisp/org-mobile.el

@@ -261,7 +261,8 @@ agenda view showing the flagged items."
 
 (defun org-mobile-create-index-file ()
   "Write the index file in the WebDAV directory."
-  (let ((files-alist org-mobile-files-alist)
+  (let ((files-alist (sort (copy-sequence org-mobile-files-alist)
+			   (lambda (a b) (string< (cdr a) (cdr b)))))
 	(def-todo (default-value 'org-todo-keywords))
 	(def-tags (default-value 'org-tag-alist))
 	file link-name todo-kwds done-kwds tags drawers entry kwds dwds twds)