>>617
(setq dired-load-hook '(lambda () (load "dired-x")))
(setq dired-guess-shell-alist-user
'(("\\.tar\\.gz$" "tar ztvf")
("\\.\\(g\\|\\)z" "zcat")))