[O] Bug: "SCHEDULED: " positioning is fragile [7.8.06 (release_7.8.06.181.ga481)]

[Dave Abrahams]

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.
------------------------------------------------------------------------

Given the following:

--8<---------------cut here---------------start------------->8---
* TODO Some headline
SCHEDULED: <2012-04-05 Thu>
--8<---------------cut here---------------end--------------->8---

If I add body text between the headline and the SCHEDULED: line, some
things work, but others don't.  For example:

--8<---------------cut here---------------start------------->8---
* TODO Some headline
some body
SCHEDULED: <2012-04-05 Thu>
--8<---------------cut here---------------end--------------->8---

In agenda mode, I can hit `f' (org-agenda-date-later) and it will bump
the scheduled date forward and all is well.  However, if I hit `C-c C-s
+ RET' (org-agenda-schedule), the item changes to

--8<---------------cut here---------------start------------->8---
* TODO Some headline
SCHEDULED: <2012-04-06 Fri>
some body
SCHEDULED: <2012-04-05 Thu>
--8<---------------cut here---------------end--------------->8---

Moreover, the agenda still "thinks" this item is scheduled for
2012-04-05!  I can attempt to reschedule the item indefinitely and the
scheduled date will never appear to change, because the later one
overrides the earlier one.

There's no reason the format should be so sensitive to ordering.  If
org-agenda-date-later can do the right thing, so can org-agenda-schedule
and all the other commands that change the scheduled date of an item.

Emacs  : GNU Emacs 24.0.94.1 (x86_64-apple-darwin11.3.0, Carbon Version 1.6.0 
AppKit 1138.32)
 of 2012-03-14 on pluto.luannocracy.com
Package: Org-mode version 7.8.06 (release_7.8.06.181.ga481)

current state:
==============
(setq
 org-hide-leading-stars t
 org-export-babel-evaluate nil
 org-export-preprocess-before-selecting-backend-code-hook 
'(org-beamer-select-beamer-code)
 org-tab-first-hook '(yas/org-very-safe-expand org-hide-block-toggle-maybe 
org-src-native-tab-command-maybe
                      org-babel-hide-result-toggle-maybe)
 org-adapt-indentation nil
 org-footnote-section nil
 org-time-clocksum-use-fractional t
 org-log-buffer-setup-hook '((lambda nil (setq fill-column (- fill-column 5))))
 org-habit-preceding-days 42
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-agenda-fontify-priorities t
 org-reverse-note-order t
 org-agenda-auto-exclude-function 'org-my-auto-exclude-function
 org-occur-hook '(org-first-headline-recenter)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-agenda-scheduled-leaders '("" "S%d: ")
 org-agenda-start-on-weekday nil
 org-clock-into-drawer "LOGBOOK"
 org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
 org-confirm-shell-link-function nil
 org-x-backends '(ox-org ox-redmine)
 org-finalize-agenda-hook '(org-agenda-add-overlays)
 org-speed-commands-user '(("+" . org-priority-up) ("-" . org-priority-down))
 org-clock-idle-time 10
 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-habit-completed-glyph 10004
 org-agenda-restore-windows-after-quit t
 org-agenda-deadline-leaders '("D: " "D%d: ")
 org-pretty-entities t
 org-special-ctrl-a/e 'reversed
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-x-redmine-title-prefix-function 'org-x-redmine-title-prefix
 org-agenda-prefix-format '((agenda . "  %-11:c%?-12t% s") (timeline . "  % s") 
(todo . "  %-11:c") (tags . "  %-11:c"))
 org-agenda-skip-scheduled-if-done t
 org-agenda-custom-commands '(("E" "Errands (next 3 days)" tags
                               
