>>65
Emacs22なら、revert-buffer-with-coding-system？

>>68
ふつうに、replace-regexpとかではダメですか？
適当にこんなものを書いてみましたが…
(defun hoge (from-string to-string)
(interactive "*sFrom: \nsTo: ")
(while (re-search-forward
(mapconcat 'identity (mapcar 'char-to-string from-string) "\n?")
nil t)
(replace-match to-string)))
うんこだったら、ごめんなさい。