EmacsCE+navi2chで快適2chアクセス

>>23
あまりよくわかってないので、該当する行をコメント
アウトしただけですが、これではダメなようです。
取れば動きます。

(set (make-local-variable 'tempfn)
(concat (getenv "TMP") "\\" (make-temp-name "")))
(set (make-local-variable 'tempfngz)
(concat tempfn ".gz"))
(write-file tempfngz nil)
(shell-command (concat "gzip -f -d " tempfngz))
; (set-visited-file-name tempfn nil t)
; (revert-buffer t t)
(delete-file tempfn)
(buffer-string))
cont))))))