Subject: tiny-mime.el version 1.12 (A MIME header decoder) [1/3]

From: [email-masked] (守岡 知彦 (MORIOKA Tomohiko))
Date: Fri, 8 Oct 1993 18:55:44 GMT

〓〓〓〓〓〓〓〓〓〓〓 ロシアン・ティーを一杯。 〓〓〓〓〓〓〓〓〓〓〓
〓〓〓〓〓  ☆ ジャムではなくマーマレードでもなく蜂蜜で ☆  〓〓〓〓〓
〓〓〓〓〓         МОРいОКА  ТОМОХИКО         〓〓〓〓〓
〓〓〓〓〓〓〓  Internet E-mail: <[email-masked]>  〓〓〓〓〓〓〓

---

From: [email-masked] (守岡 知彦 (MORIOKA Tomohiko))
Date: Fri, 8 Oct 1993 19:16:32 GMT

---

From: [email-masked] (守岡 知彦 (MORIOKA Tomohiko))
Date: Fri, 8 Oct 1993 19:39:06 GMT

以下の patch を利用すると、Summary 画面上で M-t を押すことによって、

	(1) tiny-mime.el による message header だけの decode

	(2) metamail.el による full decode

	(0) 何もしない

の３種類の MIME message に対する処理を切替えることができます。

  この patch を利用するためには、tiny-mime.el, および、梅田さんの作ら
れた mime.el を用意する必要があります。

  また、この patch は、mh-e 3.8, GNUS 3.14.4, GNUS 4.1 に対応していま
す。

* mh-e version 3.8 に対する patch

* GNUS version 3.14.4 に対する patch

* GNUS version 4.1 に対する patch

---

From: [email-masked] (SAKIYAMA Nobuo)
Date: Tue, 12 Oct 1993 06:15:11 GMT

In article <[email-masked]>,
	[email-masked] (=?ISO-2022-JP?B?GyRCPGkyLBsoQiA=?=

 > の３種類の MIME message に対する処理を切替えることができます。

あいにくまだ利用していないのですが、

 > --Multipart Fri Oct  8 14:39:06 1993
 > Content-Type: application/octet-stream; name="mh-e-3.8-MIME.diff"
 > Content-Transfer-Encoding: 7bit
 > *** orig/mh-e.el	Fri Oct  8 14:04:55 1993
 > --- mh-e.el	Fri Jul  9 13:03:19 1993
 > ***************
 > *** 5,10 ****
 > --- 5,14 ----
 >   (setq mh-e-time-stamp "92/01/21 10:59:18 gildea")
 >   (provide 'mh-e)
 >   
 > + ;; modified by mol. 1993/7/9
 > + (require 'tiny-mime)
 > + (require 'gnus)
 > + 

と

 > ***************
 > *** 1290,1295 ****
 > --- 1315,1327 ----
 >   		"^To:¥¥|^From:¥¥|^Subject:¥¥|^Date:" nil t)
 >   	       (beginning-of-line)
 >   	       (mh-recenter 0))))
 > +       ;; modified by mol. 1993/7/9
 > +       (if mh-show-mime
 > + 	  (cond ((= mh-show-mime 1) (mime/decode-message-header))
 > + 		((= mh-show-mime 2) (if (gnus-fetch-field "Mime-Version")
 > + 					  (funcall gnus-show-mime-method)
 > + 					))
 > + 		))
 >         (set-buffer-modified-p nil)
 >         (setq buffer-file-name msg-filename)
 >         (set-mark nil)

なのですが、newsを読まない時にもgnusがloadされるのは避けたい場合もある
と思うので、

 > + (require 'gnus)

については

(autoload 'metamail-buffer "metamail"
          "Process current buffer through 'metamail'." t)

として

 > + 		((= mh-show-mime 2) (if (gnus-fetch-field "Mime-Version")
 > + 					  (funcall gnus-show-mime-method)
 > + 					))

については

 ((= mh-show-mime 2) (if (mh-get-field "Mime-Version:")
 			  (metamail-buffer)
 			))

とするとか、

(defvar mh-show-mime-method (function metamail-buffer))

(autoload 'metamail-buffer "metamail"
          "Process current buffer through 'metamail'." t)

と

 ((= mh-show-mime 2) (if (mh-get-field "Mime-Version:")
 			  (funcall mh-show-mime-method)
 			))

とでもした方がいいような気がしますが、いかがなものでしょうか。
--
SAKIYAMA Nobuo (崎山 伸夫) [email-masked]
東京大学理学部 情報科学科 学部４年

---

From: [email-masked] (守岡 知彦 (MORIOKA Tomohiko))
Date: Wed, 13 Oct 1993 00:45:27 GMT

>>>>> <[email-masked]> にて、
	[email-masked] (SAKIYAMA Nobuo) 氏曰く、

崎山> In article <[email-masked]>,
崎山> 	[email-masked] (守岡 

 > の３種類の MIME message に対する処理を切替えることができます。

崎山> あいにくまだ利用していないのですが、

（略）

崎山> なのですが、newsを読まない時にもgnusがloadされるのは避けたい場合もある
崎山> と思うので、

（略）

崎山> とでもした方がいいような気がしますが、いかがなものでしょうか。

  確かに仰せの通りです。早速、直してみます。

---

From: [email-masked] (守岡 知彦 (MORIOKA Tomohiko))
Date: Wed, 13 Oct 1993 00:53:29 GMT

>>>>> <[email-masked]> にて、
	[email-masked] (守岡 知彦 (MORIOKA Tomohiko)) 氏曰く、

守岡>   確かに仰せの通りです。早速、直してみます。

  というわけで、直しました。

  mh-e 3.8 オリジナルに対する patch です。

---

From: [email-masked] (KAWAKAMI Hiroki)
Date: Tue, 12 Oct 1993 11:14:43 GMT

川上＠東大です。
tiny-mime は早速ありがたく使わせてもらっております。

>>>>> In article <[email-masked]>, [email-masked] (守岡 知彦 (MORIOKA Tomohiko)) writes:

 （略）

>   確かに仰せの通りです。早速、直してみます。

どうでもいいことかもしれませんが, 私からも要望をちょっと。
もうひとつパッチに含めていただきたいのですが, GNUS のタイトルをオリジナルと
変えてほしいのです。

	GNUS 4.1
などを
	GNUS 4.1 (+ tiny-mime patch)

などのように。
よろしくお願い致します。

--
			============================================
			  東京大学大学院 工学系研究科 機械工学専攻
			               川上 浩樹 (Kawakami Hiroki)
			         [email-masked]

---

From: [email-masked] (守岡 知彦 (MORIOKA Tomohiko))
Date: Wed, 13 Oct 1993 12:09:03 GMT

>>>>> <[email-masked]> にて、
	[email-masked] (KAWAKAMI Hiroki) 氏曰く、

川上> どうでもいいことかもしれませんが, 私からも要望をちょっと。
川上> もうひとつパッチに含めていただきたいのですが, GNUS のタイトルをオリジナルと
川上> 変えてほしいのです。

  というわけで、そんな風にしました。

  GNUS 4.1 オリジナルに対するパッチです。