diff options
| author | Rüdiger Sonderfeld <ruediger@c-plusplus.de> | 2013-02-14 15:41:36 (GMT) |
|---|---|---|
| committer | Grégoire Jadi <gregoire.jadi@gmail.com> | 2013-02-14 20:41:25 (GMT) |
| commit | 614a80490ff3c7d1c118e5d6623753666e8089ee (patch) | |
| tree | 04f0eddc23c77f5fec2dde8917a6f85d0409006c | |
| parent | aff4b0b2de05fb069e8641f49930b051d068617a (diff) | |
| download | org-mode-614a80490ff3c7d1c118e5d6623753666e8089ee.zip 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 "':")))) |