Org-mode version 6.33 (release_6.33); Refile to current clocking task duplicates tasks

* Org-mode version 6.33 (release_6.33); Refile to current clocking task duplicates tasks
@ 2009-11-13 20:48 Bernt Hansen
  2009-11-13 21:43 ` Carsten Dominik
  0 siblings, 1 reply; 3+ messages in thread
From: Bernt Hansen @ 2009-11-13 20:48 UTC (permalink / raw)
  To: emacs-orgmode

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

Consecutively refiling to the current clocking task with C-2 C-c C-w
incorrectly duplicates the first task at the refile target.

Consider the following tasks to be refiled

,----[ refile.org ]
| * TODO Refile task 1
|   [2009-11-13 Fri 15:38]
| * TODO Refile task 2
|   [2009-11-13 Fri 15:38]
`----

Clock in some task in another org file and then refile these tasks
consecutively to the clocking task with

C-2 C-c C-w C-2 C-c C-w

This creates a duplicate 'Refile task 1' entry at the refile target.

,----[ another-file.org ]
| *** TODO Current clocking task
| **** TODO Refile task 1
|      [2009-11-13 Fri 15:38]
| **** TODO Refile task 1
|      [2009-11-13 Fri 15:38]
| **** TODO Refile task 2
|      [2009-11-13 Fri 15:38]
`----

-Bernt

Emacs  : GNU Emacs 22.2.1 (i486-pc-linux-gnu, GTK+ Version 2.12.11)
 of 2008-11-09 on raven, modified by Debian
Package: Org-mode version 6.33 (release_6.33)

current state:
==============
(setq
 org-export-html-final-hook '(org-inlinetask-remove-terminator)
 org-log-done 'time
 org-remember-default-headline "Tasks"
 org-clock-in-switch-to-state "STARTED"
 org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold) ("STARTED" :foreground "blue" :weight bold) ("DONE" :foreground "forest green" :weight bold) ("WAITING" :foreground "orange" :weight bold)
			  ("SOMEDAY" :foreground "magenta" :weight bold) ("CANCELLED" :foreground "forest green" :weight bold) ("QUOTE" :foreground "red" :weight bold)
			  ("QUOTED" :foreground "magenta" :weight bold) ("APPROVED" :foreground "forest green" :weight bold) ("EXPIRED" :foreground "forest green" :weight bold)
			  ("REJECTED" :foreground "forest green" :weight bold) ("OPEN" :foreground "blue" :weight bold))
 org-show-siblings nil
 org-special-ctrl-a/e t
 org-agenda-clockreport-parameter-plist '(:link nil :maxlevel 2)
 org-default-priority 71
 org-agenda-custom-commands '(("s" "Started Tasks" todo "STARTED" ((org-agenda-todo-ignore-scheduled nil) (org-agenda-todo-ignore-deadlines nil) (org-agenda-todo-ignore-with-date nil)))
			      ("w" "Tasks waiting on something" tags "WAITING/!" ((org-use-tag-inheritance nil)))
			      ("r" "Refile New Notes and Tasks" tags "LEVEL=1+REFILE" ((org-agenda-todo-ignore-with-date nil))) ("N" "Notes" tags "NOTE" nil)
			      ("n" "Next" tags "NEXT-WAITING-CANCELLED/!" nil) ("p" "Projects" tags-todo "LEVEL=2-NEXT-WAITING-CANCELLED/!-DONE" nil)
			      ("A" "Tasks to be Archived" tags "LEVEL=2/DONE|CANCELLED" nil))
 org-agenda-files '("~/git/org/diary.org" "~/git/bzflag/bzflag-website/TODO.org" "~/git/org/bzflag.org" "~/git/org/git.org" "~/git/org/todo.org" "~/git/org/jobs.org" "~/git/org/refile.org"
		    "~/git/org/farm.org" "~/git/org/mark.org" "~/git/org/org.org" "~/git/org/norang.org")
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-agenda-tags-column -102
 org-export-ascii-final-hook '(org-inlinetask-remove-terminator)
 org-clock-in-hook '(bh/mark-habit-done-on-clock-in)
 org-export-with-sub-superscripts nil
 org-clock-into-drawer "CLOCK"
 org-checklist-export-function 'org-export-as-ascii
 org-completion-use-ido t
 org-agenda-skip-timestamp-if-done t
 org-after-todo-state-change-hook '(org-checklist org-clock-out-if-current)
 org-clock-out-when-done nil
 org-agenda-text-search-extra-files '(agenda-archives)
 org-agenda-todo-ignore-scheduled t
 org-clock-history-length 35
 org-show-hierarchy-above t
 org-time-stamp-rounding-minutes '(1 15)
 org-speed-commands-user '(("1" . delete-other-windows) ("2" . split-window-horizontally) ("3" . split-window-vertically))
 org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t)) ("WAITING" ("WAITING" . t) ("NEXT")) ("SOMEDAY" ("WAITING" . t)) (done ("NEXT") ("WAITING")) ("TODO" ("WAITING") ("CANCELLED") ("NEXT"))
				("DONE" ("WAITING") ("CANCELLED") ("NEXT")))
 org-special-ctrl-k t
 org-remember-clock-out-on-exit nil
 org-agenda-sorting-strategy '((agenda habit-down time-up priority-down effort-up category-up) (todo priority-down) (tags priority-down))
 org-deadline-warning-days 30
 org-agenda-skip-scheduled-if-done t
 org-stuck-projects '("LEVEL=2-REFILE-WAITING|LEVEL=1+REFILE/!-DONE-CANCELLED-OPEN" nil ("NEXT") "")
 org-agenda-time-grid '(nil "----------------" (800 1000 1200 1400 1600 1800 2000))
 org-clock-in-resume t
 org-quote-string "FOOBAR"
 org-export-preprocess-hook '(org-export-blocks-preprocess)
 org-tags-exclude-from-inheritance '("crypt")
 org-agenda-diary-file "~/git/org/diary.org"
 org-tab-first-hook '(org-hide-block-toggle-maybe)
 outline-regexp "\\(?:\\*+\\|=+ \\)"
 org-src-mode-hook '(org-src-mode-configure-edit-buffer)
 org-finalize-agenda-hook '(bh/org-agenda-to-appt)
 org-confirm-shell-link-function 'yes-or-no-p
 org-table-export-default-format "orgtbl-to-csv"
 org-clock-persist 'history
 org-clock-sound "/usr/local/lib/alert1.wav"
 org-todo-keywords '((sequence "TODO(t!)" "STARTED(s!)" "|" "DONE(d!/!)") (sequence "WAITING(w@/!)" "SOMEDAY(S!)" "OPEN(O@)" "|" "CANCELLED(c@/!)")
		     (sequence "QUOTE(q!)" "QUOTED(Q!)" "|" "APPROVED(A@)" "EXPIRED(E@)" "REJECTED(R@)"))
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-default-notes-file "~/git/org/refile.org"
 org-export-docbook-xslt-proc-command "xsltproc --output %s /usr/share/xml/docbook/stylesheet/nwalsh/fo/docbook.xsl %s"
 org-insert-heading-hook '(bh/insert-inactive-timestamp)
 org-tag-alist '((:startgroup) ("@errand" . 101) ("@office" . 111) ("@home" . 104) ("@farm" . 102) (:endgroup) ("PHONE" . 112) ("QUOTE" . 113) ("NEXT" . 110) ("WAITING" . 119) ("HOME" . 72) ("FARM" . 70)
		 ("ORG" . 79) ("JOBS" . 74) ("SAPPI" . 83) ("NORANG" . 78) ("crypt" . 101) ("inet" . 105) ("MARK" . 77) ("BZFLAG" . 66))
 org-blank-before-new-entry '((heading) (plain-list-item))
 org-habit-graph-column 50
 org-export-html-inline-images t
 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-latex-classes '(("myletter"
			     "% BEGIN My Letter Defaults\n\\documentclass[10pt,letterpaper]{letter}\n\\usepackage[letterpaper,includeheadfoot,top=0.5in,bottom=0.5in,left=0.75in,right=0.75in]{geometry}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{hyperref}\n\\usepackage{lastpage}\n\\usepackage{fancyhdr}\n\\pagestyle{fancy}\n\\renewcommand{\\footrulewidth}{0.5pt}\n\n% Default footer\n\\fancyfoot[C]{\\small Page \\thepage\\ of \\pageref{LastPage}}\n% END My Letter Defaults\n\n"
			     ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}")
			     ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
			    ("myarticle"
			     "% BEGIN My Article Defaults\n\\documentclass[10pt,letterpaper]{article}\n\\usepackage[letterpaper,includeheadfoot,top=0.5in,bottom=0.5in,left=0.75in,right=0.75in]{geometry}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{hyperref}\n\\usepackage{lastpage}\n\\usepackage{fancyhdr}\n\\pagestyle{fancy}\n\\renewcommand{\\headrulewidth}{1pt}\n\\renewcommand{\\footrulewidth}{0.5pt}\n\n% Default footer\n\\fancyfoot[L]{\\small \\jobname \\\\ \\today}\n\\fancyfoot[C]{\\small Page \\thepage\\ of \\pageref{LastPage}}\n\\fancyfoot[R]{\\small \\copyright \\the\\year\\  Norang Consulting Inc.}\n% END My Article Defaults\n\n"
			     ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}")
			     ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
			    ("article" "\\documentclass[11pt,letterpaper]{article}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}"
			     ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}")
			     ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
			    ("report" "\\documentclass[11pt,letterpaper]{report}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}"
			     ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}")
			     ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
			    ("book" "\\documentclass[11pt,letterpaper]{book}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}"
			     ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}")
			     ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
			    )
 org-publish-project-alist '(("norang-org" :base-directory "~/git/www.norang.ca" :publishing-directory "/ssh:www-data@www:~/www.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-contents nil
			      :base-extension "org" :publishing-function org-publish-org-to-html :style-include-default nil :section-numbers nil :table-of-contents nil :style-include-default nil :style
			      "<link rel=\"stylesheet\" href=\"norang.css\" type=\"text/css\" />" :author-info nil :creator-info nil)
			     ("norang-extra" :base-directory "~/git/www.norang.ca/" :publishing-directory "/ssh:www-data@www:~/www.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif"
			      :publishing-function org-publish-attachment :recursive t :author nil)
			     ("norang" :components ("norang-org" "norang-extra"))
			     ("doc-org" :base-directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-contents nil
			      :base-extension "org" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :plain-source t :htmlized-source t :style-include-default nil :style
			      "<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />" :author-info nil :creator-info nil)
			     ("doc-extra" :base-directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif"
			      :publishing-function org-publish-attachment :recursive t :author nil)
			     ("org" :base-directory "~/git/org/" :publishing-directory "/ssh:www-data@www:~/org" :recursive t :section_numbers nil :table-of-contents nil :base-extension "org"
			      :publishing-function org-publish-org-to-html :style-include-default nil :style "<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />" :author-info nil :creator-info
			      nil)
			     ("doc-org-mode" :base-directory "~/git/org-mode-doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive t :section_numbers nil :table-of-contents nil
			      :base-extension "org" :publishing-function (org-publish-org-to-html org-publish-org-to-org) :plain-source t :htmlized-source t :style-include-default nil :style
			      "<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />" :author-info nil :creator-info nil)
			     ("doc-org-mode-extra" :base-directory "~/git/org-mode-doc/" :publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs" :base-extension "css\\|pdf\\|png\\|jpg\\|gif"
			      :publishing-function org-publish-attachment :recursive t :author nil)
			     ("doc" :components ("doc-org" "doc-extra" "doc-org-mode" "doc-org-mode-extra")))
 org-agenda-tags-todo-honor-ignore-options t
 org-use-speed-commands t
 org-mode-hook '(org-clock-load
		 (lambda nil (make-variable-buffer-local (quote yas/trigger-key)) (org-set-local (quote yas/trigger-key) [tab]) (define-key yas/keymap [tab] (quote yas/next-field-group)) (flyspell-mode 1))
		 (lambda nil (add-hook (quote before-save-hook) (quote org-encrypt-entries) nil t))
		 (lambda nil (org-add-hook (quote change-major-mode-hook) (quote org-show-block-all) (quote append) (quote local))))
 org-clock-out-remove-zero-time-clocks t
 org-cycle-include-plain-lists nil
 org-font-lock-hook '(org-inlinetask-fontify)
 org-agenda-ndays 1
 org-global-properties '(("Effort_ALL" . "0:10 0:30 1:00 2:00 4:00 6:00 8:00 12:00 16:00 24:00") ("STYLE_ALL" . "habit"))
 org-refile-targets '((nil :maxlevel . 5) (org-agenda-files :maxlevel . 5))
 org-clock-auto-clock-resolution nil
 org-return-follows-link t
 org-confirm-elisp-link-function 'yes-or-no-p
 org-refile-use-outline-path 'file
 org-fast-tag-selection-single-key 'expert
 org-log-into-drawer t
 org-agenda-mode-hook '((lambda nil (hl-line-mode 1)))
 org-agenda-start-on-weekday nil
 org-agenda-todo-ignore-with-date t
 org-enforce-todo-dependencies t
 org-agenda-skip-deadline-if-done t
 org-show-following-heading t
 org-insert-heading-respect-content t
 org-crypt-key "F0B66B40"
 org-occur-hook '(org-first-headline-recenter)
 org-from-is-user-regexp "\\<Bernt Hansen\\>"
 org-yank-adjusted-subtrees t
 org-drawers '("PROPERTIES" "LOGBOOK" "CLOCK")
 org-agenda-log-mode-items '(clock)
 org-treat-S-cursor-todo-selection-as-state-change nil
 org-export-docbook-xsl-fo-proc-command "fop %s %s"
 org-agenda-todo-ignore-deadlines t
 org-modules '(org-bbdb org-bibtex org-crypt org-gnus org-id org-info org-jsinfo org-habit org-inlinetask org-irc org-mew org-mhe org-protocol org-rmail org-vm org-wl org-w3m)
 org-columns-default-format "%80ITEM(Task) %10Effort(Estimated Effort){:} %10CLOCKSUM"
 org-agenda-auto-exclude-function 'bh/org-auto-exclude-function
 org-remember-templates '(("todo" 116 "* TODO %?\n  %U\n  %a" nil bottom nil) ("note" 110 "* %?                                        :NOTE:\n  %U\n  %a" nil bottom nil)
			  ("phone" 112 "* PHONE %:name - %:company -                :PHONE:\n  Contact Info: %a\n  %U\n  :CLOCK-IN:\n  %?" nil bottom nil)
			  ("Apply to Job" 106 "* TODO jobtask%?                            :NEXT:inet:\n  :PROPERTIES:\n  :Effort: 0:30\n  :END:\n  %U\n  jobdetails" "~/git/org/jobs.org" "TODO Job Search"
			   nil)
			  ("appointment" 97 "* %?\n  %U" "~/git/org/todo.org" "Appointments" nil)
			  ("Search job site" 115 "* TODO Search job site%!                   :NEXT:inet:\n  %U\n  :PROPERTIES:\n  :Effort: 0:10\n  :END:\n  %a  " "~/git/org/jobs.org" "Search Jobs" nil)
			  ("org-protocol" 119 "* TODO Review %c%!  :NEXT:\n  %U\n  :PROPERTIES:\n  :Effort: 0:10\n  :END:" nil bottom nil))
 org-export-preprocess-after-tree-selection-hook '(org-inlinetask-export-handler)
 org-export-docbook-final-hook '(org-inlinetask-remove-terminator)
 org-export-latex-final-hook '(org-inlinetask-remove-terminator)
 org-lowest-priority 71
 )

^ permalink raw reply	[flat|nested] 3+ messages in thread