Agenda: New face for entries from the Emacs diary

lisp/ChangeLog

@@ -1,5 +1,10 @@
 2010-01-04  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-agenda.el (org-get-entries-from-diary): Add the new face to
+	these entries.
+
+	* org-faces.el (org-agenda-diary): New face.
+
 	* org.el (org-make-link-regexps): Allow regexp-special characters
 	in link types.
 	(org-open-file): When in-emacs is `system', also force system

lisp/org-agenda.el

@@ -3757,7 +3757,7 @@ MATCH is being ignored."
 	       (setq x (org-format-agenda-item "" x "Diary" nil 'time))
 	       ;; Extend the text properties to the beginning of the line
 	       (org-add-props x (text-properties-at (1- (length x)) x)
-		 'type "diary" 'date date))
+		 'type "diary" 'date date 'face 'org-agenda-diary))
 	     entries)))))
 
 (defvar org-agenda-cleanup-fancy-diary-hook nil

lisp/org-faces.el

@@ -605,6 +605,12 @@ month and 365.24 days for a year)."
   "Face used for time grids."
   :group 'org-faces)
 
+(defface org-agenda-diary
+  (org-compatible-face 'default
+    nil)
+  "Face used for agenda entries that come from the Emacs diary."
+  :group 'org-faces)
+
 (defconst org-level-faces
   '(org-level-1 org-level-2 org-level-3 org-level-4
     org-level-5 org-level-6 org-level-7 org-level-8