(diary-fancy-display): Always run the hook.

lisp/ChangeLog

 2009-09-24  Glenn Morris  <rgm@gnu.org>
 
+	* calendar/diary-lib.el (diary-fancy-display): Always run the hook.
+
 	* term/ns-win.el (ns-reg-to-script): Define for compiler.
 
 	* mail/rmailmm.el (rmail-mime-multipart-handler): Accept the case where

lisp/calendar/diary-lib.el

@@ -1019,8 +1019,11 @@ This is an option for `diary-display-function'."
                      (overlay-put
                       (make-overlay (match-beginning 0) (match-end 0))
                       'face temp-face)))))))
-      (or (eq major-mode 'diary-fancy-display-mode)
-          (diary-fancy-display-mode))
+      ;; FIXME can't remember what this check was for.
+      ;; To prevent something looping, or a minor optimization?
+      (if (eq major-mode 'diary-fancy-display-mode)
+          (run-hooks 'diary-fancy-display-mode-hook)
+        (diary-fancy-display-mode))
       (calendar-set-mode-line date-string)
       (message "Preparing diary...done"))))