projects
/
elisp
/
flim.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
067462b
)
* mime.el (mime-find-root-entity): Find root entity recursively.
author
yamaoka
<yamaoka>
Fri, 9 Mar 2001 06:25:19 +0000
(06:25 +0000)
committer
yamaoka
<yamaoka>
Fri, 9 Mar 2001 06:25:19 +0000
(06:25 +0000)
ChangeLog
patch
|
blob
|
history
mime.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
b6954f4
..
2c17553
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,3
+1,7
@@
+2001-03-09 Akihiro Arisawa <ari@atesoft.advantest.co.jp>
+
+ * mime.el (mime-find-root-entity): Find root recursively.
+
2000-12-27 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
* mime-conf.el (mime-mailcap-file): Turn to non user option.
2000-12-27 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
* mime-conf.el (mime-mailcap-file): Turn to non user option.
diff --git
a/mime.el
b/mime.el
index
2160569
..
56bdb1b
100644
(file)
--- a/
mime.el
+++ b/
mime.el
@@
-144,10
+144,9
@@
If MESSAGE is specified, it is regarded as root entity."
(defun mime-find-root-entity (entity)
"Return root entity of ENTITY."
(defun mime-find-root-entity (entity)
"Return root entity of ENTITY."
- (let ((p (mime-entity-parent entity)))
- (if (null p)
- entity
- (mime-entity-parent p))))
+ (while (not (mime-root-entity-p entity))
+ (setq entity (mime-entity-parent entity)))
+ entity)
;;; @ Header buffer (obsolete)
;;; @ Header buffer (obsolete)