* mime-view.el (mime-preview-find-boundary-info): Change the name of

the argument from get-mother to with-children along its effect.

diff --git a/ChangeLog b/ChangeLog
index a1fed22..910cfab 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 517be38..bdf421d 100644 (file)
--- 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)