aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki 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 8e9ac123b1
commit 3f1509bfa2
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
org-contacts.el
View file

@ -573,9 +573,9 @@ 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
(concat "List of contacts matching `" name "':")))) (concat "List of contacts matching `" name "':"))))