mime-find-root-entity

[Akihiro Arisawa]

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)

>>>>> In [emacs-mime-ja : No.00829] 
>>>>>	yamaoka ＠ jpl.org (Katsumi Yamaoka) wrote:

Yamaoka> CVS commit を引き受けさせていただこうと思うので、ChangeLog を
Yamaoka> いただけますでしょうか?

よろしくお願いします。

2001-03-09  Akihiro Arisawa  <ari ＠ atesoft.advantest.co.jp>

	* mime.el (mime-find-root-entity): Fixed.

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

-- 
有沢 明宏