From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?ISO-8859-1?Q?R=FCdiger?= Sonderfeld Subject: [PATCH] org-contacts: Fix Agenda format. Date: Thu, 14 Feb 2013 16:41:36 +0100 Message-ID: <2168297.xVuDmoemev@descartes> Mime-Version: 1.0 Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([208.118.235.92]:60171) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U64Fh-0004uN-M6 for emacs-orgmode@gnu.org; Thu, 14 Feb 2013 14:13:56 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1U60wT-0003Pz-3r for emacs-orgmode@gnu.org; Thu, 14 Feb 2013 10:41:57 -0500 Received: from ptmx.org ([178.63.28.110]:33417) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U60wS-0003PV-LL for emacs-orgmode@gnu.org; Thu, 14 Feb 2013 10:41:44 -0500 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: julien@danjou.info * contrib/lisp/org-contacts.el: Use `org-agenda-prefix-format' to format entry instead of unused org-agenda-format. Signed-off-by: R=C3=BCdiger Sonderfeld --- 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.e= l 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-p= repare-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 +=09=09=09=09 "%(org-contacts-icon-as-string)% s%(org-contacts-irc-nu= mber-of-unread-messages) " +=09=09=09=09 'keymap org-contacts-keymap)) (org-agenda-overriding-header (or org-agenda-overriding-header (concat "List of contacts matching `" name "':")))) --=20 1.8.1.1