diff options
author | Rüdiger Sonderfeld <ruediger@c-plusplus.de> | 2013-02-14 16:41:36 +0100 |
---|---|---|
committer | Grégoire Jadi <gregoire.jadi@gmail.com> | 2013-02-14 21:41:25 +0100 |
commit | 614a80490ff3c7d1c118e5d6623753666e8089ee (patch) | |
tree | 04f0eddc23c77f5fec2dde8917a6f85d0409006c | |
parent | aff4b0b2de05fb069e8641f49930b051d068617a (diff) | |
download | org-mode-614a80490ff3c7d1c118e5d6623753666e8089ee.tar.gz |
org-contacts: Fix Agenda format.
* 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>
-rw-r--r-- | contrib/lisp/org-contacts.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index e3ec7c7..3ad581d 100644 --- a/contrib/lisp/org-contacts.el +++ b/contrib/lisp/org-contacts.el @@ -573,9 +573,9 @@ This function should be called from `gnus-article-prepare-hook'." (let ((org-agenda-files (org-contacts-files)) (org-agenda-skip-function (lambda () (org-agenda-skip-if nil `(notregexp ,name)))) - (org-agenda-format (propertize - "%(org-contacts-icon-as-string)% p% s%(org-contacts-irc-number-of-unread-messages)%+T" - 'keymap org-contacts-keymap)) + (org-agenda-prefix-format (propertize + "%(org-contacts-icon-as-string)% s%(org-contacts-irc-number-of-unread-messages) " + 'keymap org-contacts-keymap)) (org-agenda-overriding-header (or org-agenda-overriding-header (concat "List of contacts matching `" name "':")))) |