🚀 go-pugleaf

takehara@remus.dti.ne.jp (takehara) writes:

> そこで質問なのですが、Muleのmail-modeにおいて、Mule側でDate:と
> Message-Id:欄を付けることは可能なのでしょうか。それとも、無理なのでしょ
> うか。 .emacsファイルをいろいろいじってみたり、smtpmail.elを調べたりし
> たのですが、どこで設定したらよいものかわからず、途方にくれております。
> どなたか、解決のヒントでもいいから教えていただけないでしょうか、よろし
> くお願い致します。

環境が違いますので、直接の答えにならなくて恐縮ですが・・・・

私はWindows95上で Meadow + Mew + Semi-gnus を使用しております。
私の環境の場合、message.el の中の message-required-news-headers を
編集することで、ニュースにポストする際に Message-IDをメーラーで付加
するかサーバーで付加するかをコントロールすることができます。（うちの
環境はqmailではないので）

なおこの関数の定義のところには英文でコメントがありますので、編集の
仕方はすぐ分かると思います。

その下に "message-required-mail-headers" の定義がありますので、メール
発信の際にも同様のことができるのではないか、と思います。
自分では試していませんが・・・

ただし、未編集の状態では「メーラー側で付ける」設定になっていると思い
ますので、違う箇所に問題がある可能性が高いです。

--Multipart_Wed_Mar_10_17:28:38_1999-1
Content-Type: text/plain; charset=ISO-2022-JP

$B$3$s$K$A$O;32,$G$9!#(B

>>>>> In <TAKEHARA.99Mar10004434@remus.dti.ne.jp> 
>>>>>	takehara@remus.dti.ne.jp (takehara) wrote:

