[O] Bug: org-clone-subtree-with-time-shift adds a empty :ID:-textline [7.8.11]

[Markus Hetzmannseder]

Hallo all,

when I do a org-clone-subtree-with-time-shift command, it adds up a
"left over" line with just ":ID:" in it.

The most simple way to produce it is with cloning just a single TODO
item like this on:

..........................................
**** TODO Trockenstellen
     SCHEDULED: <2012-12-30 Son>
     :PROPERTIES:
     :ID:       81f8d39d-5c69-4acf-88c4-add66c5ac46d
     :END:
..........................................

will produce by cloning 2 times with +1d shift that one with a extra
empty :ID: line in each clone.

..........................................
**** TODO Trockenstellen
     SCHEDULED: <2012-12-31 Mon>
     :PROPERTIES:
     :ID:
     :ID:       945ac3a6-9217-448c-86d0-19941ad3bb9b
     :END:
**** TODO Trockenstellen
     SCHEDULED: <2013-01-01 Die>
     :PROPERTIES:
     :ID:
     :ID:       430edfc4-8144-4420-976b-ef5a32665cdb
     :END:
.........................................
This happens only if the 1st entry has a :ID: line, where the 
org-clone-subtree-with-time-shift get called.

The :ID: line gets added in the versions 7.8.11 and 7.8.9
The versions 6.33x and 7.01g from the debian installation dont have that
bug.

Markus

------------------------------------------------------

Emacs  : GNU Emacs 23.2.1 (x86_64-pc-linux-gnu, GTK+ Version 2.20.1)
 of 2010-12-11 on brahms, modified by Debian
Package: Org-mode version 7.8.11

current state:
==============
(setq
 org-log-done 'time
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-speed-command-hook '(org-speed-command-default-hook
              org-babel-speed-command-hook)
 org-agenda-files '("~/Org/")
 org-mobile-post-pull-hook '((lambda nil
                  (shell-command
                   "scp ~/Org/stage/mobileorg.org 
address@hidden:/home/staff/hetzi/Org/MobileOrg/")
                  )
                 )
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-tab-first-hook '(org-hide-block-toggle-maybe
              org-src-native-tab-command-maybe
              org-babel-hide-result-toggle-maybe)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
             org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-directory "~/Org/"
 org-tag-alist '(("TA" . 116))
 org-babel-pre-tangle-hook '(save-buffer)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
          org-cycle-show-empty-lines
          org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
 org-mode-hook '(#[nil "\300\301\302\303\304$\207"
           [org-add-hook change-major-mode-hook org-show-block-all
            append local]
           5]
         #[nil "\300\301\302\303\304$\207"
           [org-add-hook change-major-mode-hook
            org-babel-show-result-all append local]
           5]
         org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-mobile-pre-pull-hook '((lambda nil
                 (shell-command
                  "scp 
address@hidden:/home/staff/hetzi/Org/MobileOrg/mobileorg.org 
/home/staff/hetzi/Org/stage/ ")
                 )
                )
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
              org-babel-execute-safely-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-export-interblocks '((src org-babel-exp-non-block-elements))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-occur-hook '(org-first-headline-recenter)
 org-mobile-post-push-hook '((lambda nil
                  (shell-command
                   "scp -r ~/Org/stage/* 
address@hidden:/home/staff/hetzi/Org/MobileOrg/")
                  )
                 )
 org-export-preprocess-before-selecting-backend-code-hook 
'(org-beamer-select-beamer-code)
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc
                   org-beamer-auto-fragile-frames
                   org-beamer-place-default-actions-for-lists)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-block nil)
             (export-comment org-export-blocks-format-comment t)
             (ditaa org-export-blocks-format-ditaa nil)
             (dot org-export-blocks-format-dot nil))
 )