Rüdiger Sonderfeld <ruedi...@c-plusplus.de> 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 <ruedi...@c-plusplus.de> > --- > 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
pgptohHZVV0AS.pgp
Description: PGP signature