"Errand&TODO<>\"DONE\"&TODO<>\"CANCELED\"&STYLE<>\"habit\"&SCHEDULED<\"<+3d>\""
                               ((org-agenda-overriding-header "Errands (next 3 
days)")))
                              ("A" "Priority #A tasks" agenda ""
                               ((org-agenda-ndays 1) 
(org-agenda-overriding-header "Today's priority #A tasks: ")
                                (org-agenda-skip-function (quote 
(org-agenda-skip-entry-if (quote notregexp) "\\=.*\\[#A\\]"))))
                               )
                              ("b" "Priority #A and #B tasks" agenda ""
                               ((org-agenda-ndays 1) 
(org-agenda-overriding-header "Today's priority #A and #B tasks: ")
                                (org-agenda-skip-function (quote 
(org-agenda-skip-entry-if (quote regexp) "\\=.*\\[#C\\]"))))
                               )
                              ("w" "Waiting/delegated tasks" tags 
"TODO=\"WAITING\"|TODO=\"DELEGATED\""
                               ((org-agenda-overriding-header 
"Waiting/delegated tasks:")
                                (org-agenda-sorting-strategy (quote 
(todo-state-up priority-down category-up))))
                               )
                              ("p" "Unprioritized tasks" tags
                               
"AREA<>\"Work\"&TODO<>\"\"&TODO<>{DONE\\|CANCELED\\|NOTE\\|PROJECT\\|DEFERRED\\|SOMEDAY}"
                               ((org-agenda-files (quote 
("~/Documents/Tasks/todo.txt")))
                                (org-agenda-overriding-header "Unprioritized 
tasks: ")
                                (org-agenda-skip-function (quote 
(org-agenda-skip-entry-if (quote regexp) "\\=.*\\[#[A-Z]\\]"))))
                               )
                              ("u" "Unscheduled tasks" tags 
"AREA<>\"Work\"&TODO<>\"\"&TODO<>{DONE\\|CANCELED\\|NOTE\\|PROJECT}"
                               ((org-agenda-files (quote 
("~/Documents/Tasks/todo.txt")))
                                (org-agenda-overriding-header "Unscheduled 
tasks: ")
                                (org-agenda-skip-function
                                 (quote
                                  (org-agenda-skip-entry-if (quote scheduled) 
(quote deadline) (quote timestamp) (quote regexp)
                                   "\\* \\(DEFERRED\\|SOMEDAY\\)")
                                  )
                                 )
                                (org-agenda-sorting-strategy (quote 
(priority-down))))
                               )
                              ("U" "Deferred tasks" tags "TODO=\"DEFERRED\""
                               ((org-agenda-files (quote 
("~/Documents/Tasks/todo.txt")))
                                (org-agenda-overriding-header "Deferred 
tasks:"))
                               )
                              ("Y" "Someday tasks" tags "TODO=\"SOMEDAY\"" 
((org-agenda-overriding-header "Someday tasks:")))
                              ("G" "Ledger tasks (all)" alltodo ""
                               ((org-agenda-files (quote 
("~/src/ledger/plan/TODO"))) (org-agenda-overriding-header "Ledger tasks:")
                                (org-agenda-sorting-strategy (quote 
(todo-state-up priority-down category-up))))
                               )
                              ("N" "Ledger tasks (all, alphabetical)" alltodo ""
                               ((org-agenda-files (quote 
("~/src/ledger/plan/TODO")))
                                (org-agenda-overriding-header "Ledger tasks, 
alphabetical:")
                                (org-agenda-sorting-strategy (quote 
(alpha-up))))
                               )
                              ("l" "Ledger tasks" tags-todo 
"TODO<>{SOMEDAY\\|DEFERRED}"
                               ((org-agenda-files (quote 
("~/src/ledger/plan/TODO"))) (org-agenda-overriding-header "Ledger tasks:")
                                (org-agenda-sorting-strategy (quote 
(todo-state-up priority-down category-up)))
                                (org-agenda-skip-function (quote 
(org-agenda-skip-entry-if (quote regexp) "\\=.*\\[#C\\]"))))
                               )
                              ("r" "Uncategorized items" tags
                               "CATEGORY=\"Inbox 
===>\"&LEVEL=2&TODO<>{DONE\\|CANCELED\\|NOTE\\|PROJECT}"
                               ((org-agenda-overriding-header "Uncategorized 
items")))
                              ("V" "Unscheduled work-related tasks" tags
                               
"AREA=\"Work\"&TODO<>\"\"&TODO<>{DONE\\|CANCELED\\|NOTE\\|PROJECT}"
                               ((org-agenda-overriding-header "Unscheduled 
work-related tasks")
                                (org-agenda-files (quote 
("~/Documents/Tasks/todo.txt")))
                                (org-agenda-sorting-strategy (quote 
(category-up)))
                                (org-agenda-skip-function
                                 (quote
                                  (org-agenda-skip-entry-if (quote scheduled) 
(quote deadline) (quote timestamp) (quote regexp)
                                   "\\* \\(DEFERRED\\|SOMEDAY\\)")
                                  )
                                 )
                                )
                               )
                              ("W" "Work-related tasks" tags 
"AREA=\"Work\"&TODO<>\"\"&TODO<>{DONE\\|CANCELED\\|NOTE\\|PROJECT}"
                               ((org-agenda-overriding-header "Work-related 
tasks")
                                (org-agenda-files (quote 
("~/Documents/Tasks/todo.txt")))
                                (org-agenda-sorting-strategy (quote 
(category-up priority-down todo-state-up alpha-up)))
                                (org-agenda-skip-function
                                 (quote (org-agenda-skip-entry-if (quote 
regexp) "\\* \\(DEFERRED\\|SOMEDAY\\)")))
                                )
                               )
                              )
 org-return-follows-link t
 org-default-notes-file "~/Documents/Tasks/todo.txt"
 org-clock-in-resume t
 org-capture-templates '(("t" "Task" entry (file+headline 
"~/Documents/Tasks/todo.txt" "Inbox")
                          "* TODO %?\n  SCHEDULED: %t\n  :PROPERTIES:\n  :ID:   
    %(shell-command-to-string \"uuidgen\")  :CREATED:  %U\n  :END:" :prepend t)
                         )
 org-agenda-include-diary t
 org-drawers '("PROPERTIES" "CLOCK" "LOGBOOK" "OUT")
 org-after-todo-state-change-hook '(org-clock-out-if-current org-checklist)
 org-todo-repeat-to-state "TODO"
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
 org-tags-column -97
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-mode-hook '((lambda nil (set (make-local-variable (quote yas/trigger-key)) 
[tab])
                  (add-to-list (quote org-tab-first-hook) (quote 
yas/org-very-safe-expand))
                  (define-key yas/keymap [tab] (quote yas/next-field)))
                 (lambda nil (local-unset-key (kbd ".,")))
                 #[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-agenda-follow-indirect t
 org-refile-targets '((nil :todo . "PROJECT") (nil :maxlevel . 2))
 org-extend-today-until 6
 org-attach-method 'mv
 org-mobile-pre-pull-hook '(my-org-convert-incoming-items)
 org-use-speed-commands t
 org-agenda-sorting-strategy '((agenda habit-down time-up todo-state-up 
priority-down category-keep)
                               (todo priority-down category-keep) (tags 
priority-down category-keep) (search category-keep))
 org-clock-persist 'history
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
 org-agenda-persistent-filter t
 org-clock-in-switch-to-state "STARTED"
 org-directory "~/Documents/Tasks/"
 org-enforce-todo-dependencies 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-habit-show-habits-only-for-today nil
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 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))
 org-archive-location "TODO-archive::"
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-agenda-text-search-extra-files '(agenda-archives)
 org-habit-today-glyph 9483
 org-x-redmine-title-prefix-match-function 'org-x-redmine-title-prefix-match
 org-agenda-default-appointment-duration 60
 org-export-interblocks '((src org-babel-exp-non-block-elements))
 org-use-property-inheritance '("AREA")
 org-modules '(org-id org-info org-habit)
 org-agenda-ndays 1
 org-checkbox-statistics-hook '(dwa/checkbox-list-complete)
 org-fast-tag-selection-single-key 'expert
 org-agenda-window-setup 'current-window
 org-babel-tangle-lang-exts '(("python" . "py") ("emacs-lisp" . "el"))
 org-confirm-elisp-link-function nil
 org-edit-src-content-indentation 0
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-log-into-drawer t
 org-mobile-post-push-hook '((lambda nil (shell-command "/bin/rm -f 
~/Dropbox/MobileOrg/agendas.org")
                              (shell-command
                               (concat "perl -i -ne 'print unless 
/agendas\\.org/;'" "~/Dropbox/MobileOrg/checksums.dat"))
                              (shell-command (concat "perl -i -ne 'print unless 
/agendas\\.org/;'" "~/Dropbox/MobileOrg/index.org")))
                             )
 org-insert-heading-respect-content t
 org-agenda-skip-unavailable-files t
 org-checklist-export-function 'org-export-as-ascii
 org-default-priority 67
 org-clock-modeline-total 'current
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-agenda-skip-deadline-if-done t
 org-completion-use-ido t
 org-babel-load-languages '((emacs-lisp . t) (sh . t))
 org-cycle-global-at-bob t
 org-agenda-start-with-follow-mode t
 org-agenda-mode-hook '((lambda nil (local-unset-key (kbd ".,"))))
 org-agenda-files '("~/Documents/Tasks/todo.txt")
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-archive-save-context-info '(time category itags)
 org-src-fontify-natively t
 org-clock-out-remove-zero-time-clocks t
 org-refile-target-verify-function 'dwa/org-verify-refile-target
 org-agenda-skip-scheduled-if-deadline-is-shown t
 org-after-todo-statistics-hook '(dwa/org-summary-todo)
 )
-- 
Dave Abrahams
BoostPro Computing
http://www.boostpro.com