Action on quitting call-interactively...(newbie question)

[luca . spinacci]

Hi all,
I'm looking for a way to make an action on quitting call-interactively, for
instance:
(defun my-find-file()
  "Opens find-file window..."
  (call-interactively 'find-file) ; open the find-file window on my home
directory
...
Instead of opening a file I push the "cancel" button in the find-file
window.
Emacs reports in the echo-line:
my-find-file: quit
Is it possible to chatch the "quit" action so that you do an action in
my-find-file function, for instance:
(defun my-find-file()
  "Opens find-file window..."
  (call-interactively 'find-file) ; open the find-file window on my home
directory
  (if (quit-catching-function)
      (do-something))
...
Thanks,
Luca.