mime-find-root-entity

[Katsumi Yamaoka]

>>>>> In [emacs-mime-ja : No.00830] 
>>>>>	ari ＠ atesoft.advantest.co.jp (Akihiro Arisawa) wrote:

有沢さん> emy の mime-w3.el には以下のようなコードがありました。
有沢さん> ;; 個人的にはこっちの方が好き。

有沢さん> (defun-maybe mime-find-root-entity (entity)
有沢さん>   "Return root entity of entity"
有沢さん>   (while (not (mime-root-entity-p entity))
有沢さん>     (setq entity (mime-entity-parent entity)))
有沢さん>   entity)

あ、記憶の隅にありました。max-lisp-eval-depth を越えてしまうことは無い
でしょうけれど、recursive fucall より良いですね。これにしましょう。

有沢さん> 2001-03-09  Akihiro Arisawa  <ari ＠ atesoft.advantest.co.jp>

有沢さん> 	* mime.el (mime-find-root-entity): Fixed.

有沢さん> ;; ごめんなさい、何と書いてよいか思い付きません(^^;

そうそう、こういうときって困るんですよね。ぼくがよく使う手、Gnus の
ChangeLog で適当な言い回しを探す、でもって 

	* mime.el (mime-find-root-entity): Find root entity recursively.

としてみました。(たぶん the が必要なんですが、75 桁に収まらない ^^;;)

今年になって activity がある flim-1_14, slim-1_14, flim-1_14-rfc2231
および clime-1_14 枝の FLIM に commit いたしました。
-- 
Katsumi Yamaoka <yamaoka ＠ jpl.org>