From eee8afa344b75e6f9f52769b8d3a2559654b27ab Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 5 Nov 2002 13:52:22 +0000 Subject: [PATCH] * mime-view.el (mime-preview-find-boundary-info): Change the name of the argument from get-mother to with-children along its effect. --- ChangeLog | 5 +++++ mime-view.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index a1fed22..910cfab 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 517be38..bdf421d 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1472,9 +1472,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) @@ -1503,7 +1503,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