[O] Bug: Messaging when moving in the agenda [7.9.2 (7.9.2-GNU-Emacs-24-3 @ /usr/share/emacs/24.2.50/lisp/org/)]

[Michael Heerdegen]

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

Hello,

When I move around in the *Org Agenda* with up and down, the current
outline path is displayed in the echo area, which is good.

However, what is displayed gets also copied in the *Messages* buffer,
which is not helpful, but clutters *Messages* with useless noise.

So, IMHO `org-display-outline-path' should still display its stuff in
the echo area, but prevent logging in *Messages*.  AFAIK, the way to do
this is to bind `message-log-max' to nil.

I'm not sure if this is the right thing in every case, but if the goal
is to just display something for better orientation etc., there is no
need for logging.

Dunno if there are other functions that could benefit from the same
treatment.


Regards,

Michael.

Emacs  : GNU Emacs 24.2.50.1 (x86_64-pc-linux-gnu, GTK+ Version 3.4.2)
 of 2012-10-25 on dex, modified by Debian
Package: Org-mode version 7.9.2 (7.9.2-GNU-Emacs-24-3 @ 
/usr/share/emacs/24.2.50/lisp/org/)

current state:
==============
(setq
 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-agenda-skip-deadline-prewarning-if-scheduled t
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-reverse-note-order t
 org-occur-hook '(org-first-headline-recenter)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-capture-after-finalize-hook '(#[nil "\300\301!\207" [org-agenda-to-appt 
refresh] 2])
 org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
 org-confirm-shell-link-function 'yes-or-no-p
 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-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-agenda-skip-scheduled-if-done t
 org-agenda-custom-commands '(("d" todo "DELEGATED" nil) ("c" todo 
"DONE|DEFERRED|CANCELLED" nil)
                              ("w" todo "WAITING" nil) ("W" agenda #1="" 
((org-agenda-ndays 21)))
                              ("A" "#A Tasks for today" agenda #1#
                               ((org-agenda-skip-function
                                 (lambda nil
                                  (org-agenda-skip-entry-if (quote notregexp) 
"\\=.*\\[#A\\]"))
                                 )
                                (org-agenda-ndays 1)
                                (org-agenda-overriding-header "Today's Priority 
#A tasks: "))
                               )
                              ("u" "Unsceduled Tasks" alltodo #1#
                               ((org-agenda-skip-function
                                 (lambda nil
                                  (org-agenda-skip-entry-if (quote scheduled) 
(quote deadline)
                                   (quote regexp) "<[^>\n]+>")
                                  )
                                 )
                                (org-agenda-overriding-header "Unscheduled TODO 
entries: "))
                               )
                              )
 org-return-follows-link t
 org-capture-templates '(("t" "Task" entry (file+headline my-org-todo-file 
"Tasks")
                          "* TODO %?\n  SCHEDULED: %t" :prepend t)
                         ("a" "APPT" entry (file+headline my-org-todo-file 
"Tasks") "* APPT %?\n  %t"
                          :prepend t)
                         ("c" "FromConkeror" entry (file+headline 
my-org-todo-file "Tasks")
                          "* TODO %?\n  :PROPERTIES:\n  :created: %U\n  :link: 
%a\n  :END:\n  %i"
                          :prepend t)
                         )
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-from-is-user-regexp "\\<Michael Heerdegen\\>"
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-mode-hook '((lambda (&rest --cl-rest--)
                  (apply
                   (quote
                    #[(#1=#:G76352 #:G76353 &rest #2=#:arguments_76338) 
"\302J@        \"\207"
                      [#1# #2# apply] 3]
                    )
                   (quote #:--wrapped-lambda_76337--) (quote #:--menu--) 
--cl-rest--)
                  )
                 #[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
                 #[nil "\301\300!\210\302\303!B\211\207"
                   [mouse3-region-popup-submenus make-local-variable
                    ("Org Mode" ("Shift Time" . 
org-timer-change-times-in-region)
                     ("Convert to ASCII" . org-replace-region-by-ascii)
                     ("Convert to HTML" . org-replace-region-by-html)
                     ("Convert to DocBook" . org-replace-region-by-docbook)
                     ("Convert to LaTeX" . org-replace-region-by-latex))
                    copy-tree]
                   3]
                 )
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
 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-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-export-first-hook '(org-beamer-initialize-open-trackers)
 org-export-interblocks '((src org-babel-exp-non-block-elements))
 org-bbdb-anniversary-format-alist '(("relationship" lambda (name years suffix)
                                      (concat "[[bbdb:" name "][" name "'s " 
(number-to-string years)
                                       suffix " relationship anniversary]]")
                                      )
                                     ("obit" lambda (name years suffix)
                                      (concat "[[bbdb:" name "][" name "'s " 
(number-to-string years)
                                       suffix " obit]]")
                                      )
                                     ("birthday" lambda (name years suffix)
                                      (concat "Birthday: [[bbdb:" name "][" 
name " ("
                                       (format "%s" years) suffix ")]]")
                                      )
                                     ("wedding" lambda (name years suffix)
                                      (concat "[[bbdb:" name "][" name "'s " 
(format "%s" years)
                                       suffix " wedding anniversary]]")
                                      )
                                     )
 org-agenda-ndays 7
 org-fast-tag-selection-single-key 'expert
 org-confirm-elisp-link-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 outline-mode-hook '((lambda (&rest --cl-rest--)
                      (apply
                       (quote
                        #[(#1=#:G76194 &rest #2=#:arguments_76174) "\302J@     
\"\207"
                          [#1# #2# apply] 3]
                        )
                       (quote #:--wrapped-lambda_76173--) --cl-rest--)
                      )
                     )
 org-show-entry-below '((default) (isearch t))
 org-show-siblings '((org-goto . t) (default) (isearch t))
 org-agenda-skip-deadline-if-done t
 org-cycle-separator-lines 0
 org-agenda-mode-hook '((lambda (&rest --cl-rest--)
                         (apply
                          (quote
                           #[(#1=#:G76371 #:G76372 &rest #2=#:arguments_76357)
                             "\302J@   \"\207" [#1# #2# apply] 3]
                           )
                          (quote #:--wrapped-lambda_76356--) (quote #:--menu--) 
--cl-rest--)
                         )
                        hl-line-mode)
 org-agenda-files '("/home/micha/gnu-emacs/todo.org")
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 )