[elpa] scratch/org-contacts-rebased 68918fc 034/118: org-contacts: Fix Agenda format.

[Stefan Monnier]

branch: scratch/org-contacts-rebased
commit 68918fc1e2a4822392f5c7a5e9ff364bc4e351a2
Author: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
Commit: Grégoire Jadi <gregoire.jadi@gmail.com>

    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>
---
 org-contacts.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/org-contacts.el b/org-contacts.el
index e3ec7c7..3ad581d 100644
--- a/org-contacts.el
+++ b/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 "':"))))