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

[elisp/semi.git] / mime-view.el

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)