>>33
自動ではないけど C-u C-c C-x C-i で指定はできる。

**.doc のファイル名に規則性があるなら、mime-file-types に設定すると
できると思う。

規則性がないなら、mime-find-file-type に advice をしかけるくらいか。
(defadvice mime-find-file-type (around guess-doc activate)
(if (and (string-match "\\.doc$" (ad-get-arg 0))
(not (with-temp-buffer
(call-process "file" nil t nil (ad-get-arg 0))
(goto-char (point-min))
(re-search-forward "Microsoft Office Document" nil t))))
(setq ad-return-value
'("text" "plain" nil nil "inline" (("filename" . file))))
ad-do-it))