w3m-base-url

[NAKAGAWA Takayuki <tknakaga@xxxxxxxxxxxxxxxxxxxxxx>]

中川＠檻の中です。

  ftp proxy を http proxy で代用していて（[emacs-w3m:00656] 参照）気が
付いたのですが、w3m が出力してくれている w3m-base-url を使った方が良い
場合があるようです。せっかくだから使いましょう。

00656>  とりあえず w3m-goto-url の w3m-goto-ftp-url を呼んでいる cond clause 
00656> をコメントアウトしていますが、キャッシュの関係等でこれで良いのかどうか
00656> 疑問です。オプションか何かで設定できるようにならないでしょうか。

  の状態で Squid が生成した FTP Directory、例えば
	ftp://service.japan.ibm.co.jp/pub/ps/fixpak/personsw/
  を末尾の / なしで参照すると、w3m -dump_extra の（ヘッダ部分の）先頭
は以下のようになります。
	W3m-current-url: ftp://service.japan.ibm.co.jp/pub/ps/fixpak/personsw
	W3m-base-url: ftp://service.japan.ibm.co.jp/pub/ps/fixpak/personsw/
  w3m-current-url しか参照しない現在のコードでは、このディレクトリ配下
のファイルを参照した時に、ディレクトリの最後の部分 (pwesonsw) が無視さ
れてしまい、一つ上のディレクトリ (fixpak) を見に行って file not found 
となってしまいます。添付のパッチのように w3m-base-url があればそちらを
優先するようにした方が良いと思います。キャッシュ等に不安はありますが、
多分大丈夫でしょう（希望的観測）。

  正しく末尾の / ありで参照すると
	W3m-current-url: ftp://service.japan.ibm.co.jp/pub/ps/fixpak/personsw/
  となって W3m-base-url: は出力されません。<base href=URI> が指定され
ている時だけ URI が出力されるようです。

;;   昨日の w3m.el のままなので、offset 等があったらごめんなさい。

ではでは。

--
  中川貴之  (株)日立製作所 エンタープライズサーバ事業部 Ｎセ２Ｇ

--- j:/usr/local/emacs-20.x/site-lisp/emacs-w3m.010802/w3m.el~	Thu Aug  2 11:24:48 2001
+++ j:/usr/local/emacs-20.x/site-lisp/emacs-w3m.010802/w3m.el	Fri Aug  3 16:12:26 2001
@@ -2175,7 +2175,8 @@
 	      (cdr (assoc "content-encoding" alist))
 	      (let ((v (cdr (assoc "last-modified" alist))))
 		(and v (w3m-time-parse-string v)))
-	      (or (cdr (assoc "w3m-current-url" alist))
+	      (or (cdr (assoc "w3m-base-url" alist))
+		  (cdr (assoc "w3m-current-url" alist))
 		  url))))
      ;; FIXME: adhoc implementation
      ;; HTTP/1.1 500 Server Error on Netscape-Enterprise/3.6