[Mew-dist 17005] mew-w3m.el

[Kazu Yamamoto ( 山本和彦 )]

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

w3m.el の開発者の方へ：

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

--かず

*** mew-w3m.el-dist	Mon Apr  2 22:08:18 2001
--- mew-w3m.el	Mon Apr  2 22:13:35 2001
***************
*** 92,119 ****
        (let ((fld (mew-current-get-fld (mew-frame-id))))
  	(set-buffer fld)
  	(let* ((msg (mew-current-get-msg (mew-frame-id)))
- 	       (part (mew-syntax-nums))
  	       (cache (mew-cache-hit fld msg 'must-hit))
  	       (syntax (mew-cache-decode-syntax cache))
! 	       (part2 1)
! 	       len cid cidpart cidstx beg end)
! 	  (if (< (length part) 2)
! 	      (setq part nil)
! 	    (setcdr (nthcdr (- (length part) 2) part) nil))
! 	  (setq len
! 		(- (length
! 		    (mew-syntax-get-part (mew-syntax-get-entry syntax part)))
! 		   mew-syntax-magic))
! 	  (setq cidpart
! 		(catch 'detcid
! 		  (while (>= len part2)
! 		    (setq cid (mew-syntax-get-cid
! 			       (mew-syntax-get-entry syntax (append part (list part2)))))
! 		    (when (and cid (string= cid url))
! 		      (throw 'detcid (append part (list part2))))
! 		    (setq part2 (1+ part2)))))
! 	  (when cidpart
! 	    (setq cidstx (mew-syntax-get-entry syntax cidpart))
  	    (setq beg (mew-syntax-get-begin cidstx))
  	    (setq end (mew-syntax-get-end cidstx))
  	    (w3m-with-work-buffer
--- 92,102 ----
        (let ((fld (mew-current-get-fld (mew-frame-id))))
  	(set-buffer fld)
  	(let* ((msg (mew-current-get-msg (mew-frame-id)))
  	       (cache (mew-cache-hit fld msg 'must-hit))
  	       (syntax (mew-cache-decode-syntax cache))
! 	       cidstx beg end)
! 	  (setq cidstx (mew-syntax-get-entry-by-cid syntax url))
! 	  (when cidstx
  	    (setq beg (mew-syntax-get-begin cidstx))
  	    (setq end (mew-syntax-get-end cidstx))
  	    (w3m-with-work-buffer