Navigator for 2ch

FreeBSD 4.2-STABLE で使ってます。

0318+447 patch 使ってますが，Emacs 20.7.1 では快調なんだけど，
XEmacs 21.1 (patch 14) (package でインストール)ではなんか不
安定です。

通常の状態で使うと，string-as-unibyte 周りでエラーが出ます。
で，以下のように強引に string-as-unibyte を使わないようにす
ると，なんとか動きます(こんなんでいいのかは知らないですが)。

--- navi2ch-net.el.orig Sun Mar 18 23:31:34 2001
+++ navi2ch-net.el Mon Mar 19 19:40:41 2001
@@ -274,8 +274,8 @@
(with-temp-buffer
(insert-file-contents file nil (navi2ch-net-file-start file))
(setq str (buffer-string)))
- (string= (string-as-unibyte str)
- (substring (string-as-unibyte cont) 0 navi2ch-net-check-margin))))
+ (string= str
+ (substring cont 0 navi2ch-net-check-margin))))

(defun navi2ch-net-turn-back-file (url file)
(let* ((start (max (- (nth 7 (file-attributes file))
@@ -289,7 +289,7 @@
(set-buffer-multibyte nil)
(insert-file-contents file)
(goto-char (point-max))
- (if (search-backward (string-as-unibyte cont) nil t)
+ (if (search-backward cont nil t)
(progn
(goto-char (match-beginning 0))
(delete-region (point) (point-max))