From: yamaoka Date: Tue, 5 Nov 2002 14:53:33 +0000 (+0000) Subject: Synch with the semi-1_14 branch. X-Git-Tag: emiko-1_14-epg-branchpoint~44 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=34be8543719f14d1edb9b990fb90c69cff13942e;p=elisp%2Fsemi.git Synch with the semi-1_14 branch. --- diff --git a/ChangeLog b/ChangeLog index 4fdf377..70ece03 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 68a0bc6..97d3172 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1464,9 +1464,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) @@ -1491,7 +1491,7 @@ If GET-MOTHER, refer boundary surrounding current part and its branches." (setq p-end (point-max))) ((null entity-node-id) (setq p-end (point-max))) - (get-mother + (with-children (save-excursion (catch 'tag (let (e i)