Re: Report on emacs-w3m w/ w3mmee + Mule 2.3

[Kiyokazu SUTO <suto@xxxxxxxxxxxxxxx>]

Citation (with leading "> " of each line) from article:
  <yosu1yp5416e.fsf@jpl.org.We.hate.spammers>
    by Katsumi Yamaoka <yamaoka@jpl.org> :
> 須藤さん> ・未だにMule 2.3なんてのを使っているせいでしょうが、ページの
> 須藤さん>   ソースやページ情報を見ようとすると「(coding-system-error
> 須藤さん>   . iso-2022-7bit)」と言われてしまいます。
>
> とりあえず、これだけ対応しました。:-)

Citation (with leading "| " of each line) from article:
  <20010601.101532.01451371.shirai@rdmg.mgcs.mei.co.jp>
    by Hideyuki SHIRAI (白井秀行) <shirai@rdmg.mgcs.mei.co.jp> :
| suto> > う)ので、「-dump=half」のほうを使っていただくようにお願いします。
| suto> 
| suto> とうっかり書いてしまいましたが、「-dump=half-buffer」を使っていただい
| suto> たほうがよいと思います。
|
| こちらも変えておきました。

ありがとうございます。2点とも修正を確認しました。

ただしw3mmee側のバグのせいで依然としてフレームはレンダリングされません
^^;。今晩のsnapshotで修正予定。

以下はw3mmeeに限らず本家のw3mにもapplicativeな話。

Citation (with leading "} " of each line) from article:
  <20010601-024757-18601.suto@ks-and-ks.ne.jp>
    by Kiyokazu SUTO <suto@ks-and-ks.ne.jp> :
} ・「<div id="…">」をラベルとして扱ってくれません。

div要素に限らずid属性はすべて「<_id id="…">」という内部タグに置き換え
られるので、↓のようにすれば(すくなくともMule 2.3では)指定された場所に
飛んで行くようにはなります。

-- 
須藤 清一 <suto@ks-and-ks.ne.jp>
http://pub.ks-and-ks.ne.jp/pgp-public-key.html

Index: w3m.el
===================================================================
RCS file: /usr/site/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.1.1.5
diff -u -r1.1.1.5 w3m.el
--- w3m.el	2001/06/01 04:42:14	1.1.1.5
+++ w3m.el	2001/06/01 05:32:52
@@ -1258,9 +1258,9 @@
   (let ((help (w3m-make-help-echo w3m-href-anchor))
 	(balloon (w3m-make-balloon-help w3m-href-anchor))
 	start end)
-    (while (re-search-forward "<a[ \t\r\f\n]+" nil t)
+    (while (re-search-forward "<\\(a\\|_id\\)[ \t\r\f\n]+" nil t)
       (setq start (match-beginning 0))
-      (w3m-parse-attributes (href name)
+      (w3m-parse-attributes (href name id)
 	(delete-region start (point))
 	(cond
 	 (href
@@ -1284,7 +1284,11 @@
 	    (when (= start end)
 	      (setq end (min (1+ end) (point-max))))
 	    (w3m-add-text-properties start end
-				     (list 'w3m-name-anchor name)))))))))
+				     (list 'w3m-name-anchor name))))
+	 (id
+	  (when (search-forward ">" nil t)
+	    (w3m-add-text-properties start (min (1+ (point)) (point-max))
+				     (list 'w3m-name-anchor id)))))))))
 
 (defun w3m-image-type (content-type)
   "Return image type which corresponds to CONTENT-TYPE."