$BC]86$5$s(B> $BIaCJ!"<+Bp$G%a!<%k$NAw<u?.$K(B Mule for win32 V.122 $BIUB0$N(B
$BC]86$5$s(B> mail-mode,rmail-mode$B$r;HMQ$7$F$*$j$^$9!#$3$l$r2q<R$G$b;H$*$&(B
$BC]86$5$s(B> $B$H;W$C$F;n$7$?(B($B<+J,08$F$KAw?.$7$?(B)$B$H$3$m!"(BDate:$BMs$H(B
$BC]86$5$s(B> Message-Id:$BMs$,L5$$$3$H$K5$$E$-$^$7$?!#(B

[...]

$BC]86$5$s(B> $B$=$3$G<ALd$J$N$G$9$,!"(BMule$B$N(Bmail-mode$B$K$*$$$F!"(BMule$BB&$G(B
$BC]86$5$s(B> Date:$B$H(BMessage-Id:$BMs$rIU$1$k$3$H$O2DG=$J$N$G$7$g$&$+!#(B

$B%a!<%k$r<B:]$KAw?.$9$kD>A0$KI>2A$5$l$k(B mail-send-hook $B$r;H$($P2DG=$G$7$g(B
$B$&!#0J2<$N%W%m%0%i%`$r(B .emacs $B$J$I$K=q$-9~$s$G;n$7$F$_$F2<$5$$!#(B

;; Unique id $B$N:n$jJ}$O(B VM $B$+$i%3%T!<$7$^$7$?!#(B

--Multipart_Wed_Mar_10_17:28:38_1999-1
Content-Type: text/plain; charset=ISO-2022-JP

;; $B$9$G$K@_Dj$5$l$F$$$l$P$3$N0l9T$OITMW$G$9!#(B
(setq mail-host-address "foobaa.co.jp")

(defun _mail-insert-id-and-date-fields ()
  "Insert Message-ID and Date fields. Existing fields will be removed first."
  (save-excursion
    (save-restriction
      (widen)

      ;; Narrow to header.
      (goto-char (point-min))
      (narrow-to-region
       (point)
       (if (search-forward (concat "\n" mail-header-separator "\n") nil t)
	   (1+ (match-beginning 0))
	 (point-max)))

      ;; Delete existing fields.
      (goto-char (point-min))
      (let ((case-fold-search t))
	(while (re-search-forward "^Message-ID:\\|^Date:" nil t)
	  (delete-region (match-beginning 0)
			 (goto-char
			  (if (re-search-forward "^[^\t\n ]" nil t)
			      (match-beginning 0)
			    (point-max))))))

      ;; Insert Date and unique Message-ID fields.
      (goto-char (point-min))
      (require 'timezone)
      (let ((now (current-time)))
	(insert "Date: "
		(timezone-make-date-arpa-standard
		 (current-time-string now) (current-time-zone now))
		"\n")
	(insert (format "Message-ID: <%d.%d.%d.%d@%s>\n"
			(car now) (nth 1 now) (nth 2 now)
			(random 1000000)
			mail-host-address)))
      )))

(add-hook 'mail-send-hook '_mail-insert-id-and-date-fields)

--Multipart_Wed_Mar_10_17:28:38_1999-1
Content-Type: text/plain; charset=US-ASCII

-- 
Katsumi Yamaoka <yamaoka@ga.sony.co.jp>

--Multipart_Wed_Mar_10_17:28:38_1999-1--

竹原@remus.dtiです。皆様ご助言ありがとうございます。

In article <wku2vutjuc.fsf@yahoo.com> tochinoarashi@yahoo.com writes:
>私の環境の場合、message.el の中の message-required-news-headers を
>編集することで、ニュースにポストする際に Message-IDをメーラーで付加
>するかサーバーで付加するかをコントロールすることができます。（うちの
>環境はqmailではないので）
>
>なおこの関数の定義のところには英文でコメントがありますので、編集の
>仕方はすぐ分かると思います。
>
>その下に "message-required-mail-headers" の定義がありますので、メール
>発信の際にも同様のことができるのではないか、と思います。

Mule2とMeadowの仕様の違いでしょうか、message.elというElispファイルや変
数 message-required-mail-headers は見つかりませんでした。


In article <u90d686kc.fsf@hv08.hv.epson.co.jp> ichikawa (=?ISO-2022-JP?B?GyRCO1RAbkMjOkgbKEI=?=) @ hv.epson.co.jp writes:
>  このあたりは、rmail を使った事がないので、分かりませんが、私が勧める
>  としたら、Mule for win32 ではなく、Meadow を使う事をお勧めします。
>  Meadow は Emacs 20.2 ベースの Mule for win32 だと思ってください。
>
>  Meadow 方が、いろいろな(特に最近の) Emacs Lisp Package 使用できますの
>  でいろいろと幸せになれると思います。
>
>  MUA(Mailer) についても様々な選択肢がでますので…
>
>    cmail , Mew , Semi-gnus , Wanderlust ... 等など…

最近読んだUnix系のコンピュータ雑誌に“Emacs20のMULEバージョンは処理が
重い”ということが書かれており、.emacsファイルも大幅に書き換えなければ
ならないようですので導入をためらっております。


In article <uvhgac7jb.fsf@kei.mdcnet.co.jp> Keiichi Suzuki <keiichi@mdcnet.co.jp> writes:

>私もこの方が幸せなような気がしますが、とりあえずこんなものはいかがでしょ
>うか?
>
>;; 現在 Mule for Windows が動く環境がないので動作確認はしていません。
(以下、省略)

会社にいるときにこの記事を拝見しまして、試してみました。結果は成功でし
た! ただ、(eval-after-load... 行を評価する際にエラーが発生しました。
(これもMule2とMeadowの仕様の違いから来るものでしょうか)そこで以下のよ
うに修正しました。

(eval-after-load "sendmail"
		 '(progn
		    (require 'mail-utils)
		    (require 'gnuspost)
		    (add-hook 'mail-send-hook 'my-insert-mail-header-field))
		 )


In article <281zixiw95.fsf@kchisa.ga.sony.co.jp> Katsumi Yamaoka <yamaoka@ga.sony.co.jp> writes:

>メールを実際に送信する直前に評価される mail-send-hook を使えば可能でしょ
>う。以下のプログラムを .emacs などに書き込んで試してみて下さい。
>
>;; Unique id の作り方は VM からコピーしました。
>
(以下、省略)

こちらは明日試してみます。

皆様のご助言によりまして、正しいメールヘッダを付加することができました。
本当にありがとうございました。


takehara@remus.dti.ne.jp
	竹原 充

>>>>> In <TAKEHARA.99Mar10004434@remus.dti.ne.jp>
>>>>>  takehara@remus.dti.ne.jp (takehara) wrote:
> 普段、自宅でメールの送受信に Mule for win32 V.122 付属の
> mail-mode,rmail-modeを使用しております。これを会社でも使おうと思って試
> した(自分宛てに送信した)ところ、Date:欄とMessage-Id:欄が無いことに気づ
> きました。

  まず、Message-Id: は Mail には必ずしも必要でないのですが…

> 原因をずっと調べていると、会社のメールサーバソフトにqmailを使用してお
> り、ここでDate:とMessage-Id:欄を付けていないためとわかりました。
> しかし、qmailのマニュアルやqmailのWebsiteを見てみると、それらはローカ
> ル(Mule)でつけるべきだ、と書いてありました。実際、他のメーラは自分で付
> けています。
> そこで質問なのですが、Muleのmail-modeにおいて、Mule側でDate:と
> Message-Id:欄を付けることは可能なのでしょうか。それとも、無理なのでしょ
> うか。 .emacsファイルをいろいろいじってみたり、smtpmail.elを調べたりし
> たのですが、どこで設定したらよいものかわからず、途方にくれております。
> どなたか、解決のヒントでもいいから教えていただけないでしょうか、よろし
> くお願い致します。

  このあたりは、rmail を使った事がないので、分かりませんが、私が勧める
  としたら、Mule for win32 ではなく、Meadow を使う事をお勧めします。
  Meadow は Emacs 20.2 ベースの Mule for win32 だと思ってください。

  Meadow 方が、いろいろな(特に最近の) Emacs Lisp Package 使用できますの
  でいろいろと幸せになれると思います。

  MUA(Mailer) についても様々な選択肢がでますので…

    cmail , Mew , Semi-gnus , Wanderlust ... 等など…

;; Wanderlust の sell が違ったらごめんなさい > 寺西さん。

;; 答えにはなってないですね (^^)

-- 
  Tatsuya Ichikawa <ichikawa@hv.epson.co.jp>

>>>>> Message-Id: <u90d686kc.fsf@hv08.hv.epson.co.jp> で、
>>>>> "市川" == ichikawa (市川達哉) @ hv.epson.co.jp さま曰く...

市川>   まず、Message-Id: は Mail には必ずしも必要でないのですが…

でも、 Message-Id と References がないととーーっても不便ですよね。 ^^;;;
特に Mailing list なんかだと。

;; Microsoft 系のものはつけてくれないので、スレッドをたどるのが面倒くさ
;; くてしょうがない。 :-p

>> そこで質問なのですが、Muleのmail-modeにおいて、Mule側でDate:と
>> Message-Id:欄を付けることは可能なのでしょうか。それとも、無理なのでしょ
>> うか。

市川>   このあたりは、rmail を使った事がないので、分かりませんが、私が勧める
市川>   としたら、Mule for win32 ではなく、Meadow を使う事をお勧めします。
市川>   Meadow は Emacs 20.2 ベースの Mule for win32 だと思ってください。

市川>   Meadow 方が、いろいろな(特に最近の) Emacs Lisp Package 使用できますの
市川>   でいろいろと幸せになれると思います。

市川>   MUA(Mailer) についても様々な選択肢がでますので…

市川>     cmail , Mew , Semi-gnus , Wanderlust ... 等など…

私もこの方が幸せなような気がしますが、とりあえずこんなものはいかがでしょ
うか?

;; 現在 Mule for Windows が動く環境がないので動作確認はしていません。

(defun my-insert-mail-header-field ()
  (save-excursion
    (save-restriction
      (let ((case-fold-search t))
        (widen)
        (goto-char (point-min))
        (re-search-forward
         (concat "^" (regexp-quote mail-header-separator) "$"))
        (narrow-to-region (point-min) (match-beginning 0))
        (goto-char (point-min))
        (or (re-search-forward "^date:[ \t]" nil t)
            (progn
              (goto-char (point-max))
              (insert "Date: " (mail-rfc822-date) "\n")))
        (goto-char (point-min))
        (or (re-search-forward "^message-id:[ \t]" nil t)
            (progn
              (goto-char (point-max))
              (insert "Message-Id: " (gnus-inews-message-id) "\n")))
        ))))

(eval-after-load "sendmail"
  (require 'mail-utils)
  (require 'gnuspost)
  (function (add-hook 'mail-send-hook 'my-insert-mail-header-field))
  )

-- 
鈴木圭一 / keiichi@mdcnet.co.jp, kei-suzu@mail.wbs.ne.jp
PGP finger print (DH/DSS) 796B B9B1 436B 481C 709B  430C 829F 1705 9BB2 CAF3

初めまして、佐藤＠TaxiDriverと申します。
こちらのグループには初めて投稿いたします。

便乗質問で申し訳ありませんが。

takehara wrote:

> しかし、qmailのマニュアルやqmailのWebsiteを見てみると、それらはローカ
> ル(Mule)でつけるべきだ、と書いてありました。実際、他のメーラは自分で付
> けています。

現在Netscape Communicator 4.5を使用しております。確かにローカルで日時を
付けてくれますが、Unsent boxに入れた時点での日時を付けてくれます。

私の場合、幾つかのメール（ニュース投稿含む）を溜めておいて後で一括送信
するのですが、時として数時間後の場合もあります。
個人的には、サーバーに送信した時点での日時を付けてほしいし、それが本当
だと思うのですが。
これはNetscape Communicator 4.5の仕様なのでしょうか?

ご教示のほど宜しくお願いします。

_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
        Hiromu Sato
       Nagoya, Japan
<E-Mail> h-sweet@mx6.nisiq.net
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/~~

佐藤　弘務 <h-sweet@mx6.nisiq.net> writes:

> 現在Netscape Communicator 4.5を使用しております。確かにローカルで日時を
> 付けてくれますが、Unsent boxに入れた時点での日時を付けてくれます。
> 
> 私の場合、幾つかのメール（ニュース投稿含む）を溜めておいて後で一括送信
> するのですが、時として数時間後の場合もあります。
> 個人的には、サーバーに送信した時点での日時を付けてほしいし、それが本当
> だと思うのですが。
> これはNetscape Communicator 4.5の仕様なのでしょうか?

RFC822では Date field にはメッセージの作成日時を付けることに
なっているようです。（サーバーに到達した時点ではなく）

-
栃の嵐(トチノアラシ)	tochinoarashi@yahoo.com

佐藤＠TaxiDriverと申します。
フォロー有り難うございます。

栃の嵐 wrote:

> RFC822では Date field にはメッセージの作成日時を付けることに
> なっているようです。（サーバーに到達した時点ではなく）

RFCに関してよく解りませんが、これに遵守して作られたMailerは
作成した日時と言うことで、自分が送信したタイムラグも含め
受信した物についてもあまり当てにならないと言うことですね。

どうも有り難うございます。

<TAKEHARA.99Mar10234006@remus.dti.ne.jp>$B$N5-;v$K$*$$$F(B
Makoto TAKEHARA$B$5$s$O=q$-$^$7$?!#(B

>> $B:G6aFI$s$@(BUnix$B7O$N%3%s%T%e!<%?;(;o$K!H(BEmacs20$B$N(BMULE$B%P!<%8%g%s$O=hM}$,(B
>> $B=E$$!I$H$$$&$3$H$,=q$+$l$F$*$j!"(B.emacs$B%U%!%$%k$bBgI}$K=q$-49$($J$1$l$P(B
>> $B$J$i$J$$$h$&$G$9$N$GF3F~$r$?$a$i$C$F$*$j$^$9!#(B

$B$A$g$C$H8m2r$,$"$k$h$&$G$9!#(BEmacs 20 $B$N(B Non Mule version $B$KHf$Y$F(B Mule
version $B$O=hM}$,=E$$$N$G$"$C$F!"(BEmacs 19 base $B$N(B Mule $B$KHf$Y$l$P(B Emacs
20 $B$N(B Mule version $B$N$[$&$,7Z$$$h$&$J5$$,$7$^$9!#(B

$BFbED(B $B=SL@(B (UCHIDA,Toshiaki)

$BFqGH$H?=$7$^$9!#(B

uchida-t@jaist.ac.jp (UCHIDA Toshiaki) $B$5$s(B writes:

> >> $B:G6aFI$s$@(BUnix$B7O$N%3%s%T%e!<%?;(;o$K!H(BEmacs20$B$N(BMULE$B%P!<%8%g%s$O=hM}$,(B
> >> $B=E$$!I$H$$$&$3$H$,=q$+$l$F$*$j!"(B.emacs$B%U%!%$%k$bBgI}$K=q$-49$($J$1$l$P(B
> >> $B$J$i$J$$$h$&$G$9$N$GF3F~$r$?$a$i$C$F$*$j$^$9!#(B
> 
> $B$A$g$C$H8m2r$,$"$k$h$&$G$9!#(BEmacs 20 $B$N(B Non Mule version $B$KHf$Y$F(B Mule
> version $B$O=hM}$,=E$$$N$G$"$C$F!"(BEmacs 19 base $B$N(B Mule $B$KHf$Y$l$P(B Emacs
> 20 $B$N(B Mule version $B$N$[$&$,7Z$$$h$&$J5$$,$7$^$9!#(B

$B:G6a!"(Bemacs-20.2, mule-2.3(19.28), mule-2.3(19.34) $B$N(B benchmark $B$r$H$k(B
$B5!2q$,$"$C$?$N$G!":G8e$K7k2L$rE=$C$F$*$-$^$9!#(Btime $B$N=PNO%U%)!<%^%C%H(B
$B$K$O?'!9$*9%$_$b$"$m$&$H;W$$$^$9$N$G!"(B/usr/bin/time (bash), ksh, zsh,
tcsh$B$G<h$j$^$7$?(B($B$A$g$C$H(B (pd)ksh $B$N(B time $B$@$17k2L$,0c$&$h$&$J5$$,$9$k(B
$B$N$G$9$,!"$3$l$,:G$b8+$d$9$$$+$b(B)$B!#(B

$B4D6-$O(B P5 166MHz+64Mb, linux-2.0.36 libc-5.4.46 (slackware-3.6)
$B2?EY$+<B9T$7$F!"$[$H$s$I$N%U%!%$%k$,%P%C%U%!$K%-%c%C%7%e$5$l$?(B
$B>uBV$G$NB,Dj$G$9!#(B

$B<B9T$7$F$$$k$N$O!"(B

 (1) $emacs -q -nw -f kill-emacs  # $BHs(B X $B%/%i%$%"%s%H$H$7$F<B9T(B
 (2) $emacs    -nw -f kill-emacs  # $BHs(B X $B%/%i%$%"%s%H$H$7$F<B9T(B
 (3) $emacs        -f kill-emacs  # X $B%/%i%$%"%s%H$H$7$F<B9T(B

$B$KMW$9$k;~4V$G$9!#(B(2) $B$H(B (3) $B$G$O;d$N(B ~/.emacs $B$+$i;O$^$k=i4|2=(B
$B%U%!%$%k$r%m!<%I$7$F$$$F!"$=$N%5%$%:$O(B

$ wc  .emacs .emacs20 elisp/my-lib.el elisp/my-lib20.el
   1065    3826   35058 .emacs
   1042    3700   35673 .emacs20
   1268    4575   40244 elisp/my-lib.el    # .emacs $B$+$i(B load $B$5$l$k(B
   1056    3761   32604 elisp/my-lib20.el  # .emacs20 $B$+$i(B load $B$5$l$k(B
   4431   15862  143579 total

$BDxEY$"$j$^$9!J(Bemacs20 $B$@$1$O!"(B~/.emacs $B$G$O$J$/!"(B~/.emacs20 $B$H$$$&L>A0(B
$B$N$b$N$r%m!<%I$7$F$$$^$9!#$3$l$,L5$1$l$P$b$&>/$7%9%/%j%W%H$OFI$_$d$9$+$C(B
$B$?$+$b$7$l$^$;$s!K!#=i4|2=%U%!%$%k$N5-=RFbMF$O#3$D$N(B emacs $B$G$[$\F1Ey(B
$B$G$9!#(Bdired* $B$J$I0lIt$N%7%9%F%`$N%i%$%V%i%j$N$$$/$D$+$O!"$3$l$i$N%U%!(B
$B%$%k$+$i<B:]$K%m!<%I$5$l$k$h$&$K$J$C$F$$$^$9!#(B

$B<B:]$K$O$3$l$i$N=i4|2=%U%!%$%k$+$i$b$C$HB??t$N=i4|2=%U%!%$%k(B(mew $B$d(B 
dired $B$J$I$N$?$a$N=i4|@_Dj$J$I$N$?$a$N$b$N(B)$B$r%m!<%I$7$F$$$^$9$,!"$"$^(B
$B$j:Y$+$/5s$2$F$b0UL#$,$J$$$H;W$&$N$G!">e$G$O<gMW$J#2$D$N$_$r<($7$F$$$^(B
$B$9!#(B

$B7k2L$=$N$b$N$K$D$$$F$N:Y$+$$O@I>$OHr$1$^$9!#(B

$B$,!";d$NBN46E*$J0u>]$r$$$/$D$+=q$$$F$*$/$H!"$R$H$D$O!"(B
X $B%/%i%$%"%s%H$H$7$FF0:n$5$;$k>l9g$N%l%9%]%s%9$O%P!<%8%g%s$,?7$7$$$b$N(B
$B$[$ICY$$!"$H$$$&$b$N$G$9!#$3$l$O0J2<$N?t;z$K$O$"$^$j$O$C$-$j$H$OI=$o$l(B
$B$F$O$$$^$;$s$,!"(B486 $B$N%/%m%C%/$N>.$5$$%^%7%s$G<B9T$9$k$H$h$/H=$j$^$9!#(B
$B$?$H$($P!"%a%K%e!<$d?7$7$$%U%l!<%`$r:n@.$9$kB.EY$O!"(Bmule-2.3(19.28) $B$,(B
$B!J(BX $B%/%i%$%"%s%H$H$7$F$N5/F0$O0lHVCY$$$b$N$N!K0lHVB.$/46$8$i$l$^$9!#(B
$B$^$?!"(B-nw $B$J;~$O!"(Bemacs-20.2 $B$O$J$+$J$+B.$$$G$9$M!#(B

$B$b$&$R$H$D$O!"!J$3$A$i$O2<5-$N?t;z$K$"$kDxEYI=$o$l$F$$$k$H;W$&$N$G$9$,!K(B
$B;H$C$F$$$k;~$NA4HL$K46$8$k!V=E$5!W!"$"$k$$$OBN46B.EY$N$h$&$J$b$N$O!"(B
mule-2.3(19.34) $B$,0lHV7Z$$$h$&$J46$8$,$7$^$9!#$3$l$O(B *.elc $B$N%U%)!<%^%C(B
$B%H$H!"%W%m%0%i%`$N5,LO$K$h$k$b$N$G$7$g$&$+!D!#(B

$B$4$/4JC1$J%F%9%H$G!"$3$NDxEY$G$OCYB.$K$D$$$F$O$J$s$H$G$b8@$($k$h$&$J5$(B
$B$,$7$^$9$,!";29M$K$J$l$P9,$$$G$9!#(B


PS.
$B8E$$(B emacs $B$+$i?7$7$$(B emacs $B$K0\9T$9$k<j4V$K$D$$$F8@$($P!"$=$l$O(B
 .emacs $B$=$NB>$N=i4|2=%U%!%$%k$NBg$-$5$K0MB8$9$k$H;W$$$^$9!#(B
 .emacs $B$,#1#09T$7$+L5$$!"$H$$$&DxEY$G$"$l$PHs>o$K0\9T$O4JC1$J$N$G$7$g$&(B
$B$,>e5-DxEY$N%5%$%:$N=i4|2=%U%!%$%k$G$"$l$P<j4V$O$=$l$J$j$K$+$+$j$^$9!#(B

emacs-20.2 $B$N$?$a$N=i4|2=%U%!%$%k$N:n@.$K$O#1!A#2F|!"0BDj$7$F$/$k$^$G(B
$B$O2?=54V$+$+$+$C$?$h$&$J5-21$,$"$j$^$9!#:G=i$O5/F0$7$FJ|$C$F$*$/$@$1$G(B
$B$$$D$N$^$K$+Mn$A$F$7$^$&$3$H$b$"$j$^$7$?!J:Y$$OC$O>JN,$7$^$9$,!"$3$l$O(B
$B:#$G$O(B font-lock $B4X78$N@_Dj$,$^$:$+$C$?=j0Y$@$H9M$($F$$$^$9!K!#$3$s$J(B
$B;v$r=q$/$H!"855-;v$NJ}$rm4m0$5$;$F$7$^$&$+$b$7$l$^$;$s$,!"$3$l$O;d$N%&(B
$B%G$,0-$$$+!"=i4|2=%U%!%$%k$,D9$9$.$k$+$N$I$C$A$+$@$H;W$&$N$G!"$"$^$j62(B
$B$l$kI,MW$OL5$$!"$H$O;W$&$N$G$9$,!D!#(B

$B$J$*!";d$O!"0BDj$7$F:#$^$G:n$C$?$b$N$,F0$/!"$H$$$&$N$,Bh0l$J$N$G!"EvLL(B
emacs-20.x $B$N$_$K0\9T$9$kM=Dj$O$"$j$^$;$s!#$5$9$,$K:#$O;H$C$F$$$^$;$s(B
$B$,!"(BNemacs-3.2(19.58) $B$b$:$$$V$sD9$$4V(B mule-2.3 $B$HJ;MQ$7$F$$$^$7$?!#(B

$B<+J,$N=q$-$b$N$O#2$D$N(B mule-2.3 $B$N$I$A$i$+$G!"(Bnews $B$H(B mail $B$O(B 
emacs-20.2 $B$G!"$H$$$&;H$$J,$1$K$J$C$F$$$^$9$,!":G6a!"(Bmule-2.3(19.34) 
$B$G$b(B emacs-20.2 $B$H$[$\F1Ey$N(B news $B$H(B mail $B$N4D6-$r;}$F$?$N$G!"(B
emacs-20.2 $B$r5/F0$9$kIQEY$,Hs>o$K>/$J$/$J$C$F$-$D$D$"$j$^$9!#(B
mule-2.3(19.28) => mule-2.3(19.34) $B$X$N0\9T$b!"$=$l$J$j$KLLE]$G$O$"$j(B
$B$^$9$,!D!#(B

xemacs-20.4 $B$H(B emacs-20.3 $B$bJL%^%7%s$d(B MO $B$KF~$l$F0l1~;H$($k$h$&$K$O$7(B
$B$F$"$j$^$9$,!"$3$l$i$O>oMQ$7$F$*$j$^$;$s!#(B

$B$I$N(B emacs $B$rA*Br$9$k$+$O!"B.EY$d0\9T$N<j4V$@$1$G$O$J$/!"I,MW$J5!G=$d(B
$B%P%0$NM-L5$J$I$$$m$$$m$J>r7o$,$"$k$H;W$&$N$G!"$3$l$@$1$O$4<+J,$G;n$7$F(B
$B$_$J$1$l$P2?$H$b8@$($^$;$s$h$M!D!#(B


$BFqGH@60l!wEl5~J]C+;T(B (http://www.asahi-net.or.jp/~pi9s-nnb/)
NAMBA Seiichi / sn@asahi-net.email.ne.jp

$ cat ~/bin/bench-mule.sh  
#!/bin/ash
e2=/usr/local/emacs-20.2/bin/emacs   # emacs-20.2
m1=/usr/local/emacs-19.34/bin/mule   # mule-2.3(19.34)
m0=/usr/local/bin/mule               # mule-2.3(19.28)

set -x
for emacs in $e2 $m1 $m0 ; do
  time $emacs -q -nw -f kill-emacs
done
time $e2 -q -nw -l ~/.emacs20 -f kill-emacs
time $m1 -nw -f kill-emacs
time $m0 -nw -f kill-emacs
time $e2 -q -l ~/.emacs20 -f kill-emacs
time $m1 -f kill-emacs
time $m0 -f kill-emacs
	
$ cat ~/bin/bench-mule.csh
#!/bin/tcsh
set e2=/usr/local/emacs-20.2/bin/emacs # emacs-20.2
set m1=/usr/local/emacs-19.34/bin/mule # mule-2.3(19.34)
set m0=/usr/local/bin/mule             # mule-2.3(19.28)

set echo
foreach emacs ($e2 $m1 $m0)
  time $emacs -q -nw -f kill-emacs
end
time $e2 -q -nw -l ~/.emacs20 -f kill-emacs
time $m1 -nw -f kill-emacs
time $m0 -nw -f kill-emacs
time $e2 -q -l ~/.emacs20 -f kill-emacs
time $m1 -f kill-emacs
time $m0 -f kill-emacs
	
$ for shell in bash ksh zsh
do echo "$shell:" ; $shell ~/bin/bench-mule.sh ; done ; echo "tcsh:" ; tcsh ~/bin/bench-mule.csh
bash:
+ time /usr/local/emacs-20.2/bin/emacs -q -nw -f kill-emacs
0.06user 0.06system 0:00.15elapsed 78%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (524major+121minor)pagefaults 0swaps
+ time /usr/local/emacs-19.34/bin/mule -q -nw -f kill-emacs
0.07user 0.05system 0:00.13elapsed 88%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (523major+120minor)pagefaults 0swaps
+ time /usr/local/bin/mule -q -nw -f kill-emacs
0.26user 0.02system 0:00.34elapsed 81%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (592major+135minor)pagefaults 0swaps
+ time /usr/local/emacs-20.2/bin/emacs -q -nw -l ~/.emacs20 -f kill-emacs
1.98user 0.30system 0:02.38elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (852major+905minor)pagefaults 0swaps
+ time /usr/local/emacs-19.34/bin/mule -nw -f kill-emacs
1.71user 0.21system 0:02.00elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (725major+781minor)pagefaults 0swaps
+ time /usr/local/bin/mule -nw -f kill-emacs
2.16user 0.21system 0:02.42elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (636major+760minor)pagefaults 0swaps
+ time /usr/local/emacs-20.2/bin/emacs -q -l ~/.emacs20 -f kill-emacs
3.26user 0.27system 0:03.89elapsed 90%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (991major+1026minor)pagefaults 0swaps
+ time /usr/local/emacs-19.34/bin/mule -f kill-emacs
2.28user 0.28system 0:02.69elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (860major+771minor)pagefaults 0swaps
+ time /usr/local/bin/mule -f kill-emacs
2.80user 0.32system 0:03.32elapsed 93%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (715major+776minor)pagefaults 0swaps
ksh:
+ /usr/local/emacs-20.2/bin/emacs -q -nw -f kill-emacs
    0.19s real     0.09s user     0.05s system
+ /usr/local/emacs-19.34/bin/mule -q -nw -f kill-emacs
    0.38s real     0.07s user     0.05s system
+ /usr/local/bin/mule -q -nw -f kill-emacs
    0.38s real     0.22s user     0.09s system
+ /usr/local/emacs-20.2/bin/emacs -q -nw -l ~/.emacs20 -f kill-emacs
    2.42s real     2.05s user     0.26s system
+ /usr/local/emacs-19.34/bin/mule -nw -f kill-emacs
    2.06s real     1.79s user     0.20s system
+ /usr/local/bin/mule -nw -f kill-emacs
    2.46s real     2.09s user     0.28s system
+ /usr/local/emacs-20.2/bin/emacs -q -l ~/.emacs20 -f kill-emacs
    3.96s real     3.19s user     0.31s system
+ /usr/local/emacs-19.34/bin/mule -f kill-emacs
    2.76s real     2.16s user     0.40s system
+ /usr/local/bin/mule -f kill-emacs
    3.49s real     2.87s user     0.37s system
zsh:
+ /usr/local/emacs-20.2/bin/emacs -q -nw -f kill-emacs
/usr/local/emacs-20.2/bin/emacs -q -nw -f kill-emacs  0.07s user 0.07s system 172% cpu 0.081 total
+ /usr/local/emacs-19.34/bin/mule -q -nw -f kill-emacs
/usr/local/emacs-19.34/bin/mule -q -nw -f kill-emacs  0.08s user 0.03s system 586% cpu 0.019 total
+ /usr/local/bin/mule -q -nw -f kill-emacs
/usr/local/bin/mule -q -nw -f kill-emacs  0.24s user 0.04s system 121% cpu 0.230 total
+ /usr/local/emacs-20.2/bin/emacs -q -nw -l ~/.emacs20 -f kill-emacs
/usr/local/emacs-20.2/bin/emacs -q -nw -l ~/.emacs20 -f kill-emacs  2.08s user 0.24s system 95% cpu 2.437 total
+ /usr/local/emacs-19.34/bin/mule -nw -f kill-emacs
/usr/local/emacs-19.34/bin/mule -nw -f kill-emacs  1.64s user 0.30s system 103% cpu 1.872 total
+ /usr/local/bin/mule -nw -f kill-emacs
/usr/local/bin/mule -nw -f kill-emacs  2.17s user 0.21s system 101% cpu 2.346 total
+ /usr/local/emacs-20.2/bin/emacs -q -l ~/.emacs20 -f kill-emacs
/usr/local/emacs-20.2/bin/emacs -q -l ~/.emacs20 -f kill-emacs  3.26s user 0.29s system 97% cpu 3.635 total
+ /usr/local/emacs-19.34/bin/mule -f kill-emacs
/usr/local/emacs-19.34/bin/mule -f kill-emacs  2.28s user 0.30s system 100% cpu 2.574 total
+ /usr/local/bin/mule -f kill-emacs
/usr/local/bin/mule -f kill-emacs  2.89s user 0.33s system 95% cpu 3.364 total
tcsh:
foreach emacs ( /usr/local/emacs-20.2/bin/emacs /usr/local/emacs-19.34/bin/mule /usr/local/bin/mule )
/usr/local/emacs-20.2/bin/emacs -q -nw -f kill-emacs
0.050u 0.070s 0:00.19 63.1%     0+0k 0+0io 524pf+0w
end
/usr/local/emacs-19.34/bin/mule -q -nw -f kill-emacs
0.070u 0.050s 0:00.17 70.5%     0+0k 0+0io 523pf+0w
end
/usr/local/bin/mule -q -nw -f kill-emacs
0.250u 0.040s 0:00.42 69.0%     0+0k 0+0io 592pf+0w
end
/usr/local/emacs-20.2/bin/emacs -q -nw -l ~/.emacs20 -f kill-emacs
2.080u 0.260s 0:02.50 93.6%     0+0k 0+0io 852pf+0w
/usr/local/emacs-19.34/bin/mule -nw -f kill-emacs
1.680u 0.260s 0:02.30 84.3%     0+0k 0+0io 724pf+0w
/usr/local/bin/mule -nw -f kill-emacs
2.100u 0.260s 0:02.50 94.4%     0+0k 0+0io 636pf+0w
/usr/local/emacs-20.2/bin/emacs -q -l ~/.emacs20 -f kill-emacs
3.250u 0.290s 0:03.87 91.4%     0+0k 0+0io 991pf+0w
/usr/local/emacs-19.34/bin/mule -f kill-emacs
2.250u 0.290s 0:02.78 91.3%     0+0k 0+0io 860pf+0w
/usr/local/bin/mule -f kill-emacs
2.920u 0.230s 0:03.43 91.8%     0+0k 0+0io 715pf+0w