mime-find-root-entity

[Akihiro Arisawa]

`mime-find-root-entity' ですが、root-entity を取得できないことが
あります。

Index: mime.el
===================================================================
RCS file: /cvs/root/flim/mime.el,v
retrieving revision 1.22.4.6
diff -u -r1.22.4.6 mime.el
--- mime.el	2000/12/20 07:21:52	1.22.4.6
+++ mime.el	2001/03/09 01:47:02
@@ -147,7 +147,7 @@
   (let ((p (mime-entity-parent entity)))
     (if (null p)
 	entity
-      (mime-entity-parent p))))
+      (mime-find-root-entity p))))
 
 
 ;;; @ Header buffer (obsolete)

ではないでしょうか?

-- 
有沢 明宏