[Orgmode] BUG - Archiving to the archive sibling duplicates tasks

[Bernt Hansen]

Hi Carsten,

I've found a bug with the archive process.

,----[ test.org ]
| * One
| ** One One
| ** One Two
| ** One Three
| ** One Four
`----

If you put the point on line 2 (The ** One One task) and then hit 

   C-c C-x A

4 times in a row to archive the four subtasks to the archive sibling I
get the following as a result:

,----[ test.org ]
| * One
| ** Archive                                                           :ARCHIVE:
| *** One One
|     :PROPERTIES:
|     :ARCHIVE_TIME: 2008-12-02 Tue 13:57
|     :END:
| *** One One
|     :PROPERTIES:
|     :ARCHIVE_TIME: 2008-12-02 Tue 13:57
|     :END:
| *** One Two
| *** One One
|     :PROPERTIES:
|     :ARCHIVE_TIME: 2008-12-02 Tue 13:57
|     :END:
| *** One Two
| *** One Three
| *** One One
|     :PROPERTIES:
|     :ARCHIVE_TIME: 2008-12-02 Tue 13:57
|     :END:
| *** One Two
| *** One Three
| *** One Four
`----

with lots of duplicated entries.

If I use the following sequence it works:

   C-c C-x A
   down arrow
   up arrow

repeated 4 times and I end up with what I was expecting

,----[ test.org ]
| * One
| ** Archive                                                           :ARCHIVE:
| *** One One
|     :PROPERTIES:
|     :ARCHIVE_TIME: 2008-12-02 Tue 14:00
|     :END:
| *** One Two
|     :PROPERTIES:
|     :ARCHIVE_TIME: 2008-12-02 Tue 14:00
|     :END:
| *** One Three
|     :PROPERTIES:
|     :ARCHIVE_TIME: 2008-12-02 Tue 14:00
|     :END:
| *** One Four
|     :PROPERTIES:
|     :ARCHIVE_TIME: 2008-12-02 Tue 14:00
|     :END:
`----

After the first C-c C-x A it looks like this (which is correct)

,----[ test.org ]
| * One
| ** One Two
| ** One Three
| ** One Four
| ** Archive                                                           :ARCHIVE:
| *** One One
|     :PROPERTIES:
|     :ARCHIVE_TIME: 2008-12-02 Tue 14:02
|     :END:
`----

and after the second it looks like this (which is wrong)

,----[ test.org ]
| * One
| ** One Three
| ** One Four
| ** Archive                                                           :ARCHIVE:
| *** One One
|     :PROPERTIES:
|     :ARCHIVE_TIME: 2008-12-02 Tue 14:03
|     :END:
| *** One One
|     :PROPERTIES:
|     :ARCHIVE_TIME: 2008-12-02 Tue 14:03
|     :END:
| *** One Two
`----

I'm running this from a minimal emacs session.  I can provide the setup
if you need it.

$ git describe
release_6.13a-23-g269c5a8

Thanks,
Bernt