mime-find-root-entity

[Katsumi Yamaoka]

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

Yamaoka> -      (mime-entity-parent p))))
Yamaoka> +      (or (mime-entity-parent p) p))))
Yamaoka> ではいけませんか?

有沢さん> それだと、[2.1.1] のように深い entity の場合に root-entity 
有沢さん> まで辿られないと思います。

すみません、あまり長い間ボールを持ったまま返さないと反則を取られるので
とりあえず降参します。(^^;;)

(defun mime-find-root-entity (entity)
  "Return root entity of ENTITY."
  (let ((p (mime-entity-parent entity)))
    (if (null p)
	entity
      (let ((q (mime-entity-parent p)))
	(if (null q)
	    p
	  (let ((r (mime-entity-parent q)))
	    (if (null r)
		q
	      (let ((s (mime-entity-parent r)))
		(if (null s)
		    r
                  ううむ..