[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] [PATCH] org-contacts: Fix Agenda format.
From: |
Daimrod |
Subject: |
Re: [O] [PATCH] org-contacts: Fix Agenda format. |
Date: |
Thu, 14 Feb 2013 21:45:25 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) |
Rüdiger Sonderfeld <address@hidden> writes:
> * 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 <address@hidden>
> ---
> contrib/lisp/org-contacts.el | 6 +++---
> 1 file changed, 3 insertions(+), 3 deletions(-)
>
> diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el
> index 49bf489..5858a07 100644
> --- a/contrib/lisp/org-contacts.el
> +++ b/contrib/lisp/org-contacts.el
> @@ -544,9 +544,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 "':"))))
Applied, thank you.
--
Daimrod/Greg
pgp8QJ6IXtjqw.pgp
Description: PGP signature