gistfile1.el

(defadvice find-file
  (before find-file-create-intermediate-directories (filename &optional wildcards))
  "中間ディレクトリが存在しない時は作成する"
  (let ((dir (file-name-directory filename)))
    (if (and dir
             (not (file-exists-p dir)))
        (make-directory dir t))))