[Mew-dist 16782] mew-w3m.el + multipart/related

[Hideyuki SHIRAI ( 白井秀行 )]

後藤さんの mew-w3m.el を改造して multipart/related の画像データ
を w3m で inline 表示できるようにしました。

## 最新の w3m.el は寺西さんが inline image で表示出来るようになっ
## ています。:-)

mew-w3m.el も w3m.el も最新版が必要です。
http://www.namazu.org/~tsuchiya/emacs-w3m/ からどうぞ。

で、Mew 本体も若干変更しないといけないのでパッチです。

1. mew-const.el で mew-mime-fields を設定していますが、
 mew-decode-mime-header() で header を mew-capitalize() したもの
 と比較しているため capitalize したものを手動で設定しました。
 
 本当は comment 部分の様にしたいのですが、mew-const.el を load
 する時点では mew-func.el の mew-capitalize() が load されていな
 いので。。。
 
2. mew-decode-mime-header() で cid のときは、<> を外した値を入れ
 ています。別に問題ないとは思うのですが、他の部分と整合がとれな
 いのなら <> つきでも (mew-w3m を改造するので)良いです。

## ちなみに、XEmacs or Emacs21 じゃないと何のありがたみもありま
## せん。

-- 
白井秀行＠うぅ、MTA が。。。出ていくかなぁ ;_;

Index: mew-const.el
===================================================================
RCS file: /cvsroot/shirai/mew/mew/mew-const.el,v
retrieving revision 1.22
diff -u -r1.22 mew-const.el
--- mew-const.el	2001/02/22 01:02:40	1.22
+++ mew-const.el	2001/03/09 07:15:47
@@ -129,7 +129,7 @@
   `((,mew-ct:  0 analyze)
     (,mew-cte: 1 extract)
     (,mew-cd:  2 decode)
-    (,mew-cid: 3 nil)
+    ("Content-Id:" 3 id) ;; same (,(mew-capitalize mew-cid:) 3 id)
     (,mew-cdp: 4 analyze)))
 
 (defconst mew-syntax-magic
Index: mew-decode.el
===================================================================
RCS file: /cvsroot/shirai/mew/mew/mew-decode.el,v
retrieving revision 1.17
diff -u -r1.17 mew-decode.el
--- mew-decode.el	2001/03/05 00:38:07	1.17
+++ mew-decode.el	2001/03/09 07:16:06
@@ -300,7 +300,11 @@
 	     (mew-header-decode-region key med (point))
 	     ;; mew-header-decode-region goes to the max point in
 	     ;; the narrowed region. So, this must be (point).
-	     (setq value (mew-buffer-substring med (1- (point))))))
+	     (setq value (mew-buffer-substring med (1- (point)))))
+	    ((eq act 'id)
+	     (setq value
+		   (mew-scan-pnm-to-bnm
+		    (mew-buffer-substring med (1- (point)))))))
 	   (aset vec n value)))))
     (if (eobp)
 	(insert "\n")