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 <michael_heerdegen@web.de>]

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) "\302\bJ@	\"\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!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) "\302\bJ@	\"\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)
                             "\302\bJ@	\"\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)
 )