ANSI colour support in shell-command

[mdj]

Hi,

I frequently use this little snippet to allow me to easily view log
files within emacs:

(defun tail-some-log ()
(interactive)
(let ((buf (pop-to-buffer "*Some Log*")))
(when (not (buffer-modified-p buf))
(shell-command "tail -f /var/log/some.log &" buf))))

I also use the emacs shell and have ANSI colour working fine in that
(seems to be the default in 23.1.1 so no need for ansi-color-for-
comint anymore)

The problem seems to be related to hooks not being invoked somehow,
but I'm at a loss to explain why I can't get colour highlighting
working. Any ideas?

Thanks,

Matt