Browse Source

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>
Rüdiger Sonderfeld 12 years ago
parent
commit
614a80490f
1 changed files with 3 additions and 3 deletions
  1. 3 3
      contrib/lisp/org-contacts.el

+ 3 - 3
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))
   (let ((org-agenda-files (org-contacts-files))
         (org-agenda-skip-function
         (org-agenda-skip-function
          (lambda () (org-agenda-skip-if nil `(notregexp ,name))))
          (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
         (org-agenda-overriding-header
          (or org-agenda-overriding-header
          (or org-agenda-overriding-header
              (concat "List of contacts matching `" name "':"))))
              (concat "List of contacts matching `" name "':"))))