* org-mobile.el (org-mobile-write-agenda-for-mobile): Fix bug release_7.9.3c
authorBastien Guerry <bzg@altern.org>
Sat, 12 Jan 2013 14:43:53 +0000 (15:43 +0100)
committerBastien Guerry <bzg@altern.org>
Sat, 12 Jan 2013 14:43:53 +0000 (15:43 +0100)
when replacing the heading.

Thanks to Jeff Myer for reporting this.

lisp/org-mobile.el

index d2e7c21..a410de0 100644 (file)
@@ -620,12 +620,10 @@ The table of checksums is written to the file mobile-checksums."
          (delete-region (point) (point-at-eol)))
         ((get-text-property (point) 'org-agenda-structural-header)
          (setq in-date nil)
-         (setq app (get-text-property (point)
-                                      'org-agenda-title-append))
-         (setq short (get-text-property (point)
-                                        'short-heading))
+         (setq app (get-text-property (point) 'org-agenda-title-append))
+         (setq short (get-text-property (point) 'short-heading))
          (when (and short (looking-at ".+"))
-           (replace-match short)
+           (replace-match short nil t)
            (beginning-of-line 1))
          (when app
            (end-of-line 1)