w3m-current-url when mime-w3m-preview-text/html() is called

[TSUCHIYA Masatoshi <tsuchiya@xxxxxxxxxxxxxxxxxxxxxxx>]

再現条件が今一つ明らかではないのですが、mime-w3m-preview-text/html() 
が呼び出された時、w3m-current-url が適切な値に設定されない場合があるよ
うです。

私の手元では、初回閲覧時は問題なく設定されるのに、一旦グループを抜けて、
再度閲覧しようとすると、設定されないことがあるような感じです。

で、適当に見当をつけて以下のように修正すると直ったのですが、これで正し
いのでしょうか? FLIM のことは(も)よく分からないので、どなたかチェック
して頂けませんか。

Index: mime-w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/mime-w3m.el,v
retrieving revision 1.19
diff -u -u -r1.19 mime-w3m.el
--- mime-w3m.el	2001/06/09 11:15:57	1.19
+++ mime-w3m.el	2001/06/22 00:25:45
@@ -72,7 +72,9 @@
 (defun mime-w3m-preview-text/html (entity situation)
   (setq mime-w3m-message-structure (mime-find-root-entity entity))
   (let ((p (point))
-	(xref (mime-entity-fetch-field entity "xref")))
+	(xref
+	 (or (mime-entity-fetch-field entity "xref")
+	     (mime-entity-fetch-field mime-w3m-message-structure "xref"))))
     ;; For nnshimbun.el.
     (and (stringp xref)
 	 (string-match "^http://"; xref)
-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )
    http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/