Re: 毎日新聞

[Katsumi Yamaoka <yamaoka@xxxxxxx>]

>>>>> In [emacs-w3m : No.05554] 野宮　賢さん wrote:

> これで問題なく読むことが出来るようになりました。

ご確認ありがとうございます。

山岡> しかしこれはおかしい。Emacs-w3m のどこか別の場所の変更によって
山岡> w3m, emacs-w3m, Emacs 等相互間の相性の善し悪しが生じてしまったん
山岡> じゃないんでしょうか?

と言うのは考え過ぎだったようです。おそらく、単に最近の毎日新聞が、
改行コードに CRLF と LF を混在使用するようになったのが原因でしょ
う。こういう場合に Emacs と XEmacs の挙動には違いがあるのでした:

(decode-coding-string "foo\r\nbar\n" 'shift_jis)
  Emacs => "foo\r\nbar\n"
  XEmacs => "foo\nbar\n"

CVS で直しておきましたが、残念ながらリリースしたばかりの
emacs-w3m 1.3.6 もだめです。気が付かなくてすみませんでした。_o_
一応パッチです。

--- emacs-w3m-1.3.6/ChangeLog~	2003-07-18 06:36:15 +0000
+++ emacs-w3m-1.3.6/ChangeLog	2003-07-22 04:15:28 +0000
@@ -1,3 +1,8 @@
+2003-07-22  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* shimbun/sb-mainichi.el (shimbun-get-headers): Convert CRLF to LF.
+	(shimbun-make-contents): Convert CRLF to LF instead of removing CR.
+
 2003-07-18  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
 	* w3m.el (emacs-w3m-version): Release 1.3.6.
--- emacs-w3m-1.3.6/shimbun/sb-mainichi.el~	2003-07-18 02:59:55 +0000
+++ emacs-w3m-1.3.6/shimbun/sb-mainichi.el	2003-07-22 04:15:27 +0000
@@ -65,6 +65,9 @@
 
 (luna-define-method shimbun-get-headers ((shimbun shimbun-mainichi)
 					 &optional range)
+  (goto-char (point-min))
+  (while (search-forward "\r\n" nil t)
+    (delete-region (match-beginning 0) (1+ (match-beginning 0))))
   (let ((case-fold-search t)
 	start prefix headers)
     (goto-char (point-min))
@@ -139,9 +142,9 @@
 
 (luna-define-method shimbun-make-contents :before ((shimbun shimbun-mainichi)
 						   header)
+  (while (search-forward "\r\n" nil t)
+    (delete-region (match-beginning 0) (1+ (match-beginning 0))))
   (let ((case-fold-search t))
-    (while (search-forward "\r" nil t)
-      (delete-region (match-beginning 0) (match-end 0)))
     (shimbun-mainichi-remove-tags "<SCRIPT" "</SCRIPT>")
     (shimbun-mainichi-remove-tags "<NOSCRIPT" "</NOSCRIPT>")
     (shimbun-mainichi-remove-tags "<NOEMBED" "</NOEMBED>")