🚀 go-pugleaf

>>>>> In <xl9g08hwhle.wl@cal.infonets.hiroshima-u.ac.jp>
>>>>>	IMAI Hidetoshi <hidepin@infonets.hiroshima-u.ac.jp> wrote:

中治さん> 日本語と思われる部分が、すべて「~」になっています。

肝心な文字化け部分は "=8E=80" → "\216\200" → "死" のようですね。

今井さん> set-process-coding-systemの引数を
今井さん> sjis euc-japan shift_jis-dos automatic-conversion と
今井さん> いろいろためしてみましたが解決しませんでした。

特定の部分がデコードできない理由を想像してみるに、何回か
accept-process-output でデータを取り込むときに sjis の 2-byte の
途中で区切られてしまったんじゃないかしら。

今井さん> なお、shell-command-to-string を用いて fetch,nkf -eとしたと
今井さん> きは文字化けはおきませんでした。

それと同じことを elisp で行なうのが良いのではありませんか。すな
わち open-network-stream は無変換で動作させ、取り込み終わった後
でデコードする、と。

(defun nybc-get-log-file ()
  "ログファイルを取ってくる"
  (message "now connecting...")
  (save-excursion
    (set-buffer nybc-view-net-buffer)
    (erase-buffer)
    (let* ((coding-system-for-read 'binary)
	   (coding-system-for-write 'binary)
	   (proc (open-network-stream nybc-view-net-process
				      nybc-view-net-buffer
				      nybc-view-net-url
				      80)))
      (process-send-string
       proc
       (format "GET %s HTTP/1.1\r\nHost: %s\r\nConnection: close\r\n\r\n"
	       "/hogehoge/keijiban.log"
	       nybc-view-net-url))
      (while (and (eq (process-status proc) 'open)
		  (goto-char (point-min))
		  (not (re-search-forward "^Process" nil t)))
	(accept-process-output proc)))
    (decode-coding-region (point-min) (point-max) 'shift_jis-dos))
  (message "now connecting...connected"))

"\r\n" は "\n" の方が良いかもしれません。適宜調整して下さい。
-- 
山岡