>>326
http://www.gnu.org/software/emacs/emacs-lisp-intro/

(defun find-file-with-utf8 ()
  (interactive)
  (let ((coding-system-for-read 'utf-8))
    (call-interactively 'find-file)))