From 13eb6d41d45f612d3c934f5804602e5451264f5d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 5 Nov 2002 14:53:37 +0000 Subject: [PATCH] Synch with the semi-1_14 branch. --- ChangeLog | 5 +++++ mime-view.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6b3b86c..e2ad01f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-11-05 Yoichi NAKAYAMA + + * mime-view.el (mime-preview-find-boundary-info): Change the name of + the argument from get-mother to with-children along its effect. + 2002-11-03 Yoichi NAKAYAMA * mime-edit.el (mime-edit-decode-single-part-in-buffer): Decode text diff --git a/mime-view.el b/mime-view.el index 75a2184..aaa53ce 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1376,9 +1376,9 @@ button-2 Move to point under the mouse cursor ;;; @@ utility ;;; -(defun mime-preview-find-boundary-info (&optional get-mother) +(defun mime-preview-find-boundary-info (&optional with-children) "Return boundary information of current part. -If GET-MOTHER, refer boundary surrounding current part and its branches." +If WITH-CHILDREN, refer boundary surrounding current part and its branches." (let (entity p-beg p-end entity-node-id len) @@ -1407,7 +1407,7 @@ If GET-MOTHER, refer boundary surrounding current part and its branches." ((null entity-node-id) (setq p-end (point-max)) ) - (get-mother + (with-children (save-excursion (catch 'tag (let (e i) -- 1.7.10.4