[O] Bug: View not returning to column 0 on fill while in truncate mode [7.9.3f (release_7.9.3f-17-g7524ef @ c:/emacs/lisp/org/)]

[Tom Burbage]

I agree with the default "wrap" behavior of org-mode to be truncate 
rather than wrap, and want to leave it at that default, but wish that 
when typing text beyond the fill column triggering a fill, that the view 
would return to showing column 0 of the buffer. The way it works now is 
as if it did a LF but not a CR, so the visibility of the left columns 
which were forced to be truncated as the word which will trigger the 
fill remain truncated from view after the fill. This is probably more 
easily apparent where the frame width is only slightly larger than the 
fill columns value. If I toggle-truncate-lines, I get behavior more like 
what I'm expecting, but again in general prefer truncate to wrap for 
org-mode buffers, so was hoping something could be done to force the view to
shift back to column 0 after the fill.

Attached are before and after screen capture images in case the above is 
not clear. Note just updated to 24.3, but it was the same in 24.2, and 
on Win and Mac/nextstep standalone Emacs.

Emacs  : GNU Emacs 24.3.1 (i386-mingw-nt6.0.6002)
 of 2013-03-17 on MARVIN
Package: Org-mode version 7.9.3f (release_7.9.3f-17-g7524ef @ 
c:/emacs/lisp/org/)

current state:
==============
(setq
 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-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
 org-icalendar-store-UID t
 org-remember-store-without-prompt nil
 org-reverse-note-order t
 org-agenda-skip-scheduled-if-done t
 org-goto-max-level 2
 org-export-preprocess-before-selecting-backend-code-hook 
'(org-beamer-select-beamer-code)
 org-tab-first-hook '(org-hide-block-toggle-maybe
                      org-src-native-tab-command-maybe
                      org-babel-hide-result-toggle-maybe
                      org-babel-header-arg-expand)
 org-refile-targets '((org-agenda-files :maxlevel . 1))
 org-imenu-depth 1
 org-modules '(org-info org-mouse)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
                  org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-agenda-custom-commands '(("2" agenda "2 week horizon"
                               ((org-agenda-ndays 14)))
                              ("4" agenda "4 week horizon"
                               ((org-agenda-ndays 28)))
                              ("S" alltodo "Unscheduled tasks"
                               ((org-agenda-skip-function
                                 (lambda nil
                                  (org-agenda-skip-entry-if (quote 
scheduled)
                                   (quote deadline))
                                  )
                                 )
                                (org-agenda-overriding-header
                                 "Unscheduled tasks: ")
                                )
                               )
                              ("P" alltodo "Unprioritized tasks"
                               ((org-agenda-skip-function
                                 (lambda nil
                                  (org-agenda-skip-entry-if (quote regexp)
                                   "[#[ABCDE]].+")
                                  )
                                 )
                                (org-agenda-overriding-header
                                 "Unprioritized tasks: ")
                                )
                               )
                              )
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-speed-command-hook '(org-speed-command-default-hook
                          org-babel-speed-command-hook)
 org-lowest-priority 69
 org-return-follows-link t
 org-babel-pre-tangle-hook '(save-buffer)
 org-occur-hook '(org-first-headline-recenter)
 org-export-interblocks '((src org-babel-exp-non-block-elements))
 org-refile-allow-creating-parent-nodes 'confirm
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-fast-tag-selection-single-key 'expert
 org-default-notes-file "~/Documents/org/agenda/notes.org"
 org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
 org-refile-use-outline-path 'file
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-completion-use-ido t
 org-remember-templates '(("tasks" 116 "** TODO %?\n  %u" "todo.org"
                           "Unfiled Tasks" nil)
                          ("notes" 110 "* %u %?" "notes.org" "Remember 
Notes"
                           nil)
                          )
 org-default-priority 69
 org-support-shift-select t
 org-use-speed-commands t
 org-agenda-ndays 7
 org-agenda-skip-deadline-if-done t
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-mode-hook '((lambda nil (message "org-mode-hook run...")
                  (setq truncate-lines nil) (turn-on-auto-fill))
                 #[nil
                   "\305\306
 >\203

AfterFill.jpg
Description: JPEG image

BeforeFill.jpg
Description: JPEG image