MeadowのDiredで日付順の時に日付部分をハイライトするelisp

Dired by nameとDired by dateで、今どっちなのかすぐ分かるように色でも変えるものがないかなと探したのですが、見つからなかったので作りました。
ハイライトには himark.el

;;; himark.el --- marking text by highlighting

;; Copyright (C) 1999 by Roland Winkler

;; Emacs Lisp Archive Entry
;; Author: Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
;;         based on ideas by Ehud Karni <ehud@unix.simonwiesel.co.il>
;; Keywords: faces
;; Version: 1.0
;; Time-stamp: <2001-02-14 11:28:04 winkler>

…

を使っています。

以下のeslispを.emacsかどこかに書いてロードしてください。

;;; Highlight date string rectangularly in 'Dired by date' mode
(load "himark.el")
(add-hook 'dired-after-readin-hook
	  'my-dired-highlight-by-date)
(defvar my-date-regexp 
  "\\([12][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]\\|[01][0-9]-[0-5][0-9] [0-2][0-9]:[0-5][0-9]\\)"
  "Regexp to search date string.")
(defun my-dired-highlight-by-date ()
  "Highlight date string rectangularly in 'Dired by date' mode"
  (if (string-match "Dired by date" mode-name)
      (save-excursion
	(let (rectangle-beg rectangle-end)
	  ;; Search beginning
	  (re-search-forward my-date-regexp)
	  (backward-char 7)
	  (re-search-backward " ")
	  (forward-char)
	  (setq rectangle-beg (point))
	  ;; Search end
	  (goto-char (point-max))
	  (re-search-backward my-date-regexp)
	  (forward-char 7)
	  (re-search-forward " +")
	  (backward-char)
	  (setq rectangle-end (point))
	  ;; himark-rectangle
	  (himark-rectangle rectangle-beg rectangle-end)))))

動作環境は"Meadow-3.00-dev (KIKU)"ですが、Emacsでも動くんじゃないかと思います。