mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 21:16:28 +00:00
Code Releases Activity

org-contacts: Fix Agenda format.

Browse source 
* contrib/lisp/org-contacts.el: Use `org-agenda-prefix-format' to
  format entry instead of unused org-agenda-format.

Signed-off-by: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
This commit is contained in:
Rüdiger Sonderfeld 2013-02-14 16:41:36 +01:00 committed by Grégoire Jadi
parent aff4b0b2de
commit 614a80490f
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
contrib/lisp/org-contacts.el
View file

@ -573,8 +573,8 @@ This function should be called from `gnus-article-prepare-hook'."
(let ((org-agenda-files (org-contacts-files)) (let ((org-agenda-files (org-contacts-files))
(org-agenda-skip-function (org-agenda-skip-function
(lambda () (org-agenda-skip-if nil `(notregexp ,name)))) (lambda () (org-agenda-skip-if nil `(notregexp ,name))))
(org-agenda-format (propertize (org-agenda-prefix-format (propertize
"%(org-contacts-icon-as-string)% p% s%(org-contacts-irc-number-of-unread-messages)%+T" "%(org-contacts-icon-as-string)% s%(org-contacts-irc-number-of-unread-messages) "
'keymap org-contacts-keymap)) 'keymap org-contacts-keymap))
(org-agenda-overriding-header (org-agenda-overriding-header
(or org-agenda-overriding-header (or org-agenda-overriding-header