🚀 go-pugleaf

At 18 Oct 2001 15:09:49 +0900,
NAKAJI Hiroyuki <nakaji@tutrp.tut.ac.jp> wrote:
> 
> 中治＠豊橋です。
> 
> Content-Type: text/plain; charset=X-UNKNOWN
> Content-Transfer-Encoding: quoted-printable
> 
> となっていて読めません。スプールのファイルをlessで見ても、日本語と思われる
> 部分が、すべて「~」になっています。
> -- 
> NAKAJI Hiroyuki (中治 弘行)

以前 xemacsのscrollについてお世話になった
今井です。文字化けメールを送ってしまい大変失礼しました。
文字コードについての質問をするために、例としてつけた
文字化けの文章が原因でした。

環境: FreeBSD 4.3-RELEASE
	  XEmacs 21.1.14

質問なのですが、現在以前から興味のあったemacs-lispの勉強をして
います。そこで、友だちの掲示板を見るための関数を作成しました。
open-network-streamを用いてlogファイルをとってきて、それを表示
すると言うものなのですが、どうしても一部分が文字化けしてしまい
ます。もとのlogファイルはsjisです。

どうすれば、文字化けが起きないようになるかアドバイスをお願いし
ます。


例(文字化けメールにならないようにコピーではなく手書きです。)
------------------------------------------------------------
店出しも不^^I\200鳥王座決定戦もでるらしいけど。
------------------------------------------------------------

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

なお、shell-command-to-string を用いて fetch,nkf -eとしたときは
文字化けはおきませんでした。できれば、emacs-lispだけで作成した
いと考えています。

作成した関数を以下に示します。
------------------------------------------------------------
(defun nybc-get-log-file ()
  "ログファイルを取ってくる"
  (save-excursion
	(let (proc)
	  (message "now connecting...")
	  (open-network-stream nybc-view-net-process
						   nybc-view-net-buffer
						   nybc-view-net-url
						   80)
	  (set-buffer nybc-view-net-buffer)
	  (erase-buffer)
	  (setq proc (get-buffer-process (current-buffer)))
	  (set-process-coding-system proc 'shift_jis-dos 'shift_jis-dos)
	  (process-send-string proc
						   (format "%s" (concat "GET /hogehoge/keijiban.log HTTP/1.1\n"
												"Host: "
												nybc-view-net-url
												"\n"
												"Connection: close\n"
												"\n")))
	  (while (and (eq (process-status proc) 'open)
				  (goto-char (point-min))
				  (not (re-search-forward "^Process" nil t)))
		(accept-process-output proc))
	  (message "now connecting...connected"))))
------------------------------------------------------------

よろしくお願いします。