Synch with the semi-1_14 branch.

diff --git a/ChangeLog b/ChangeLog
index 4fdf377..70ece03 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-05  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * 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  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * 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 (file)
--- 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)