[Mew-dist 17006] Re: mew-w3m.el

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 17005] mew-w3m.el
Message-ID: <20010403.120817.125123042.kazu at example.com>
Date: Tue, 3 Apr 2001 12:08:25 +0900

kazu> Mew 1.95b118 と w3m_el-0.2.126 を組み合わせて遊ぶ場合、以下のパッチを
kazu> mew-w3m.el に当て下さい。HTML が Multipart/Related になっているメール
kazu> の場合、とても幸せになれます。

(Emacs-21 だと)幸せ :-)

# テストメールしか持っていないのが悲しい。

summary がバタバタ(multipart が一瞬閉じる)するのはしようがないの
かな？それともぼくのせいかな？

kazu> 使ってみると分かりますが、ヘッダ＋ text/html を表示した際、w3m.el が 
kazu> text/html の先頭をウインドウの先頭にしてしまいます。このため、ヘッダが
kazu> 見えなくなります。なんとかなりませんか？

w3m.el 自体での対応は大変ですが、mew-mime-text/html-w3m() で対応
すれば良いと思います。最後にパッチをつけておきます。

kazu> *** mew-w3m.el-dist	Mon Apr  2 22:08:18 2001
kazu> --- mew-w3m.el	Mon Apr  2 22:13:35 2001

ありがたく頂戴して、代理 commit させていただきます。

# 古めの Mew への対応だけはしておこうかな。
# エラーしないようにするだけ、だけど。

-- 
白井秀行 (mailto:shirai at example.com)

--- ../../emacs-w3m/mew-w3m.el	Thu Mar 29 17:03:01 2001
+++ mew-w3m.el	Tue Apr  3 12:40:19 2001
@@ -73,6 +73,7 @@
     (mew-elet
      (let ((file (format "%s.html" (mew-make-temp-name)))
 	   (w3m-display-inline-image mew-w3m-auto-insert-image)
+	   (pos (window-start))
 	   charset wcs)
        (setq charset (mew-syntax-get-param params "charset"))
        (if charset 
@@ -83,7 +84,8 @@
 	(w3m-region (point)
 		    (progn (insert-buffer-substring cache begin end) 
 			   (point)))
-	(put-text-property (point-min) (1+ (point-min)) 'w3m t))))))
+	(put-text-property (point-min) (1+ (point-min)) 'w3m t))
+       (set-window-start (selected-window) pos)))))